能判断request.querystring是不是本站网页提交的吗?

谢谢! 问题点数：20、回复次数：3Top

1 楼scoutlin（挖摸追挖摸追挖摸追..）回复于 2005-01-23 13:50:42 得分 10

if   not   IsSelfRefer   then  
  response.write   "no"  
  else  
  response.write   "yes"  
  end   if  
   
  Function   IsSelfRefer()  
  Dim   sHttp_Referer,   sServer_Name  
  sHttp_Referer   =   CStr(Request.ServerVariables("HTTP_REFERER"))  
  sServer_Name   =   CStr(Request.ServerVariables("SERVER_NAME"))  
  If   Mid(sHttp_Referer,   8,   Len(sServer_Name))   =   sServer_Name   Then  
  IsSelfRefer   =   True  
  Else  
  IsSelfRefer   =   False  
  End   If  
  End   FunctionTop

2 楼surferc（(大妹子，缘分啊！)）回复于 2005-01-23 13:53:50 得分 5

可以用Request.ServerVariables("HTTP_REFERER")检测请求地址Top

3 楼myvicy（我来也！）回复于 2005-01-23 14:01:45 得分 5

Request.ServerVariables("HTTP_REFERER")Top

相关问题

• sserver
• isselfrefer
• shttp
• servervariables
• referer
• cstr
• request
• write

• 帖主：wxzcwxzc
• scoutlin
• surferc
• myvicy

• Web开发类图书