防止站外提交的代码

<%dim ComeUrl,cUrl
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER")))
if ComeUrl="" then
 response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。</font></p>"
 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
  response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p>"
  response.end
 end if
end if
%> 

以上代码仅可防止简单的站外提交，要做完整的安全防护，还有很多东西要做...