高校问答合体变形金刚魔怪:登入代码
来源：百度文库 编辑：高校问答 时间：2024/05/03 05:37:39
<%
isPostBack=trim(Request("IsPostBack")+"")
msgErr=""
if isPostBack="PostBack" then
Username=trim(Request("Username")+"")
UserPass=trim(Request("UserPass")+"")
set conn=server.createobject("adodb.connection")
conn.open "DSN=管院网站;UID=sa;PWD=;"
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="select 用户,密码 from admin where 用户='" + username + "'"
rs.Open strsql,conn
checked=false
if(Not rs.EOF ) then
if userpass=trim(rs("userpass") ) then
checked=true
Session("用户")=trim(rs("username"))
end if
end if
if(checked) then
Response.Redirect("school_library1.asp")
else
msgErr="帐号或密码错误！请重新输入！"
end if
end if
%>
<body>
<form name="form1" method="post" action="" >
<input name="IsPostBack" type="hidden" value="PostBack">
<table border="1" align="center" >
<tr>
<td width="30%">帐号</td>
<td width="70%"><input name="Username" type="text" ></td>
</tr>
<tr>
<td><div align="center">密码</div></td>
<td><input name="UserPass" type="password"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
<tr>
<td colspan="2"><font color="red" ><%=msgErr %></font></td>
</tr>
</table>
</form>
isPostBack=trim(Request("IsPostBack")+"")
msgErr=""
if isPostBack="PostBack" then
Username=trim(Request("Username")+"")
UserPass=trim(Request("UserPass")+"")
set conn=server.createobject("adodb.connection")
conn.open "DSN=管院网站;UID=sa;PWD=;"
Set rs=Server.CreateObject("ADODB.Recordset")
strsql="select 用户,密码 from admin where 用户='" + username + "'"
rs.Open strsql,conn
checked=false
if(Not rs.EOF ) then
if userpass=trim(rs("userpass") ) then
checked=true
Session("用户")=trim(rs("username"))
end if
end if
if(checked) then
Response.Redirect("school_library1.asp")
else
msgErr="帐号或密码错误！请重新输入！"
end if
end if
%>
<body>
<form name="form1" method="post" action="" >
<input name="IsPostBack" type="hidden" value="PostBack">
<table border="1" align="center" >
<tr>
<td width="30%">帐号</td>
<td width="70%"><input name="Username" type="text" ></td>
</tr>
<tr>
<td><div align="center">密码</div></td>
<td><input name="UserPass" type="password"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
<tr>
<td colspan="2"><font color="red" ><%=msgErr %></font></td>
</tr>
</table>
</form>