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

时间:2022-09-29 19:22:11

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

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
  2. <%   
  3. StartTime=timer() '程序执行时间检测  
  4. '###############################################################  
  5. '┌──VIBO───────────────────┐  
  6. '│             VIBO STUDIO 版权所有             │  
  7. '└───────────────────────┘  
  8. ' Author:Vibo   
  9. ' Email:vibo_cn@hotmail.com  
  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