<% 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 ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) 'response.Write "【返回前页】   " if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾页 " & vbCrLf) end if Response.Write("页次:" & page & "/" & pageCount & "页"& vbCrLf) Response.Write(" 共" & iCount & "条记录" & vbCrLf) Response.Write(" 转" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub sub Left1(str1,url) Response.Write("
  "&str1&"
") Response.Write("
  正在跳转...
") Response.Write("
  页面没有自动跳转【点这里】
") Response.Write("") end sub %>