📄 usercode_confrim_auditlist.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0105"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<%
dim objrec 'recordset对象
dim strsql 'sql语句
if not Request.QueryString("strsql")="" then
select case Request.QueryString("strsql")
case "query" '由查询转来
dim usercode
dim username
dim departcode
usercode=trim(Request.Form("usercode"))
username=trim(Request.Form("username"))
departcode=trim(Request.Form("departcode"))
'生成查询语句
'复选框选中时,strQueryType="%"
if Request.Form("checkbox").Count=1 then
strQueryType="%"
else
strQueryType=""
end if
'无任何where选项时
strsql="select 用户编码,用户姓名,用户类型,有效标志 from XT_VC_user where left(用户编码,3)='"+left(session("usercode"),3)+"'"
'按查询界面各输入框生成多条件where选项
if not usercode="" then
strSQLWhere=strSQLWhere+" and 用户编码 like '"+strQueryType+usercode+strQueryType+"'"
end if
if not username="" then
strSQLWhere=strSQLWhere+" and 用户姓名 like '"+strQueryType+username+strQueryType+"'"
end if
if not departcode="" then
strSQLWhere=strSQLWhere+" and 部门编码 like '"+strQueryType+departcode+strQueryType+"'"
end if
strSQL=strSQL+StrSQLWhere
case else '各页间转换
strsql=Request.QueryString("strsql")
end select
%>
<%
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
objres.Open strsql,strconn
dim pagesum '页数
dim thispagerecords '当前页记录条数
dim recordcode '记录序号
dim curpage '当前页码
dim pagesize
pagesize=20
pagesum=objres.PageCount
if Request.QueryString("page")=""then curpage=1 else curpage=Request.QueryString("page")
if cint(curpage)> cint(pagesum) then curpage=pagesum '转换成整数格式时必须的，大量实验已经证明
end if
%>
<html>
<head>
<title>用户信息列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
TD {FONT-SIZE: 9pt}
</style>
<script language=javascript>
function open1(Code)
{
window.open("User_MoreDisplay.asp?Code="+Code,"用户详细资料","height=410,width=500,toolbar=no,menubar=no,scrollbars=yes,resizable=no,status=no,location=no")
}
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="300" valign="top">
<% if not Request.QueryString("strsql")="" then %>
<form name=ConList method="post" action="../user/UserCode_Confrim_AuditList.asp?muldel=muldel&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<% else %>
<form name=ConList method="post" action="../user/UserCode_Confrim_AuditList.asp">
<%
end if
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="457"><img src="Images/title_user.gif" width="227" height="38"></td>
<td align="center"> <a href=..\User\UserCode_Query.asp><font color="#006699">重新查询</font></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#006699">
<tr bgcolor="#6699CC">
<td width="53" height="18">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="113" height="18">
<div align="center"><font color="#FFFFFF">用户编码</font></div>
</td>
<td width="226" height="18">
<div align="center"><font color="#FFFFFF">用户姓名</font></div>
</td>
<td width="147" height="18">
<div align="center"><font color="#FFFFFF">用户类型</font></div>
</td>
<td width="129" height="18">
<div align="center"><font color="#FFFFFF">有效标志</font></div>
</td>
<td width="88" height="18" align="center"><font color="#FFFFFF">详细资料</font></td>
<td width="88" height="18">
<div align="center"><font color="#FFFFFF">用户设置</font></div>
</td>
</tr>
<%
if Request.QueryString("strsql")="" then Response.End
if objres.RecordCount >pagesize*curpage then thispagerecords=pagesize else thispagerecords=objres.RecordCount-pagesize*(curpage-1)
recordcode=20*(curpage-1)
if objres.RecordCount >0 then
objres.MoveFirst
objres.Move((curpage-1)*20)
else
%>
<tr bgcolor="#FFFFFF">
<td colspan="7">对不起，没有符合要求的记录！</td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="53" height="17" align="center"> <%=recordcode%></td>
<td width="113" height="17"> <%=objres("用户编码")%></td>
<td width="226" height="17"> <%=objres("用户姓名")%></td>
<td width="147" height="17" align="center"><%=objres("用户类型")%>
</td>
<td width="129" height="17" align="center">
<div align="center">
<%if not objres("有效标志")="1" then Response.Write "× " else Response.Write "√" end if%>
</div>
</td>
<td width="88" height="17" align="center"> <a href="javascript:open1('<%=objres("用户编码")%>')"><img src="Images/more.jpg" width="43" height="12" border="0"></a></td>
<td width="88" height="17" align="center">
<div align="center"><a href="UserCode_Confirm_Edit.asp?code=<% = objres.Fields("用户编码").Value %>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>"><img src="../User/Images/more.gif" width="16" height="15" border="0"></a></div>
</td>
</tr>
<% objres.MoveNext
next %>
<tr bgcolor="#6699CC">
<td colspan="7" height="20" align="right">
<%
if curpage>1 then Response.Write ("<a href="+"Usercode_confrim_AuditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"Usercode_confrim_AuditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"Usercode_confrim_AuditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"Usercode_confrim_AuditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </td>
</tr>
</table>
</form>
<br>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -