关与按扭的问题
程序代码：
<!--#include file="lianku.asp"-->
<%
sql="select * from zhuce1"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<%
rs.pagesize=10
zy=rs.pagecount
dq=int(request("page"))
if dq<=0 then dq=1
if dq="" then zy=1
rs.absolutepage=dq
%><title>用户类型</title>
<label></label>
<form>
<table width="618" height="66" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="200" align="center" bgcolor="#CCFFFF">用户名</td>
<td width="200" align="center" bgcolor="#CCFFFF">用护类型</td>
<td width="200" align="center" bgcolor="#CCFFFF">操作</td>
</tr>
<% for i=1 to 10
if rs.EOF then
Exit For
end if
%>
<tr>
<td align="center" bgcolor="#99CCFF"><%response.write(rs("mingcheng"))%></td>
<td align="center" bgcolor="#99CCFF"> <% utype=rs("utype")
if utype=2 then
response.Write("超级管理员")
else
response.Write("普通用户")
end if
%></td>
<td align="center" bgcolor="#99CCFF"><label>
<input name="Submit2" type="submit" value="编辑类型" onClick="window.location.href='bjlx.asp?id=<%rs("id")%>'" >
<input type="submit" name="Submit" value="删除" onClick="window.location.href='bjlx.asp?id=<%=rs("id")%>'">
</label></td>
</tr>
<%
rs.movenext
next
%>
</table>
</form>
<p align="center">
<%if dq=1 and dq<>zy then%>
第一页｜上一页｜
<a href="admin.asp?page=<%=dq+1%>">下一页</a>|
<a href="admin.asp?page=<%=zy%>">最后页</a>
<% elseif dq<>1 and dq<>zy then %>
<a href="admin.asp?page=1">第一页</a>|
<a href="admin.asp?page=<%=dq-1%>">上一页</a>|
<a href="admin.asp?page=<%=dq+1%>">下一页</a>|
<a href="admin.asp?page=<%=zy%>">最后页</a>
<%elseif dq=zy then%>
<a href="admin.asp?page=1">第一页</a>|
<a href="admin.asp?page=<%=dq-1%>">上一页</a>|
下一页|最后页
<%end if%> Microsoft VBScript 运行时错误 错误 '800a01c2'
错误的参数个数或无效的参数属性值: 'rs'
/admin1.asp，行 41
是怎么回事呀?版主再帮下忙百?
