<%@ import Namespace="System.Data.ADO" %>
<%@ import Namespace="System.Data" %>
Sub Page_Load(sender As Object, e As EventArgs)
If Not Page.IsPostBack Then
Step1.Visible = True
Step2.Visible = False
Step3.Visible = False
End If
End Sub
Sub Button1_Click(sender As Object, e As EventArgs)
Dim ConnStr,SqlQuery As String
Dim i As Integer = 0
ConnStr = "Driver={SQL Server}; Server=localhost; Uid=sa; pwd=; database=mytest"
SqlQuery = "Select vcName, vcTel, vcAddr From tb_User Where vcUserID = '" & UserID.Text & "' And vcPassword = '" & Password.Text & "'"
Dim Cmd As ADODataSetCommand = New ADODataSetCommand(SqlQuery, ConnStr)
Dim Rs As DataSet = New DataSet()
Cmd.FillDataSet(Rs, "tb_User")
Dim Dt As DataTable = Rs.Tables("tb_User")
i = Dt.Rows.Count
If i = 1 Then
Name.Text = Dt.Rows(0).Item(0)
Tel.Text = Dt.Rows(0).Item(1)
Addr.Text = Dt.Rows(0).Item(2)
Step1.Visible = False
Step2.Visible = True
Step3.Visible = False
Else
Step1.Visible = True
Step2.Visible = False
Step3.Visible = False
div1.innerHTML = "µÇ¼ʧ°Ü!Çë¼ì²éÄãµÄÕʺźÍÃÜÂëÊÇ·ñÕýÈ·!"
End If
End Sub
Sub Button2_Click(sender As Object, e As EventArgs)
Step1.Visible = False
Step2.Visible = False
Step3.Visible = True
div3.innerHTML = "Õʺţº" & UserId.Text & "
"
div3.innerHTML &= "ÐÕÃû£º" & Name.Text & "
"
div3.innerHTML &= "µç»°£º" & Tel.Text & "
"
div3.innerHTML &= "µØÖ·£º" & Addr.Text & "
"
End Sub
Sub Button3_Click(sender As Object, e As EventArgs)
Dim ConnStr, SqlQuery As String
ConnStr = "Driver={SQL Server}; Server=localhost; Uid=sa; pwd=; database=mytest"
SqlQuery = "Update tb_User Set vcName = '" & Name.Text & "', vcTel = '" & Tel.Text & "', vcAddr = '" & Addr.Text & "'"
Dim Cmd As ADOCommand = New ADOCommand(SqlQuery, ConnStr)
Cmd.ActiveConnection.Open()
Cmd.Execute()
If Cmd.RecordsAffected = 1 Then
div4.innerHTML = "ÄãµÄ¸öÈË×ÊÁÏÒѾ±»ÕýÈ·ÐÞ¸Ä!°´´Ë·µ»ØµÇ¼"
Else
div4.innerHTML = "·¢Éú´íÎó!°´´Ë·µ»ØÖØÐÂÐÞ¸Ä"
End If
End Sub

