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

现在不写asp了，这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧，先谢谢大家支持!

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
2. <%   
3. StartTime=timer() '程序执行时间检测  
4. '###############################################################  
5. '┌──VIBO───────────────────┐  
6. '│             VIBO STUDIO 版权所有             │  
7. '└───────────────────────┘  
8. ' Author:Vibo   
9. ' Email:[e-mail]  
10. '----------------- Vibo ASP站点开发常用函数库 ------------------  
11. 'OpenDB(vdata_url)   -------------------- 打开数据库  
12. 'getIp()  ------------------------------- 得到真实IP  
13. 'getIPAdress(sip)------------------------ 查找ip对应的真实地址  
14. 'IP2Num(sip) ---------------------------- 限制某段IP地址  
15. 'chkFrom() ------------------------------ 防站外提交设定  
16. 'getsys() ------------------------------- 操作系统检测  
17. 'GetBrowser() --------------------------- 浏览器版本检测  
18. 'GetSearcher() -------------------------- 识别搜索引擎  
19. '  
20. '---------------------- 数据过滤 ↓----------------------------  
21. 'CheckStr(byVal ChkStr) ----------------- 检查无效字符  
22. 'CheckSql() ----------------------------- 防止SQL注入  
23. 'UnCheckStr(Str)------------------------- 检查非法sql命令  
24. 'Checkstr(Str) -------------------------- ASP最新SQL防注入过滤涵数  
25. 'HTMLEncode(reString) ------------------- 过滤转换HTML代码  
26. 'DateToStr(DateTime,ShowType) ----------- 日期转换函数  
27. 'Date2Chinese(iDate) -------------------- 获得ASP的中文日期字符串  
28. 'lenStr(str) ---------------------------- 计算字符串长度（字节）  
29. 'CreateArr(str) ------------------------- 生成二维数组  
30. 'ShowRsArr(rsArr) ----------------------- 用表格显示记录集getrows生成的数组的表结构  
31. '---------------------- 外接组件使用函数↓------------------------  
32. 'sendMail(to_Email,from_Email,from_Name,mail_Subject,mail_Body,mail_htmlBody) -----'Jmail组件 发送邮件  
33. '-----------------------------------------系统检测函数↓------------------------------------------  
34. 'IsValidUrl(url) ------------------------ 检测网页是否有效  
35. 'getHTMLPage(filename) ------------------ 获取文件内容  
36. 'CheckFile(FilePath) -------------------- 检查某一文件是否存在  
37. 'CheckDir(FolderPath) ------------------- 检查某一目录是否存在  
38. 'MakeNewsDir(foldername) ---------------- 根据指定名称生成目录  
39. 'CreateHTMLPage(filename,FileData,C_mode) 生成文件  
40. 'CheckBadWord(byVal ChkStr) ------------- 过滤脏字  
41. '###############################################################  
42. Dim ipData_url  
43. ipData_url="./Ip.mdb"  
44. Response.Write("--------------客户端信息检测------------"&"<br>")  
45. Response.Write(getsys()&"<br>")  
46. Response.Write(GetBrowser()&"<br>")  
47. Response.Write(GetSearcher()&"<br>")  
48. Response.Write("IP:"&getIp()&"<br>")  
49. Response.Write("来源:"&(getIPAdress(GetIp()))&"<br>")  
50. Response.Write("<br>")  
51. Response.Write("--------------数据提交检测--------------"&"<br>")  
52. if not chkFrom then  
53.     Response.write("请不要从站外提交内容！"&"<br>")  
54.     Response.end  
55. else  
56.     Response.write("本站提交内容！"&"<br><br>")  
57. End if  
58. function OpenDB(vdata_url)  
59. '------------------------------打开数据库  
60. '使用:Conn = OpenDB("data/data.mdb")  
61.   Dim vibo_Conn  
62.   Set vibo_Conn= Server.CreateObject("ADODB.Connection")  
63.   vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(vdata_url)  
64.   vibo_Conn.Open  
65.   OpenDB=vibo_Conn  
66. End Function  
67. function getIp()  
68. '-----------------------得到真实IP  
69. userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")   
70. If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")   
71. getIp=userip  
72. End function