%
Function RemoveHTML(strHTML)
ON ERROR RESUME NEXT
Dim objRegExp, strOutput
strHTML = replace(strHTML," ","")
strHTML = replace(strHTML,chr(13),"")
strHTML = replace(strHTML,chr(10),"")
strHTML = replace(strHTML,chr(32),"")
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True '忽略大小写
objRegExp.Global = True '设置为全文搜索
objRegExp.Pattern = "[\s\S]+?<\/script>"
strOutput = objRegExp.Replace(strHTML, "")
objRegExp.Pattern = "[\s\S]+?<\/style>"
strOutput = objRegExp.Replace(strOutput, "")
objRegExp.Pattern = "<.+?>" '取闭合的<>
strOutput = objRegExp.Replace(strOutput, "")
strOutput = Replace(strOutput, "<", "〈")
strOutput = Replace(strOutput, ">", "〉")
strOutput = Replace(strOutput, " ", "")
strOutput = Replace(strOutput, " ", "")
RemoveHTML = strOutput
Set objRegExp = Nothing
End Function
rem 过滤sql非法字符
function checkstr(str)
if isnull(str) then
checkstr = ""
exit function
end if
checkstr=replace(str,"'","''")
end function
'提示错误信息
sub strA(str1)
Response.Write("")
response.End()
end sub
'成功提示信息
sub strB(str2,url)
Response.Write("")
response.End()
end sub
'页面自动跳转
sub AutoJump(str1,url)
Response.Write(" "&str1&" ")
Response.Write(" 正在跳转... ")
Response.Write(" 页面没有自动跳转【点这里】 ")
Response.Write("")
end sub
'分页子程序
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
Dim query, a, x, temp
action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
Response.Write("
" & vbCrLf )
End Sub
sub Left1(str1,url)
Response.Write(" "&str1&" ")
Response.Write(" 正在跳转... ")
Response.Write(" 页面没有自动跳转【点这里】 ")
Response.Write("")
end sub
%>