IF Login1.UserName="aaa" and Login1.PassWord="123" THEN '如果用户名为"aaa"并且密码为"123" Lable1.Text="<script>window.open('a.asp');</script>" ELSE Lable1.Text="<script>alert('你输入的登陆信息不正确!');</script>" END IF
Dim strsql As String = "select Designation from Employees where EmpID='" & Textname.Text & " ' and Password='" & TextPwd.Text & " ' "判断就一句话 Dim mycon As New SqlConnection(ClassLibrary1.SQLClass1.Connstr) Dim mycom As New SqlCommand(strsql, mycon) Dim myreader As SqlDataReader连数据库用的