 |
|
禁止站外資料寫入，禁止外部提交
作者:nnickk 日期:2006-06-29 10:54
CODE:
Function ChkPost()
Dim server_v1,server_v2
chkpost=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
chkpost=False
Else
chkpost=True
End If
End function
- 1
