<!--#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
 是怎么回事呀?版主再帮下忙百?

onClick="window.location.href='bjlx.asp?id=<%=rs("id")%>'"

我写错了

[ 本帖最后由 longxuanxuan 于 2010-4-12 15:09 编辑 ]