<% function HTMLEncode(fString) fString=Replace(fString,";",";") fString=Replace(fString,"<","<") fString=Replace(fString,">",">") fString=Replace(fString,"\","\") fString=Replace(fString,"--","--") fString=Replace(fString,CHR(9)," ") fString=Replace(fString,CHR(10),"
") fString=Replace(fString,CHR(13),"") fString=Replace(fString,CHR(22),"") fString=Replace(fString,CHR(32)," ") fString=Replace(fString,CHR(34),""")'双引号 fString=Replace(fString,CHR(39),"'")'单引号 fString=ReplaceText(fString,"&#([0-9]*);","&#$1;") '解决韩文字符问题 if IsSqlDataBase=0 then '过滤片假名(日文字符)[\u30A0-\u30FF] by yuzi首创 fString=escape(fString) fString=ReplaceText(fString,"%u30([A-F][0-F])","0$1;") fString=unescape(fString) end if HTMLEncode=fString end function Set rs = Server.CreateObject("ADODB.Recordset") content=HTMLEncode(Request("content")) if trim(content)="" then response.Write("1") else sql="select top 1 * from [BBSXP_Threads] where IsDel=0 and Topic = '"&content&"'" Rs.Open sql,Conn,1 count=Rs.recordcount '数据总条数 if Count=0 then response.Write("0") else response.Write("1") end if end if conn.close set rs=nothing set rs1=nothing set conn=nothing set SiteSettings = Nothing response.End() %>