|
dim user,password,errmsguser=trim(request("user"))password=trim(request("password"))if trim(user)="" or trim("password")="" thenerrmsg="用户名，密码都不写！！"elseset rs=server.createobject("adodb.recordset")rs.open"select user,password from user where user='"&user&"'",conn,1,1if rs.bof or rs.eof thenrs.closeconn.closeerrmsg="对不起，找不到该用户！"elseif passwordrs("password") thenerrmsg="密码错误，怎么这么不小心啦！"elsesession("user")=trim(user)session("password")=trim(password)response.redirect("modify.asp") |
