【正文】 ht=24px Width=48px onclick=linkbutton1_click /PFONT face=宋體 /FONT /P /body /HTML 65 算法如下： （ 1） 使用 Connection對象 ， 建立 myconn與數(shù)據(jù)庫連接 （ 2） 定義 DataAdapter對象 da （ 3） 定義 DataSet對象 ds （ 4） 使用 DataAdapter對象的 Fill方法將數(shù)據(jù)放入 DataSet對象中 （ 5） 使用 Command對象向數(shù)據(jù)庫遞交信息 （ 6） 判斷填入的用戶名與 user表中的用戶名是否重復(fù) （ 7） 判斷密碼和確認(rèn)密碼的值是否相同 ， 如不同 ， 則重新輸入 （ 8） 將用戶填入的信息存入相應(yīng)的字段中 （ 9） 使用方法 Add， 將這一行記錄放入表中 （ 10）使用 DataAdapter對象的 Update方法更新 user表中的數(shù)據(jù) 66 圖 用戶注冊資料界面 ： %@ import namespace=% %@ import namespace=% %@ import namespace=% script language=vb runat=server sub button1_click(sender as object,e as eventargs) 67 Dim str As String Dim passstr As String Dim litem as listitem passstr = Trim(CStr()) passagin= Trim(CStr()) str = 39。 amp。 amp。 39。 ?定義查詢用戶名的字符串 Dim sql As String = select * from user where _user= amp。 Trim(str) ?連接數(shù)據(jù)庫 ， 取出 emialuser表中的數(shù)據(jù) ， 放入 dataset中 Dim connstr As String = Provider=SQLOLEDB。server=oyzz。uid=sa。pwd=。database=userdb Dim myconn As New SqlConnection(connstr) Dim da As New SqlDataAdapter(sql, myconn) Dim ds As New DataSet() (ds, user) Dim myrow As DataRow 68 Dim dam As = New (da) ?判斷填入的用戶名與 user表中的用戶名是否重復(fù) If (user). =1 Then “用戶名重復(fù) ， 請重新輸入 ” Else ?判斷密碼和確認(rèn)密碼的值是否相同 ， 如不同 ， 則重新輸入 If passstrpassagin Then (錯誤 ， 兩次密碼輸入不相同 ！ ) Else myrow = (user).NewRow() ?將用戶填入的信息存入相應(yīng)的字段中 myrow(_user) = Trim() myrow(password) = Trim() myrow(passagain) = Trim() myrow(question) = Trim() myrow(response) = Trim() myrow(sex) = Trim() myrow(createtime) = Trim() amp。 amp。 trim() amp。 amp。 trim() 69 myrow(telphone) = Trim() myrow(_add) = Trim() ?使用方法 Add，將這一行記錄放入表中 (user).(myrow) ?更新 user表中的數(shù)據(jù) = (myds, user) ?顯示注冊成功 Session(xstr) = 用戶注冊成功 Session(reguser) = trim() ?進(jìn)入 () End If End if end sub /script HTML HEAD titleWebForm3/title 70 meta name=GENERATOR content=Microsoft Visual Studio .NET meta name=CODE_LANGUAGE content=Visual Basic meta name=vs_defaultClientScript content=JavaScript meta name=vs_targetSchema content= /HEAD body MS_POSITIONING=GridLayout form id=Form1 method=post runat=server TABLE id=Table1 style=ZINDEX: 101。 LEFT: 72px。 WIDTH: 609px。 POSITION: absolute。 TOP: 64px。 HEIGHT: 215px cellSpacing=1 cellPadding=1 width=609 border=0 align=center TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2用戶名： /FONT/TD TD height=22 asp:textbox id=text1 runat=server Width=240px Height=22px/asp:textboxFONT size=2/FONT/TD /TR TR 71 TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2密碼： /FONT/TD TD height=22 asp:textbox id=Text2 runat=server Width=240px Height=22px/asp:textboxFONT size=2/FONT/TD /TR TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2確認(rèn)密碼： /FONT/TD TD height=22FONT face=宋體 asp:textbox id=Text3 runat=server Width=240px Height=22px/asp:textboxFONT size=2/FONT/FONT/TD /TR TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2密碼提示： /FONT/TD TD height=22 asp:textbox id=Text4 runat=server Width=240px Height=22px/asp:textboxFONT size=2/FONT/TD /TR TR 72 TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2密碼回答： /FONT/TD TD height=22 asp:textbox id=Text5 runat=server Width=240px Height=22px/asp:textboxFONT size=2/FONT/TD /TR TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2電話： /FONT/TD TD height=22 asp:textbox id=Text6 runat=server Width=144px Height=22px/asp:textboxFONT size=2/FONT/TD /TR TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2性別： /FONT/TD TD height=22FONT face=宋體 FONT face=宋體 asp:DropDownList id=DropDownList1 runat=server Width=48px Height=24px asp:ListItem Value=男 Selected=True男 /asp:ListItem TR 73 asp:ListItem Value=女 女 /asp:ListItem /asp:DropDownListFONT size=2/FONT/FONT/FONT/TD /TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2出生日期： /FONT/TD TD height=22FONT face=宋體 asp:textbox id=Text7 runat=server Width=40px Height=22px/asp:textbox年 asp:textbox id=Textbox8 runat=server Height=22px Width=40px/asp:textbox月 asp:textbox id=Textbox9 runat=server Height=22px Width=40px/asp:textbox日 /FONT/TD /TR TR TD style=WIDTH: 119px align=left height=22FONT face=宋體 size=2電子郵件： /FONT/TD TD height=22 asp:textbox id=Text10 runat=server Height=22px Width=240px/asp:textbox/TD /TR TR TD style=WIDTH: 119px align=left height=22/TD 74 TD height=22 asp:Button id=Button1 runat=server Width=80px Text=確定 onclick=”button1_click”/asp:Button/TD /TR /TABLE asp:Label id=Label1 style=ZINDEX: 102。 LEFT: 280px。 POSITION: absolute。 TOP: 40px runat=server Height=24px Width=152px用戶注冊資料 /asp:Label /form /body /HTML 4．文件 用戶在注冊之后還可以修改自己的個人信息，在修改信息的界面上顯示出了用戶已有的注冊資料，待用戶修改，如圖 示。 圖 用戶資料修改界面 75 ： %@ import namespace=% %@ import namespace=% %@ import namespace=% script language=vb runat=server sub page_load(sender As , e As ) sql= “select * from user where _user=” amp。 Trim(session(“reguser”)) Dim connstr As String = Provider=SQLOLEDB。server=oyzz。uid=sa。pwd=。database=userdb 76 Dim myconn As New SqlConnection(connstr) Dim da As New SqlDataAdapter(sql, myconn) Dim ds As New DataSet() (ds, user)