,[,],{,},/,\,;,:," & Chr(34) & "," & Chr(0) & ",--,and,exec,insert,select,delete,update,count,*,%,chr,mid,master,truncate,char,declare"
arrBadChar = Split(strBadChar, ",")
tempChar = strChar
For i = 0 To UBound(arrBadChar)
tempChar = Replace(tempChar, arrBadChar(i), "")
Next
tempChar = Replace(tempChar, "@@", "@")
Restr = trim(tempChar)
End Function
Set rs = Server.CreateObject("ADODB.Recordset")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open Application("FreeHostDBlink")
xunweb.xunwebPages stype,typeid,conn,rs,skey
if not rs.eof then
dim typenames
dim pageid,maxperpage,mpage,totalput,wn
if trim(request("pageid"))"" then pageid = cint(request("pageid")) else pageid = 1
if pageid = "" or pageid = [url=]" & rs("webTname") & "[/url]"
elseif stype = "2" then
typenames = "按照应用分类 > [url=]" & rs("proTname") & "[/url]"
end if
if skey"" then
typenames = typenames & "
搜索关键词(" & skey &")
"
end if
end if
if stype = "" then stype = "0"
if typeid = "" then typeid = "0"
%>
报错字段 红色标记
错误代码
Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/website.asp,行 141数据库
|