<%
Function JaKillStr(str) '过滤非法字符函数
dim tempstr
if str="" then exit function
tempstr=replace(tempstr,chr(39),"""") ' '
 
tempstr=replace(tempstr,chr(38),"&amp;") ' &
tempstr=replace(str,chr(34),"&quot;") ' "
 
JaKillStr=tempstr
End Function

Function JaCheck(str)
str=trim(str)
str=replace(str,"<","&lt;")
str=replace(str,">","&gt;")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"</p><p>")
str=replace(str,vbCrLf,"<br>")
JaCheck=replace(str,"  ","　")
End Function

Sub JaCheckUrl()
Dim server_v1
Dim server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
if mid(server_v1,8,len(server_v2))<>server_v2 then 
response.write "<br><br><center><table border=0 cellpadding=20 width=450>" 
response.write "<tr><td>" 
response.write "不要外部提交,跳过Http提交吧!" 
response.write "</td></tr></table></center>" 
response.end 
End If
End Sub
%>