高考问答俄罗斯是共产主义吗:关于asp中防止垃圾留言的代码看不懂,望高手帮忙!
来源：百度文库 编辑：高考问答 时间：2024/04/28 16:35:21
代码如下:
dim ComeUrl,cUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
MessageBox "错误信息：对不起，为了系统安全，不允许直接输入地址访问本页面。"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
MessageBox "错误信息：留言本防垃圾留言功能已经打开，禁止从外部链接地址提交留言。"
response.end
end if
end if
dim ComeUrl,cUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
MessageBox "错误信息：对不起，为了系统安全，不允许直接输入地址访问本页面。"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME"))
if mid(ComeUrl,len(cUrl)+1,1)=":" then
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT")
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME"))
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then
MessageBox "错误信息：留言本防垃圾留言功能已经打开，禁止从外部链接地址提交留言。"
response.end
end if
end if
这里分两段,一段是读取前面的来源URL如果为空则:MessageBox "错误信息：对不起，为了系统安全，不允许直接输入地址访问本页面。"
再后面一段则是提取URL的"http://********/中间的*******段即去掉HTP://头后 后面第一个"/"字符前面段,跟自己设定的URL比较,不符合则为外部地址递交的,但这样的后果是容易被NORTON的FIREWALL 阻挡.建议采用随机验证码来处理防止垃圾留言(自动留言机提交)