Sub OnlyMyUrl()
Dim Server_v1,Server_v2,FoundErr
'On Error Resume Next '*
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 '*
Call Showmsg("本站禁止外部数据提交<br>谢谢合作","/",1,2)
End If '*
End Sub '*
|
