ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
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



相关文章

相关软件