|
|
2个简单的检测外部提交函数 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
函数ChkPost() 检测用户当前所在服务器名是否存在于来源页面
代码如下:
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 |
函数PostCheck() 很简单的检测,就是检测提交是否为POST方式
代码如下:
Function PostCheck() PostCheck=False If Lcase(Request.ServerVariables("Request_Method"))="post" Then PostCheck=True End Function | 
|
|
相关文章:相关软件: |
|