📄 list.asp
字号:
<!--#include file="../../System/Const.asp"-->
<!--#include file="../../System/misc.asp"-->
<%
if cstr(session("usertype"))<>cstr(UTP_ADMIN) then
Response.Redirect "../../system/relogin.asp?Info=你的身份检查，出现错误！"
end if
%>
<%
if request("PageSize") <> "" then session("PageSize") = clng(request("PageSize"))
if Request.QueryString("sql")<>"" then
if Request.QueryString("sql")="All" then
session("sql")=""
else
session("sql")=Request.QueryString("sql")
session("sql")=replacechar(session("sql"), "/", "%")
end if
session("AbsolutePage")=1
end if
set cn=server.CreateObject("ADODB.connection")
cn.Open DSN_ACLASS
set resultAll=server.CreateObject("ADODB.recordset")
strSQLAll="select * from TBL_SRUSER "&session("sql")
strSQLAll=strSQLAll+" order by SCHOOLID,USERNAME"
'Response.Write strSQLALL
'Response.End
resultAll.Open strSQLAll,cn,adOpenStatic
resultAll.PageSize=session("PageSize")
'Response.Write resultAll.PageCount
' if resultall.RecordCount =0 then
' Response.Write "<p align=center>目前不存在任何用户。</p>"
'Response.Write "<p align=right><a href='vbscript:history.back'>返回</a></p>"
' response.end
'end if
'Response.Write AbsolutePage
if isnumeric(trim(Request.QueryString("AbsolutePage"))) then
session("AbsolutePage")=clng(trim(Request.QueryString("AbsolutePage")))
else
select case Request.QueryString("Direction")
case "FirstPage": session("AbsolutePage")=1
case "PreviousPage": session("AbsolutePage")=session("AbsolutePage")-1
case "NextPage": session("AbsolutePage")=session("AbsolutePage")+1
case "LastPage": session("AbsolutePage")=ResultAll.PageCount
case else:
end select
end if
if resultAll.PageCount<session("AbsolutePage") then
session("AbsolutePage")=resultAll.PageCount
else
if session("AbsolutePage")<1 then session("AbsolutePage")=1
end if
%>
<HTML>
<BODY bgcolor="#CDC8CF" leftmargin="0" topmargin="10" >
<!--#include file="Header.asp"-->
<!--下面包含头文件-->
<!--下面包含显示所有用户的列表-->
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" align="center" height="70%">
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" bgcolor="#EFEFEF" height="20" valign="bottom"> 你现在的位置：单收用户管理－用户列表</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="28"></td>
<form action="list.asp" method=get id=form2 name=form2 height=30>
<td width="764" height="28">
<div align="right"><nobr>每页最多显示
<input maxlength=3 size=3 name="pagesize" id="pagesize" value=<%=session("pagesize")%>>
条记录(注:重新设定该值后，必须点击"Go"按钮才生效！)
<input maxlength=8 size=3 name="AbsolutePage" id="AbsolutePage">
页
<input type=submit value=" Go " id=submit1 name=submit1 class="font9">
<% if session("AbsolutePage")>1 then %>
<a href="list.asp?Direction=FirstPage">首页</a> <a href="list.asp?Direction=PreviousPage">上页</a>
<% else %>
首页 上页
<% end if %>
<% if session("AbsolutePage")<ResultAll.PageCount then %>
<a href="list.asp?Direction=NextPage">下页</a> <a href="list.asp?Direction=LastPage">尾页</a>
<% else %>
下页 尾页
<% end if %>
<%=session("AbsolutePage")%>/<%=ResultAll.PageCount%>页 </nobr>
</div>
</td>
</form>
<td bgcolor="#8C9A8C" width="3" height="28"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3"></td>
<td width="764" valign="top">
<form method="post" action="delete.asp" name="form1" id="form1" width="100%">
<table width="98%" border="0" bgcolor="D1D8D0" align="center">
<tr bgcolor="EFEFEF">
<td width="7%">
<input type="button" name="btSelAll" value="全选" onClick=Jscript:SelectAll()>
</td>
<td width="10%"><b>用户名</b></td>
<td width="11%"><b>密码</b></td>
<td width="11%"><b>用户硬件ID</b></td>
<td width="16%"><b>所属公司</b></td>
<td width="6%"><b>修改</b></td>
</tr>
<% if session("AbsolutePage")>0 and resultAll.PageCount<>0 then resultAll.AbsolutePage=session("AbsolutePage")
for i=1 to resultAll.PageSize
if resultAll.EOF then exit for %>
<tr bgcolor="EFEFEF">
<td width="7%">
<input type="checkbox" value="<%=resultAll("id")%>" name="SelectedUser">
</td>
<td width="10%"> <%=resultAll("USERNAME")%></td>
<td width="11%"> <%=resultAll("PASSWORD")%></td>
<td width="11%"> <%=resultAll("UID")%></td>
<td width="16%"> <%=NameFromID(cn, "SCHOOL", "ID", "NAME", resultAll("SCHOOLID"))%></td>
<td width="6%"><a href="edit.asp?user_id=<% =resultAll("ID")%>" title="修改">修改</a></td>
</tr>
<%resultall.movenext
next%>
</table>
<p align="center">
<input type="button" value="删除" id="delete" name="delete" onClick="jscript:OnDelete()" title="删除用户">
</p>
</form>
</td>
<td bgcolor="#8C9A8C" width="3"></td>
</tr>
<tr>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
<td width="764" bgcolor="EFEFEF" height="21">
<div align="center"><%=COMPANY%></div>
</td>
<td bgcolor="#8C9A8C" width="3" height="21"></td>
</tr>
</table>
<table width="770" border="0" cellspacing="0" cellpadding="0" bgcolor="#8C9A8C" align="center">
<tr>
<td height="4"></td>
</tr>
</table>
<script language=jscript>
var isChecked
ischecked=true;
function SelectAll()
{
var i;
var a = document.all.item("SelectedUser");
if (a != null)
{
if (a.length!=null)
{
for (i=0; i<a.length; i++)
a(i).checked=ischecked;
}
else
{
a.checked=ischecked;
}
if (ischecked)
ischecked=false;
else
ischecked=true;
}
}
function OnDelete(action)
{
var ret=showModalDialog("dlgyesno.asp","真要删除用户吗？","dialogWidth:300px;dialogHeight:120px;status:0;");
if (ret == "YES")
{
form1.submit();
}
}
</script>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -