关于“ Microsoft VBScript 运行时错误 '800a01a8' 缺少对象: '' ”的问题
各位前辈,你们好!可以帮我解决一下以下问题吗?谢谢!
(Microsoft VBScript 运行时错误 '800a01a8' 缺少对象: '')
程序代码:
<FORM METHOD=POST ACTION="">
帐号:<input type=text name="name"><br>
密码:<input type=password name="password"><br>
<input type=submit value="确定"><input type=reset value="重填">
</FORM>
<%
Dim hao,ma
hao=Trim(request.Form("name"))
ma=Trim(request.Form("password"))
If hao<>"" And ma<>"" Then
Dim rs,strsql
Set rs=server.CreateObject("adodb.recordset")
strsql="select* from users where name='"& hao &"' and password='"& ma &"'"
rs.open strsql,db,1,1
End if
If rs.Eof And rs.Bof Then
response.write "用户不存在,请重新输入"
Else
response.redirect"liao_tang.asp"
End if
%>
-----------------------------------------------------------------------------------------------------------
错误指向:If rs.Eof And rs.Bof Then 这一句