checkpost.asp

一个非常优秀的自动建站程序

<%
Function CheckPostUrl()
      Dim Server_v1,Server_v2
      CheckPostUrl = False
      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
            CheckPostUrl = False
      Else
            CheckPostUrl = True
      End If
End function
if CheckPostUrl = False then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style='font:9pt Verdana'>"
response.write "你提交的路径有误，禁止从站点外部提交数据请不要乱该参数！"
response.write "</td></tr></table></center>"
response.end
end if
%>