name="ok">&nbsp; &nbsp; <font size="6 ><input type="reset"value="Ii name="B2>/font></p> </form> </body> </htmI> 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">&nbsp;&nbsp; <font size="6"><input type="reset" value="重写" name="B2"></font></p> </form> <hr> </body> </html> 4、用户注册管理(Regch.asp) <% @Language=VBscript %> <% If Request("ok")="注册" Then nBh=Request("BH") nName=Trim(Request("XM")) nPsw1=Trim(Request("PSW")) nPsw2=Trim(Request("PSW1")) nSfzh=Request("SFZH") nXl=Request("XL") nTxdz=Request("TXDZ") nYzbm=Request("YZBM") nLxdh=Request("LXDH") nEml=Request("EMAIL") If nPsw1=nPsw2 And nPsw1<>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)