高手推荐的比较有用的ASP函数集合

答案：现在不写asp了，这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧，先谢谢大家支持! 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<%  
StartTime=timer() '程序执行时间检测 
'############################################################### 
'┌──VIBO───────────────────┐ 
'│             VIBO STUDIO 版权所有             │ 
'└───────────────────────┘ 
' Author:Vibo  
' Email:vibo_cn@hotmail.com 
'----------------- Vibo ASP站点开发常用函数库 ------------------ 
'OpenDB(vdata_url)   -------------------- 打开数据库 
'getIp()  ------------------------------- 得到真实IP 
'getIPAdress(sip)------------------------ 查找ip对应的真实地址 
'IP2Num(sip) ---------------------------- 限制某段IP地址 
'chkFrom() ------------------------------ 防站外提交设定 
'getsys() ------------------------------- 操作系统检测 
'GetBrowser() --------------------------- 浏览器版本检测 
'GetSearcher() -------------------------- 识别搜索引擎 
' 
'---------------------- 数据过滤 ↓---------------------------- 
'CheckStr(byVal ChkStr) ----------------- 检查无效字符 
'CheckSql() ----------------------------- 防止SQL注入 
'UnCheckStr(Str)------------------------- 检查非法sql命令 
'Checkstr(Str) -------------------------- ASP最新SQL防注入过滤涵数 
'HTMLEncode(reString) ------------------- 过滤转换HTML代码 
'DateToStr(DateTime,ShowType) ----------- 日期转换函数 
'Date2Chinese(iDate) -------------------- 获得ASP的中文日期字符串 
'lenStr(str) ---------------------------- 计算字符串长度（字节） 
'CreateArr(str) ------------------------- 生成二维数组 
'ShowRsArr(rsArr) ----------------------- 用表格显示记录集getrows生成的数组的表结构 
'---------------------- 外接组件使用函数↓------------------------ 
'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail组件 发送邮件 
'-----------------------------------------系统检测函数↓------------------------------------------ 
'IsValidUrl(url) ------------------------ 检测网页是否有效 
'getHTMLPage(filename) ------------------ 获取文件内容 
'CheckFile(FilePath) -------------------- 检查某一文件是否存在 
'CheckDir(FolderPath) ------------------- 检查某一目录是否存在 
'MakeNewsDir(foldername) ---------------- 根据指定名称生成目录 
'CreateHTMLPage(filename,FileData,C_mode) 生成文件 
'CheckBadWord(byVal ChkStr) ------------- 过滤脏字 
'############################################################### 
Dim ipData_url 
ipData_url="./Ip.mdb" 
Response.Write("--------------客户端信息检测------------"&"<br>") 
Response.Write(getsys()&"<br>") 
Response.Write(GetBrowser()&"<br>") 
Response.Write(GetSearcher()&"<br>") 
Response.Write("IP:"&getIp()&"<br>") 
Response.Write("来源:"&(getIPAdress(GetIp()))&"<br>") 
Response.Write("<br>") 
Response.Write("--------------数据提交检测--------------"&"<br>") 
if not chkFrom then 
    Response.write("请不要从站外提交内容！"&"<br>") 
    Response.end 
else 
    Response.write("本站提交内容！"&"<br><br>") 
End if 
function OpenDB(vdata_url) 
'------------------------------打开数据库 
'使用:Conn = OpenDB("data/data.mdb") 
  Dim vibo_Conn 
  Set vibo_Conn= Server.CreateObject("ADODB.Connection") 
  vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url) 
  vibo_Conn.Open 
  OpenDB=vibo_Conn 
End Function 
function getIp() 
'-----------------------得到真实IP 
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")  
getIp=userip 
End function

上一个：实例分析之用ASP编程实现网络内容快速查找的代码
下一个：用ASP创建MDaemon用户的代码