源码问题

我下了个整站，传到网上，可以管理。可是第二天就不能管理了。系统提示“对不起，为了系统安全，不允许直接输入地址访问本系统的后台管理页面。”这是怎么回事？
代码如下
<%
dim ComeUrl,cUrl,AdminName

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"))

end if

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "login.asp"
response.End()
end if
s

源码问题 关于ASP源码问题 网页源码的问题 vb源码问题求助 C源码编译问题 修改源码得问题, 网站源码问题 asp源码修改问题 求助，ASP源码问题 CGI源码问题