Question

ASP代码,能帮忙翻译下吗?

代码如下:

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

AdminName=replace(session("AdminName"),"'","")
if AdminName="" then
call CloseConn()
response.redirect "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("login.asp")
response.End()
end if
%>

Answer 1

<%
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")) 'lcase:返回字母的小字.request.ServerVariables("SCRIPT_NAME"))是获取执行脚本的名称
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))<>lcase(left(cUrl,instrrev(cUrl,"/"))) then '如果上一页的域名和本页的无名不同,则提示错误.left(cUrl,instrrev(cUrl,"/")):如果域名最后有"/",则去掉这个"/"
response.write "<br><p align=center><font color='red'>对不起，为了系统安全，不允许从外部链接地址访问本系统的后台管理页面。</font></p> "
response.end
end if
end if

AdminName=replace(session("AdminName"),"'","") '将管理员的名称赋值给变量AdminName.session是一种服务器变量,有兴趣可以去搜索一下.
if AdminName="" then
call CloseConn() '调用CloseConn过程
response.redirect "login.asp" '转向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("login.asp")
response.End()
end if
%>

Answer 2

太多了,没时间,不过很简单的,你可以一行一行,在百度收