现在不写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下调试程序的debug类

ASP中最头疼的就是调试程序的时候不方便，我想可能很多朋友都会用这样的方法“response.write ”，然后输出相关的语句来看看是否正确。前几天写了一个千行的页面，里面大概有七八个SUB/FUNCTION，调试的时候用了有>>>详细阅读

本文标题：高手推荐的比较有用的ASP函数集合

地址：http://www.17bianji.com/kaifa2/ASP/32589.html

 1/2    1