checkpost.asp

千年免费电影系统 V3.1版 修正了V3.0版后台无法登陆的问题

<%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

if chkpost=false then%>

小子！你想干嘛？不要黑我的程序啊！

<%
response.end
end if
%>