<%
================================
函数列表
建立数据库的连接 ConnOpen(DataBaseConnectStrDBTypeConn_object)
断开数据库的连接 ConnClose(Conn_object)
防止SQL注入 SafeRequest(paraNameparaType)
格式化日期 DateFormat(dateStrdateType)
显示错误提示 ShowErr(errStr)
查询字符串中特定数据 SelectStr(contentStrpatternStrpatternNum)
过滤指定字符 Leach(contentStrbadWords)
远程文件内容抓取 Seize(urlStr)
数据流编码处理 BytesToBstr(bodycset)
编码cookies codeCookie(contentStr)
解码cookies DecodeCookie(contentStr)
检验数据提交来源是否合法 ChkPost()
个性化加密 MyEncrypt(StrPassword)
禁止浏览器缓存本页 NoBuffer()
网页格式化输入文本 HTMLEncode(fString)
从头部截取字符串的指定长度(按字符数算) GotTopic(StrStrLen)
检测验证码 CheckRadomPass(RadomPass)
生成验证码 GetCode()
获取客户端操作系统版本 GetSystem()
数据库事务处理 ConnManage(Conn_object)
快速排序（递归） QuickSort(arrLowHigh)
将数组的元素以特定字符串连起来 arr_join(arrcharacter)
返回字符串以某分割符分割的数目 count_character(strcharacter)
截取含有分割符的字符串中指定数目的字符串 inter_str_by_character_num(strcharacterstartnum)
利用Stream下载文件 downloadFile(strFile)
返回信息 send_back(ResultWords)
获取错误信息 get_err()
与SafeRequest相反 SafeResponse(content)
保存远程图片 SaveRemoteFile(LocalFileNameRemoteFileUrl)
dim language_arr()
language_arr() = "数据库连接的参数设置错误！"
language_arr() = "数据库连接的类型参数设置错误！"
language_arr() = "数据库连接失败！"
language_arr() = "非法的参数值！"
language_arr() = "参数值不是有效的日期格式！"
language_arr() = "操作失败！"
language_arr() = "栏目有重名！"
language_arr() = "栏目名称为空！"
language_arr() = "栏目文件夹创建失败！"
language_arr() = "您没有此权限！"
函数ID
函数作用建立数据库的连接
修改时间
传人参数
connectStr数据库连接字符串
connectType数据库类别数字型为Access为MS SQL
返回值
sub ConnOpen(DataBaseConnectStrDBTypeConn_object)
Set Conn_object = ServerCreateobject("adodbconnection")
if DataBaseConnectStr = "" then call ShowErr(language_arr())
if DBType = then
Conn_objectOpen "driver={Microsoft Access Driver (*mdb)};dbq=" & DataBaseConnectStr
elseif DBType = then
Conn_objectOpen "Provider=SQLOLEDB;" & DataBaseConnectStr
else
call ShowErr(language_arr())
end if
errclear
end sub
函数ID
函数作用断开数据库的连接
修改时间
传人参数
返回值
Sub ConnClose(Conn_object)
Conn_objectclose
set Conn_object = nothing
End sub
函数ID
函数作用防止SQL注入
修改时间
传人参数
paraName:参数名称字符型
paraType:参数类型数字型(表示以上参数是数字表示以上参数为字符)
返回值
过滤后的字符串
Function SafeRequest(paraNameparaType)
dim paraValue
paraValue = Request(paraName)
select case paraType
case
paraValue = replace(paraValue"""[system:]")
paraValue = replace(paraValue"=""[system:]")
case
if not IsNumeric(paraValue) then call ShowErr(language_arr())
case
if not IsNumeric(paraValue) then call ShowErr(language_arr())
if paraValue = "" then paraValue =
case else
if len(paraValue) > paraType then call ShowErr(language_arr())
paraValue = replace(paraValue"""[system:]")
paraValue = replace(paraValue"=""[system:]")
end select
SafeRequest = paraValue
End function
===============================函数ID
函数作用格式化日期
修改时间
传人参数
dateStr:日期字符串
paraType:日期类型数字型
返回值
格式化后的日期
Function DateFormat(dateStrdateType)
Dim dateString
if IsDate(dateStr) = False then
call ShowErr(language_arr())
end if
Select Case dateType
Case ""
dateString = Year(dateStr)&""&Month(dateStr)&""&Day(dateStr)
Case ""
dateString = Year(dateStr)&""&Month(dateStr)&""&Day(dateStr)
Case ""
dateString = Year(dateStr)&"/"&Month(dateStr)&"/"&Day(dateStr)
Case ""
dateString = Month(dateStr)&"/"&Day(dateStr)&"/"&Year(dateStr)
Case ""
dateString = Day(dateStr)&"/"&Month(dateStr)&"/"&Year(dateStr)
Case ""
dateString = Month(dateStr)&""&Day(dateStr)&""&Year(dateStr)
Case ""
dateString = Month(dateStr)&""&Day(dateStr)&""&Year(dateStr)
Case ""
dateString = Month(dateStr)&""&Day(dateStr)
Case ""
dateString = Month(dateStr)&"/"&Day(dateStr)
Case ""
dateString = Month(dateStr)&""&Day(dateStr)
Case ""
dateString = Month(dateStr)&language_arr()&Day(dateStr)&language_arr()
Case ""
dateString = Day(dateStr)&language_arr()&Hour(dateStr)&language_arr()
case ""
dateString = Day(dateStr)&language_arr()&Hour(dateStr)&language_arr()
Case ""
dateString = Hour(dateStr)&language_arr()&Minute(dateStr)&language_arr()
Case ""
dateString = Hour(dateStr)&":"&Minute(dateStr)
Case ""
dateString = Year(dateStr)&language_arr()&Month(dateStr)&language_arr()&Day(dateStr)&language_arr()
Case Else
dateString = dateStr
End Select
DateFormat = dateString
End Function
函数ID
函数作用显示错误提示
修改时间
传人参数
errStr:错误提示字符型
返回值返回提交页面
sub ShowErr(errStr)
ResponseWrite("<script>alert("""&errStr&""");locationhref=""javascript:historyback()"";</script>")
ResponseEnd
End sub
