1、用户登录表单 p align=" center"> 用户名   REA  body> htmI> 2、检查用户登录信息(Ceck.asp) 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"密码与用户名不正确!请重新输入!<A
1、用户登录表单 用户登录界 面 用 户 名 密码 2、检查用户登录信息(Ceck.asp) 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
href= login. htm>返回" Else Session( check )=1 Response. Redirect mm. asp End if Response. Write"密码与用户名不能为空!返回 Response. End End if ElseIf Request("ok")="注册"Then Response. Redirect Regist. htm End if 3、用户注册表单( Regist.asp) p align=" center") Form method="POST" action="regch asp"> p>客户编号 溶码(int. type= password” name="PSW S1ey经证 身份证号 专科本科硕士 工人 邮政编码 联系电话 input type="text name="LXDH size=14"> Email input type="submit" value=" iE #f
href=login.htm>返回" Else Session("Check")=1 Response.Redirect "mm.asp" End if Else Response.Write "密码与用户名不能为空!返回 " Response.End End if ElseIf Request("ok")="注册" Then Response.Redirect "Regist.htm" End If %> 3、用户注册表单(Regist.asp) 用户 注册界面 客户编号 客户姓名 密 码 验 证 身份证号 教育程度 专科 本科 硕士 工人 通信地址 邮政编码 联系电话 Email <input type="submit" value=" 注 册
name="ok"> /font> 4、用户注册管理( Reach. If request("ok")="注册"Then nBh=Request(BH") n Name=Trim(R nPswl=Trim(Request(PSW")) nPsw2=Trim(Request(PSW1")) nYzbm=re nLxdh=Request("LXDH") n Eml=Request( EMAIL If nPswl=nPsw2 And nPswl<>Empty Then Set objConn=Server CreateObject("ADODB Connection ob jConn Open Proider=MSDASQL Driver= SQL Server: Server=g10; Database=BookOnline; UID=sa; PWD=1234 Sqlstr="Select From Where name=’"& n Name&" Set rs Conn=server CreateObject("ADODB. RecordSet") rsConn. Open Sqlstr, ob jConn, 2, 3, 1 If rsConn Eof Then Array(Customer ID", Customer name","Password",CardId","Education Address", Zip", TelePhone",Email") Array(nBh, nName, nPswl, nSfzh, nXL, n Txdz, nYzbm, nLxdh, nEm1)
name="ok"> 4、用户注册管理(Regch.asp) Empty Then Set objConn=Server.CreateObject("ADODB.Connection") objConn.Open "Proider=MSDASQL;Driver={SQL Server};Server=g10;Database=BookOnline;UID=sa;PWD=1234" SqlStr="Select * From Customer Where Customer_name='"&nName&"'" Set rsConn=server.CreateObject("ADODB.RecordSet") rsConn.Open SqlStr, objConn,2,3,1 If rsConn.Eof Then rsConn.AddNew Array("Customer_ID","Customer_name","Password","CardId","Education"," Address","Zip","TelePhone","Email"),_ Array(nBh,nName,nPsw1,nSfzh,nXL,nTxdz,nYzbm,nLxdh,nEml)
登录(4 Response. Write”恭喜您已注册成功!返回" Response. Write"两次输入的密码不一样,请重新输入!返回 End if End if
Response.Write "恭喜您已注册成功! 登录" Else Reponse.Write "用户名以被其他用户占用,请重新输入! 返回" End if Else Response.Write " 两 次 输 入 的 密 码 不 一 样 , 请 重 新 输 入 ! 返回" End if End If %>