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

2019-10-17 10:06asp技术网 ASP教程

现在不写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("--------------客户端信息检测------------"&" ")

Response.Write(getsys()&" ")

Response.Write(GetBrowser()&" ")

Response.Write(GetSearcher()&" ")

Response.Write("IP:"&getIp()&" ")

Response.Write("来源:"&(getIPAdress(GetIp()))&" ")

Response.Write(" ")

Response.Write("--------------数据提交检测--------------"&" ")

if not chkFrom then

 Response.write("请不要从站外提交内容！"&" ")

 Response.end

else

 Response.write("本站提交内容！"&" ")

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