Dim n1 As String = e.form.controls("textbox1").value
Dim n2 As String = e.form.controls("textbox2").value
Dim fdr As DataRow = DataTables("Users").Find("name = '" & n1 & "'")
If fdr Is Nothing
messagebox.show("无此用户")
ElseIf fdr("password")=n2 Then
Else
messagebox.show("您输入的密码错误")
End If