rs = aa.Login(username, password)这样可以吗??
为什么我给了rs之后他始终为nothing
If TextBox1.Text = "" Then
Response.Write("<script>alert('用户名不能为空!')</script>")
ElseIf TextBox2.Text = "" Then
Response.Write("<script>alert('密码不能为空!')</script>")
Else Dim username As String
Dim password As String
username = TextBox1.Text
password = TextBox2.Text Dim aa As CZYGL.CZY Dim rs As ADODB.Recordset
rs = Server.CreateObject("ADODB.Recordset")
aa = Server.CreateObject("CZYGL.CZY")
rs = aa.Login(username, password) If rs Is Nothing Then Response.Write("<script>alert('帐号或密码错误!!');</script>") Else
Response.Redirect("index.aspx") End If
End If
这个是我的完整的程序
为什么我给了rs之后他始终为nothing
If TextBox1.Text = "" Then
Response.Write("<script>alert('用户名不能为空!')</script>")
ElseIf TextBox2.Text = "" Then
Response.Write("<script>alert('密码不能为空!')</script>")
Else Dim username As String
Dim password As String
username = TextBox1.Text
password = TextBox2.Text Dim aa As CZYGL.CZY Dim rs As ADODB.Recordset
rs = Server.CreateObject("ADODB.Recordset")
aa = Server.CreateObject("CZYGL.CZY")
rs = aa.Login(username, password) If rs Is Nothing Then Response.Write("<script>alert('帐号或密码错误!!');</script>") Else
Response.Redirect("index.aspx") End If
End If
这个是我的完整的程序
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货