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

　　现在不写asp了，这次我将我以前沉淀下的一些函数库共享给大家,希望能给初学者启示,给老手也有所帮助吧，先谢谢大家支持!
<%@LANGUAGE=VBSCRIPTCODEPAGE=936%>
<%
StartTime=timer()程序执行时间检测
###############################################################
┌──VIBO───────────────────┐
│VIBOSTUDIO版权所有│
└───────────────────────┘
Author:Vibo
-----------------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
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