当前位置: 代码迷 >> ASP >> ADODB.Recordset (0x800A0BB9)异常
  详细解决方案

ADODB.Recordset (0x800A0BB9)异常

热度:764   发布时间:2012-03-28 15:40:03.0
ADODB.Recordset (0x800A0BB9)错误。
执行时便提示:
错误类型:
ADODB.Recordset (0x800A0BB9)
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
代码如下:请看哪里有问啊

<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE>登录</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="inc/Basic Style.css" rel="stylesheet" type="text/css" media="all">
</HEAD>

<BODY >
<form name="loginForm" action="CheckLogin.asp" method="post" style="margin-top:65px;">
<table width="400" border="0" align="center" cellspacing="0" style="border:1px solid #000;">
  <tr>
<td height="14" colspan="2" ></td>
  </tr>
  <tr>
<td height="30" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;登录 </td>
  </tr>
  <tr>
<td height="30" bgcolor="#F5F6FB">
<div align="center">用户名:</div></td>
<td bgcolor="#F5F6FB">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from sys"
rs.open sql,conn,1,3
response.write rs.recordcount
response.end
%>
  <select name="sys_username" id="sys_username">
  <option value="0" selected="selected">请选择用户名</option>
<%Do While Not rs.Eof%>
  <option value="<%=Rs("sys_username")%>"><%=Rs("sys_name")%></option>
 <% Rs.MoveNext
loop
  %>
</select>
</td>
  </tr>
  <tr>
<td height="30" bgcolor="#F5F6FB">
<div align="center">密 码:</div></td>
<td bgcolor="#F5F6FB">
<input name="sys_pswd" type="password" id="sys_pswd" size="30" maxlength="25" /> </td>
  </tr>
  <tr>
  <td height="30" bgcolor="#F5F6FB"><div align="center">验证码:</div></td>
  <td bgcolor="#F5F6FB">
<input name="VerifyCode" type="text" id="VerifyCode" size="5" maxlength="4" />
  &nbsp;&nbsp;<img src="inc/checkcode.asp" border="0" alt="验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='inc/checkcode.asp'" /> </td>
  </tr>
  <tr>
  <td height="35" bgcolor="#F5F6FB">&nbsp;</td>
  <td bgcolor="#F5F6FB">

<div align="left">
  <input type="submit" name="Submit" value="登 录" />
  &nbsp; &nbsp;
  <input type="reset" name="Reset" value="清 除" />
  </div></td>
  </tr>
  <tr>
<td height="14" colspan="2" background="images/end.gif"></td>
  </tr>
</table>
</form>
</BODY>
</HTML>


conn.asp代码如下:
<%@CodePage=936%>
<%
Server.ScriptTimeout = 999999999

Response.Buffer = True
Const IsSqlDataBase=0 '定义数据库类别,0为Access,1为SQL数据库
Const IsDeBug = 1 '调试模式,1显示数据库查询的错误信息,2显示所有错误信息
Dim StarTime, EndTime
  相关解决方案