现在不写asp了，这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧，先谢谢大家支持!
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
StartTime=timer()'程序执行时间检测
'###############################################################
'┌──VIBO───────────────────┐
'│VIBOSTUDIO版权所有│
'└───────────────────────┘
'Author:Vibo
'Email:vibo_cn@hotmail.com
'-----------------ViboASP站点开发常用函数库------------------
'OpenDB(vdata_url)--------------------打开数据库
'getIp()-------------------------------得到真实IP
'getIPAdress(sip)------------------------查找ip对应的真实地址
'IP2Num(sip)----------------------------限制某段IP地址
'chkFrom()------------------------------防站外提交设定
'getsys()-------------------------------操作系统检测
'GetBrowser()---------------------------浏览器版本检测
'GetSearcher()--------------------------识别搜索引擎
'
'----------------------数据过滤↓----------------------------
'CheckStr(byValChkStr)-----------------检查无效字符
'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(byValChkStr)-------------过滤脏字
'###############################################################
DimipData_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>")
ifnotchkFromthen
Response.write("请不要从站外提交内容！"&"<br>")
Response.end
else
Response.write("本站提交内容！"&"<br><br>")
Endif
functionOpenDB(vdata_url)
'------------------------------打开数据库
'使用:Conn=OpenDB("data/data.mdb")
Dimvibo_Conn
Setvibo_Conn=Server.CreateObject("ADODB.Connection")
vibo_Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(vdata_url)
vibo_Conn.Open
OpenDB=vibo_Conn
EndFunction
functiongetIp()
'-----------------------得到真实IP
userip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
Ifuserip=""Thenuserip=Request.ServerVariables("REMOTE_ADDR")
getIp=userip
Endfunction