执行时便提示：
错误类型：
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"> 登录 </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" />
<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"> </td>
<td bgcolor="#F5F6FB">
<div align="left">
<input type="submit" name="Submit" value="登 录" />
<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