新人求教后台管理

#2

towering2011-12-21 13:21

程序代码：

<form name="loginForm" method="post" action="?action=Check" onSubmit="return CheckForm();">
    <table width="500" border="0" align="center" id="login">
        <tr>
            <th colspan="2" align="left" scope="col">管理员登陆</th>
        </tr>
        <tr>
            <td width="131" align="right" valign="middle">用户名：</td>
            <td width="359" align="left" valign="middle"><input id="username" name="username" type="text" /></td>
        </tr>
        <tr>
            <td align="right" valign="middle">密  码：</td>
            <td align="left" valign="middle"><input id="password" name="password" type="password" /></td>
        </tr>
        <tr>
            <td colspan="2" align="center"><input name="input" type="submit" value="确定"  style="height:30px;" /></td>
        </tr>
        <tr>
            <td colspan="2" align="center" class="copyrhght">CopyRight ©2009-2010 <a target="_blank" href="http://www.">办公100分</a>.All Rights Reserved.</td>
        </tr>
    </table>
</form>

处理页面

程序代码：

if Request.QueryString("action")="Check" then
    Dim username,password
    Dim sql,rs
    username = trim(replace(request.form("username"),"'",""))
    password = trim(replace(request.form("password"),"'",""))

    set rs = server.createobject("adodb.recordset")
    sql = "select * from Admin where UserName = '"&username&"'"
        rs.open sql,conn,1,3
            if rs.eof and rs.bof then
              Response.write "<script>alert('没有这个用户名!');</script>"
              Response.End()
            else
                if  rs("password") <> md5(password) then
                    Response.write "<script>alert('密码错误!');';</script>"
                    Response.End()
                else
                    Session("UserName")=username
                    Response.Redirect("main.asp")
                end if
            end if
        rs.Close
    Set rs=Nothing
End if

#3

piaoxue2011-12-21 15:37

楼上的言简意赅！呵呵

#4

jonathen2012-02-14 12:33

想问一下 2楼这样的判断是否会产生一个用户名可以通过多个密码访问呢？假如说李四和张三都注册了那么张三也可以用李四的密码登录！

#5

jonathen2012-02-14 14:27

我想说的是两个条件应该一起判断！

#6

ysf01812012-02-14 15:16

if Request.QueryString("action")="Check" then
    Dim username,password
    Dim sql,rs
    username = trim(replace(request.form("username"),"'",""))
    password = trim(replace(request.form("password"),"'",""))
    if username = "" then
       写入提示
       response.end
    end if
    if password = "" then
       response.end
    end if
    '还有对提交的数据是否含有 SQL注入符号
    set rs = server.createobject("adodb.recordset")
    sql = "select * from Admin where UserName = '"&username&"'"
        rs.open sql,conn,1,3
            if rs.eof and rs.bof then
              Response.write "<script>alert('没有这个用户名!');</script>"
              Response.End()
            else
                if  cstr(rs("password")) <> cstr(md5(password)) then
                    Response.write "<script>alert('密码错误!');';</script>"
                    Response.End()
                else
                    Session("UserName")=username
                    Response.Redirect("main.asp")
                end if
            end if
        rs.Close
    Set rs=Nothing
End if

[ 本帖最后由 ysf0181 于 2012-2-14 15:17 编辑 ]

#7

jonathen2012-02-14 16:47

这个还是一样吧！
sql = "select * from Admin where UserName = '"&username&"'and password='"password"'"
rs.open sql,conn,1,3
if rs.eof then
Response.write "<script>alert('用户名已存在或者密码错误!');</script>"
Response.End()
else
Session("UserName")=username
Response.Redirect("main.asp")
end if
这个部分的代码改成这样是不是能够避免我所说的那个问题呢！我新手！刚学这个东西！有错的地方希望高手指出！

#8

ysf01812012-02-14 17:10

你这样写，安全性比较底的。

#9

jonathen2012-02-15 09:32

为什么？对于这个东西我是初学！所以有很多地方都不怎么懂！我的疑问就是你这样的判断会不会导致张三注册了李四也注册了然后张三登录账户名是存在的然后他用的是李四的密码是不是也同样可以登录？

新人求教 后台管理