天枫常用的ASP函数封装如下(6)

 End Function

'－－－－－－－－－－－－－－安全处理－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 

 '****************************************************
 '函数名：ChkPost
 '作  用：禁止站外提交表单
 '返回值：true站内提交，flase站外提交
 '****************************************************
 Public Function ChkPost()
  Dim url1,url2
  chkpost=true
  url1=Cstr(Request.ServerVariables("HTTP_REFERER"))
  url2=Cstr(Request.ServerVariables("SERVER_NAME"))
  If Mid(url1,8,Len(url2))<>url2 Then
    chkpost=false
    exit function
  End If
 End function

 '****************************************************
 '函数名：PSql
 '作  用：防止SQL注入
 '返回值：为空则无注入，不为空则注入并返回注入的字符
 '****************************************************
 public Function PSql()
     Psql=""
  badwords= "'防''防;防and防exec防insert防select防update防delete防count防*防%防chr防mid防master防truncate防char防declare防|"
  badword=split(badwords,"防")
  If Request.Form<>"" Then
   For Each TF_Post In Request.Form
    For i=0 To Ubound(badword)
     If Instr(LCase(Request.Form(TF_Post)),badword(i))>0 Then
      Psql=badword(i)
      exit function
     End If
    Next
   Next
  End If
  If Request.QueryString<>"" Then
   For Each TF_Get In Request.QueryString
    For i=0 To Ubound(badword)
     If Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 Then
      Psql=badword(i)
      exit function
     End If
    Next
   Next
  End If
 End Function

    '****************************************************
 '函数名：FiltrateHtmlCode
 '作  用：防止生成html代码 
 '参  数：str ----字符串
 '****************************************************
 Public Function FiltrateHtmlCode(Str)
  If Not isnull(str) And str<>"" then