ASPÅжÏÇóÖú

¨t¡îkissŒ™‰Ä

if content="²Ù" then
    response.write "<SCRIPT language=JavaScript>alert('²»Ðí˵Ôà»° »ò ÊäÈë×Ö·û·Ç·¨£¡');"
    response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
    response.end

end if
%>
ÎÒÏëÔö¼ÓÓï¾ä,±ÈÈç˵È˼Ҵò¸ö²Ù×־Ͳ»¿ÉÒÔ·¢±í
¶ø´ò¸ö²Ù1¾Í¿ÉÒÔÁË,ÇóÖú``

Сµãµã14504

¿ÉÒÔʹÓÃÑ­»·À´×ö
±ÈÈç
<%
   Function IsIllegalBody(TxtBody)
           Dim lStr,lAry,i,IsHave
           lStr="·Ç·¨¹Ø¼ü´Ê1|·Ç·¨¹Ø¼ü´Ê2|·Ç·¨¹Ø¼ü´Ê3"
           lAry=Split(lStr,"|")
           IsHave=False
           For i=0 To Ubound(lAry)
                  IF InStr(TxtBody,lAry(i))<>0 Then
                      IsHave=True
                  End IF      
           Next
           IsIllegalBody=IsHave
   End Function
   'µ÷ÓòâÊÔ´úÂë
  Dim tStr
    tStr="Õâ¾ä»°ÀﺬÓзǷ¨¹Ø¼ü´Ê1"
    IF IsIllegalBody(tStr) Then
         Response.Write "º¬Óв»ÔÊÐí·¢²¼µÄÄÚÈÝ"
   Else
         Response.Write "ûÓв»ÔÊÐí·¢²¼µÄÄÚÈÝ"
   End IF  
%>