ASP动网早期一些比较常用的函数

作者：Eve Cole 更新时间：2009-06-26 18:10:37

<%
' 判断提交是否来自外部
公共函数 ChkPost()
暗淡服务器_v1，服务器_v2
检查邮报=假
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
如果 Mid(server_v1,8,len(server_v2))=server_v2 那么 Chkpost=True
结束功能
'系统分配随机密码
公共函数Createpass()
Dim Ran,i,LengthNum
长度数量=16
创建通行证=“”
对于 i=1 到 LengthNum
随机化
Ran = CInt(Rnd * 2)
随机化
如果 Ran = 0 那么
Ran = CInt(Rnd * 25) + 97
Createpass =Createpass& UCase(Chr(Ran))
ElseIf Ran = 1 那么
Ran = CInt(Rnd * 9)
创建通行证 = 创建通行证 & Ran
ElseIf Ran = 2 那么
Ran = CInt(Rnd * 25) + 97
Createpass =Createpass& Chr(Ran)
结束如果
下一个
结束功能
' 重写执行
雷姆函数
公共函数执行（命令）
如果不是 IsObject(Conn) 则为 ConnectionDatabase
'检查权限，防止注入攻击
如果 InStr(LCase(Command),"dv_admin")>0 且 Left(ScriptName,6)<> "admin_" 那么
响应.Write SaveSQLLOG(命令,"")
Command=替换(LCase(命令),"dv_admin","dv"&Chr(95)&"admin")
结束如果
如果 IsDeBug = 0 那么
出错时继续下一步
设置执行= Conn.执行（命令）
如果出错那么
错误清除
设置 Conn = 无
Response.Write SaveSQLLOG(Command,"查询数据的时候发现错误，请检查您的查看代码是否正确。 基于安全的理由，只显示本信息，要详细的错误信息，请修改您的程序文件conn.asp。把""Const IsDeBug = 0""改为：""Const IsDeBug = 1""")
响应.结束
结束如果
别的
'响应.写入命令和“ ”
设置执行= Conn.执行（命令）
结束如果
SqlQueryNum = SqlQueryNum+1
End Function

'记录查询错误事件
公共函数 SaveSQLLOG(sCommand,消息)
昏暗lConnStr，lConn，ldb，SQL，RS
ldb =“数据/DvSQLLOG.mdb”
lConnStr =“提供商= Microsoft.Jet.OLEDB.4.0;数据源=”＆Server.MapPath（ldb）
设置 lConn = Server.CreateObject("ADODB.Connection")
lConn.Open lConnStr
设置 Rs = Server.CreateObject("adodb.recordset")
Sql =“从 dv_sql_log 选择*”
Rs.open sql,lconn,1,3
添加新卢比
Rs("脚本名称")=脚本名称
Rs("S_Info")=左(sCommand,255)
Rs("ip")=UserTrueIP
更新卢比
关闭卢比
lConn.执行(SQL)
lConn.关闭
设置 lConn = 无
保存SQLLOG=消息
结束功能

'IP来源
公共功能地址(sip)
变暗 aConnStr,aConn,adb
变暗 str1,str2,str3,str4
点数
昏暗的乡村，城市
调暗，SQL
如果 IsNumeric(Left(sip,2)) 那么
如果 sip="127.0.0.1" 则 sip="192.168.0.1"
str1=左(sip,InStr(sip,".")-1)
sip=mid(sip,instr(sip,".")+1)
str2=左(sip,instr(sip,".")-1)
sip=Mid(sip,InStr(sip,".")+1)
str3=左(sip,instr(sip,".")-1)
str4=Mid(sip,instr(sip,".")+1)
如果 isNumeric(str1)=0 或 isNumeric(str2)=0 或 isNumeric(str3)=0 或 isNumeric(str4)=0 那么
别的
num=CLng(str1)*16777216+CLng(str2)*65536+CLng(str3)*256+CLng(str4)-1
adb =“数据/ip地址.mdb”
aConnStr =“提供商= Microsoft.Jet.OLEDB.4.0;数据源=”＆Server.MapPath（adb）
设置 AConn = Server.CreateObject("ADODB.Connection")
aConn.Open aConnStr

sql="从 dv_address 选择前 1 个国家/地区、城市，其中 ip1 <="&num&" 和 ip2 >="&num&""
设置 irs=aConn.execute(sql)
如果 irs.EOF 和 irs.bof 那么
国家=“亚洲”
城市=“”
别的
国家=国税局(0)
城市=国税局(1)
结束如果
设置 irs=无
设置 aConn = 无
SqlQueryNum = SqlQueryNum+1
结束如果
地址=国家&城市
别的
地址=“未知”
结束如果
结束功能

'为用户发布的各种信息过滤，带脏话过滤
公共函数 HTMLEncode(fString)
如果不是 IsNull(fString) 那么
fString = 替换(fString, ">", ">")
fString = 替换(fString, "<", "<")
fString = 替换(fString, CHR(32), " ") '
fString = 替换(fString, CHR(9), " ") '
fString = 替换(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'") '过滤单引号
fString = 替换(fString, CHR(13), "")
fString = 替换(fString, CHR(10) & CHR(10), " ")
fString = 替换(fString, CHR(10), " ")
fString=ChkBadWords(fString)
HTMLEncode = fString
结束如果
结束功能
'用于论坛本身的过滤，不带脏话过滤
公共函数 iHTMLEncode(fString)
如果不是 IsNull(fString) 那么
fString = 替换(fString, ">", ">")
fString = 替换(fString, "<", "<")
fString = 替换(fString, CHR(32), " ")
fString = 替换(fString, CHR(9), " ")
fString = 替换(fString, CHR(34), """)
fString = 替换(fString, CHR(39), "'")
fString = 替换(fString, CHR(13), "")
fString = 替换(fString, CHR(10) & CHR(10), " ")
fString = 替换(fString, CHR(10), " ")
iHTMLEncode = fString
结束如果
结束功能
公共函数 strLength(str)
如果 isNull(str) 或 Str = "" 那么
长度 = 0
退出功能
结束如果
暗淡的 WINNT_CHINESE
WINNT_CHINESE=(len("例子")=2)
如果 WINNT_CHINESE 那么
调暗l、t、c
昏暗的我
l=len(str)
t=l
对于 i=1 到 l
c=asc(中(str,i,1))
如果 c<0 则 c=c+65536
如果 c>255 则 t=t+1
下一个
字符串长度=t
别的
str长度=len(str)
结束如果
结束功能
公共函数 ChkBadWords(Str)
如果 IsNull(Str) 则退出函数
昏暗的我
对于 i = 0 至 Ubound(BadWords)
如果 i > UBound(rBadWord) 那么
Str = 替换(Str,BadWords(i),"*")
别的
Str = 替换(Str,BadWords(i),rBadWord(i))
结束如果
下一个
ChkBadWords = Str
结束功能
公共函数 Checkstr(Str)
如果为 null(Str) 那么
检查Str =“”
退出功能
结束如果
CheckStr = Replace(Str,"'","''")
结束功能
'获取带端口的URL，推荐使用
属性获取 Get_ScriptNameUrl()
如果 request.servervariables("SERVER_PORT")="80" 那么
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
别的
Get_ScriptNameUrl="http://" & request.servervariables("server_name")&":"&request.servervariables("SERVER_PORT")&replace(lcase(request.servervariables("script_name")),ScriptName,"")
结束如果
End Property

'检查Email地址有效
函数IsValidEmail（电子邮件）
暗淡的名字，名字，i，c
有效电子邮件 = true
名称=拆分（电子邮件，“@”）
如果 UBound(names) <> 1 那么
有效电子邮件 = false
退出功能
结束如果
对于名称中的每个名称
如果 Len(名称) <= 0 那么
有效电子邮件 = false
退出功能
结束如果
对于 i = 1 到 Len(名称)
c = Lcase(Mid(名称, i, 1))
如果 InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 并且不是 IsNumeric(c) 那么
有效电子邮件 = false
退出功能
结束如果
下一个
如果左（名称，1）=“。”或 Right(名称, 1) = "."然后
有效电子邮件 = false
退出功能
结束如果
下一个
如果 InStr(names(1), ".") <= 0 那么
有效电子邮件 = false
退出功能
结束如果
i = Len(名称(1)) - InStrRev(名称(1), ".")
如果 i <> 2 且 i <> 3 那么
有效电子邮件 = false
退出功能
结束如果
如果 InStr(电子邮件, "..") > 0 那么
有效电子邮件 = false
结束 if

结束函数

函数 strLength(str)
出现错误继续下一步
暗淡的WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=2)
如果 WINNT_CHINESE 那么
昏暗的l、t、c
昏暗的我
l=len(str)
t=l
对于 i=1 到 l
c=asc(中(str,i,1))
如果 c<0 则 c=c+65536
如果 c>255 则
t=t+1
结束如果
下一个
字符串长度=t
别的
str长度=len(str)
结束如果
如果 err.number<>0 则 err.clear
结束函数

function cutStr(str,strlen)
昏暗的l、t、c
l=len(str)
时间=0
对于 i=1 到 l
c=Abs(Asc(Mid(str,i,1)))
如果 c>255 则
t=t+2
别的
t=t+1
结束如果
如果 t>=strlen 那么
cutStr=左(str,i)&“...”
退出
别的
cutStr=str
结束如果
下一个
cutStr=替换(cutStr,chr(10),"")
结束函数

函数fixjs(Str)
如果 Str <>"" 那么
str = 替换(str,"","\")
Str = 替换(str, chr(34), """")
Str = 替换(str, chr(39),"'")
Str = 替换(str, chr(13), "n")
Str = 替换(str, chr(10), "r")
str = 替换(str,"'","'")
结束如果
修复js=Str
结束功能
函数 enfixjs(Str)
如果 Str <>"" 那么
Str = 替换(str,"'","'")
Str = 替换(str,"""" , chr(34))
Str = 替换(str, "'",chr(39))
Str = 替换(str, "r", chr(10))
Str = 替换(str, "n", chr(13))
Str = 替换(str,"\","")
结束如果
enfixjs=Str
结束功能

类 Cls_Browser
公共浏览器、版本、平台
私有子类_Initialize()
浏览器=“未知”
版本=“未知”
平台=“未知”
暗淡代理
代理=Request.ServerVariables("HTTP_USER_AGENT")
代理=拆分（代理，“;”）
如果 InStr(Agent(1),"MSIE")>0 则
浏览器=“Microsoft Internet Explorer”
版本=修剪（左（替换（代理（1），“MSIE”，“”），6））
ElseIf InStr(Agent(4),"Netscape")>0 那么
浏览器=“网景”
昏暗临时字符串
tmpstr=分割(代理(4),"/")
版本=tmpstr(UBound(tmpstr))
结束如果
如果 InStr(Agent(2),"NT 5.2")>0 则
平台=“Windows 2003”
ElseIf InStr(Agent(2),"NT 5.1")>0 那么
平台=“Windows XP”
ElseIf InStr(Agent(2),"NT 5.0")>0 则
平台=“Windows 2000”
ElseIf InStr(Agent(2),"9x")>0 那么
平台=“Windows ME”
ElseIf InStr(Agent(2),"98")>0 则
平台=“Windows 98”
ElseIf InStr(Agent(2),"95")>0 则
平台=“Windows 95”
结束如果
'记录未知代理
如果浏览器=“未知”或版本=“未知”或平台=“未知”那么
Agent=Dvbbs.checkStr(Request.ServerVariables("HTTP_USER_AGENT"))
昏暗 lConnStr,lConn,ldb
ldb =“数据/DvSQLLOG.mdb”
lConnStr =“提供商= Microsoft.Jet.OLEDB.4.0;数据源=”＆Server.MapPath（ldb）
设置 lConn = Server.CreateObject("ADODB.Connection")
lConn.Open lConnStr
lConn.Execute("插入[Agent](UserAgent)Values('" & Agent & "')")
lConn.关闭
设置 lConn = 无
结束如果
结束子
结束课程