主题:  请教高手!如何增强密码验证后重定向页面的安全性??

donnysoul

职务:普通成员
等级:1
金币:0.0
发贴:4
#12002/11/29 10:09:51
请教高手!如何增强密码验证后重定向页面的安全性??
这是一个数据库密码验证登录程序login.asp,
代码如下:
<%
Option Explicit
Dim UserName,PassWord
UserName = trim(request.form("username"))
PassWord = trim(request.form("password"))
dim conn,db,TmpRs
db = "data/members.asp"
set conn = server.createobject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(db)
set TmpRs = server.createobject("adodb.recordset")
if Request.ServerVariables("REQUEST_METHOD")="POST" then
    TmpRs.open "Select * from users Where Name='" & UserName & "'",conn,1,1
if tmprs.bof then
%>
        
<%
        response.end '服务器停止响应,也就是下面的语句将不会被处理
    elseif PassWord<>tmprs("PsW") then
%>
        
<%
    else
        session("UserName") = Username
        tmprs.close
        set TmpRs = nothing
        conn.close
        set conn = nothing
        response.redirect("guestbook.htm")
    End if
End if
%>

在login.asp中,如果密码验证通过,将通过重定向转入页面guestbook.htm
{代码是:response.redirect("guestbook.htm")}
其中guestbook.htm的程序如下:




正在进入系统,请稍后......



guestbook.htm只起了转到页面default.asp的作用!
可这样很不安全!访问者访问一次后,知道路径可以直接访问guestbook.htm或default.asp,
我应该怎样来实现禁止访问者直接访问guestbook.htm和default.asp呢??
请教高手!



大肚佛

职务:普通成员
等级:1
金币:1.0
发贴:247
#22002/11/29 12:48:46
username=session("username")
if username="" then
response.redirect"报错页面"
response.end
end if