正在加载图片...
1、用户登录表单 p align=" center">< sfont face="华文行楷"size="6" color="HF°用户登录界 面<font></p> <form method="POST"action="check. asp"> <p align=" center">用户名 < Input type="text"name="xm size=20>   REA  <input type="password"name="psw"size=20"></p p align=center"><input type="submit"value="I. "name="ok"><input type=" submit" value="注册"name="ok"> < Input type=" reset" value="全部重写"name="B2"p </form> body> htmI> 2、检查用户登录信息(Ceck.asp) < @language=Vbscript % If Request("ok")="登录"Then nName=Trim(Request("XM")) nSw=Trim (re If nName >Empty And nPsw<>Empty Then Set ob j Conn=Server. CreateObject("ADODB Connection) ob jConn Open"Provider=MSDASQL; Driver=[SQL Server) Server=dq DataBase=BookOnline: Uid=sa; PWD=1234 sqlStr="Select From Customer " Where Customer Name="&nName& And password=&nPsw& Set rs Conn=Server CreateObject("ADODB. RecordSet") rsConn. Open sqlstr, ob jConn, 2, 3 If rsConn. Eof Then Session (check)=0 Response. Write"密码与用户名不正确!请重新输入!<A1、用户登录表单 <html> <body> <p align="center"><font face="华文行楷" size="6" color="#FF0000">用户登录界 面</font></p> <hr> <form method="POST" action="check.asp"> <p align="center"> 用 户 名 <input type="text" name="xm" size="20"> 密码 <input type="password" name="psw" size="20"></p> <p align="center"><input type="submit" value=" 登 录 " name="ok"> <input type="submit" value="注册" name="ok"> <input type="reset" value="全部重写" name="B2"></p> </form> <hr> </body> </html> 2、检查用户登录信息(Ceck.asp) <% @language=Vbscript %> <% If Request("ok")="登录" Then nName=Trim(Request("XM")) nPsw=Trim(Request("Psw" )) If nName<>Empty And nPsw<>Empty Then Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open"Provider=MSDASQL;Driver={SQL Server};_ Server=dq;DataBase=BookOnline;Uid=sa;PWD=1234" sqlStr="Select * From Customer “&_ “Where Customer_Name='"&nName&"' _ And Password='"&nPsw&"'" Set rsConn=Server.CreateObject("ADODB.RecordSet") rsConn.Open sqlStr,objConn,2,3,1 If rsConn.Eof Then Session("Check")=0 Response.Write "密码 与用户 名不正 确！请 重新输 入！<A