我作的登录的代码,目的是让用户看一下自己填写的考号根姓名是否对应
Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Dim drFound() As System.Data.DataRow
Dim dr As System.Data.DataRow
drFound = Me.DsZkzh.ks_zkzh.Select("zkzh='" & text1.Value.Trim & "'")
If drFound.Length = 0 Then
Me.Label1.Text = "输入不正确,请重输"
Me.TextBox3.Text = ""
Else
dr = drFound(0)
If Me.TextBox3.Text = dr.Item("xyxm") Then
Response.Redirect("info.aspx?name=" + TextBox3.Text + "&zkzh=" + text1.Value)
Else
Me.Label1.Text = "此考号已登录,请检查考号或与考务人员联系"
End If
End If
Me.TextBox3.Text = dr.Item("xyxm")
End If
End Sub