管 理 员 列 表
<%'on error resume next
sql="select * from V_Admin9002"
'response.write sql
'response.end()
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,1
'set rs=conn.execute(sql)
%>
<%if not rs.eof then
page=request("page")
rs.pagesize=20
rowcount=0
if page="" then
page=1
rs.absolutepage=1
else
rs.absolutepage=page
end if%>
<%if rs.pagecount >1 then%>
<%end if%>
| 用户名 |
真实姓名 |
所 属 部 门 |
联系电话 |
编 辑 |
<%
while not rs.eof and rowcount < rs.PageSize
rowcount=rowcount+1 %>
| <%=rs("uid")%> |
<%=rs("uname")%> |
<%=rs("bmmc")%> |
<%=rs("lxdh")%> |
<%if session("issuper") ="Y" then%>
')">改
')">删
<%end if%> |
<% rs.movenext
wend
%>
<%if rs.pagecount >1 then%>
|
<%if cint(page)>1 then %>
首 页 上一页
<%else
Response.Write "首 页 "
Response.Write "上一页 "
end if
if cint(page)
下一页 末
页
<% else
Response.Write "下一页 "
Response.Write "末 页 "
end if
%> |
<%end if %>
<% else
response.write"暂无信息!"
end if
rs.close
conn.close %>
|
新增管理员 |