2个简单的检测外部提交函数

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > Web开发 > Asp > 综合文章

2个简单的检测外部提交函数

作者:未知时间:2004-10-28 12:12 出处:Blog 责编:chinaitpower

摘要：暂无

函数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

关闭本页