Question

如何禁止地址栏输入ASP地址访问后台？

如题
请详细说明每个步骤和相关代码，不要在其他地方复制过来当自己的回答，我搜索过其他的，但是还是不行。

<%
dim ComeUrl,cUrl,AdminName

ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER"))) '来源页
if ComeUrl="" then '来源页为空
response.Write "对不起，不允许直接输入管理页面地址"
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 "对不起，不允许直接输入管理页面地址"
response.end
end if
end if
AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "admin_login.asp"
response.End()
end if
sql="select username from admin where username='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("admin_login.asp")
response.End()
end if
%>

提示call CloseConn()这里错误，该函数怎样加进CONN文件。我的CONN文件是这样的：

<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
%>

我都是用DW2004做的。帮我加进去吧，要怎样写？谢谢！
我用的用户的表是admin，用户名和密码都是ADMIN
CONN文件如下，怎样加入CLOSECONN（）函数？
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")
%>

Answer 1

<!--#include file="inc/conn.asp"-->
<%
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
response.write ("<script>alert('友情提示：禁止外部提交操作!');window.opener=null;javascript:window.close();</script>")
response.end
end if

dim Name
Name=replace(session("Name"),"'","")
if Name="" then
response.Write("<script language='javascript'>top.location='Login.asp';</script>")
response.end
end if

Answer 2

CloseConn是关闭数据库连接的函数,类型不匹配,说明它不是作为函数出现.
在包含的conn.asp(这个文件一般是用来数据库的)中加入这样一句就可以了:
sub CloseConn()
conn.close
end sub

Answer 3

前面你的提问没有明白你的意思
但是你的CONN.ASP文件里面没有CLOSECONN这个函数当然会报错！
有需要的话给我留言！帮你解决！