📄 adminlist_right.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Public title:title = "管理员列表"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title>
<%
if isLogin = false then
Response.Write viewinfo("Logingo","","")
Response.end
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<style type = 'text/css'>
.tempA td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.clicked { color:#ffffff;}
</style>
<script language="JavaScript">
<!--
function clicked_(s) {
var td_len = td_.length;
if (td_len == undefined) {
td_.className = 'clicked';
form.box_.checked = true;
}else{
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td_[i_].className = '';
form.box_[i_].checked = false;
}else{
td_[i_].className = 'clicked';
form.box_[i_].checked = true;
}
}
}
}
function checked_(s) {
var selLen = form.selAnnounce.length ;
if (selLen==undefined) {
if(form.selAnnounce.checked == true) {
selid_.className = 'clicked' ;
}else{
selid_.className = '' ;
}
}else{
if(form.selAnnounce[s].checked == true) {
selid_[s].className = 'clicked';
}else{
selid_[s].className = '';
}
}
}
//-->
</script>
</head>
<body style = 'margin:0px;'>
<div style = 'text-align:center;'>
<%
Rmainid = GetText("maintypeid","G","number",1,10,0)
Rsubid = GetText("subtypeid","G","number",1,10,0)
key_ = trim(Request("key"))
if not key_ = "" then
Public TrueNameSQL , LoginidSQL , PhoneSQL
TrueNameSQL = ""
LoginidSQL = ""
PhoneSQL = ""
TrueName_ =trim(Request("TrueName"))
Loginid_ =trim(Request("Loginid"))
Phone_ =trim(Request("Phone"))
if TrueName_ = "Y" then TrueNameSQL = " or TrueName like '%" & key_ & "%' "
if Loginid_ = "Y" then LoginidSQL = " or Loginid like '%" & key_ & "%' "
if Phone_ = "Y" then PhoneSQL = " or Phone like '%" & key_ & "%' "
LastSQL = ""
if TrueName_ = "Y" then
end if
end if
%>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;'/>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'form' id = 'form'>
<input type = 'hidden' name = 'Options'/>
<input type = 'hidden' name = 'Execute'/>
<tr>
<td style ='height:20px;'>序号</td>
<td>登陆名</td>
<td>姓名</td>
<td>职位</td>
<td>电话</td>
<td>手机</td>
<td>电脑编号</td>
<td style = 'width:35px;text-align:center;'>选择</td>
</tr>
<tr>
<td style ='height:1px;line-height:1px;background-color:#adaaad;border-style:none;' colspan = '8'></td>
</tr>
<%
mainSQL = v1v2(Rmainid,0,""," and ATypeid in(select ATypeid from admintype where ATypeSelect = " & Rmainid & ") ")
subSQL = v1v2(Rsubid,0,""," and ATypeid=" & Rsubid & "")
SQL = "select * from admins where not disabled = 0 " & mainSQL & subSQL & TrueNameSQL & LoginidSQL & PhoneSQL & " Order By aid desc"
'Response.Write SQL
Rs.Open(SQL),Conn,1,1
if not Rs.eof then
dim uCount
thisPageSize = 10
LinkFile = SELVAR("FN","adminlist_right.asp")
LUrl = "&maintypeid=" & Rmainid & "&subtypeid=" & Rsubid
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_u = 1 to thisPageSize
if Rs.eof then exit for
Aid = Rs("aid")
Loginid = Rs("Loginid")'登陆名
LoginPassWord = Rs("LoginPassWord")'登陆密码
TrueName = Rs("TrueName")'真名
PcNum = Rs("PcNum")'电脑编号
Place = Rs("Place")'职位
Phone = Rs("Phone")'联系电话
MobileTelephone = Rs("MobileTelephone")'移动电话
Website = Rs("Website")'网址
Email = Rs("Email")'Email
Zip = Rs("Zip")'邮编
IdCard = Rs("IdCard")'身份证
Birthday = Rs("Birthday")'生日
NativePlace = Rs("NativePlace")'籍贯
Folk = Rs("Folk")'民族
Sex = Rs("Sex")'
Marital = Rs("Marital")'婚姻否
PassDegree = Rs("PassDegree")'学位
Flag = Rs("Flag")'权限
Rank = Rs("Rank")'等级
Address = Rs("Address")'详细地址
disabled = Rs("disabled")'是否可用
Atypeid = Rs("Atypeid")
Regtime = Rs("Regtime")
lasttime = Rs("lasttime")
Remark = Rs("Remark")'备注
%>
<tr ondblclick = "javascript:SDD('adminview.asp?aid=<%=Aid%>','adminview',478,480,'');" style = 'background-color:#ffffff;cursor: default;' class = 'tempA' onclick="clicked_('<%=i_u-1%>');">
<td id = 'td__' style = 'text-align:center;padding:2px;'><%=aid%></td>
<td id = 'td_'><%=Loginid%></td>
<td><%=TrueName%></td>
<td><%=Place%></td>
<td><%=Phone%></td>
<td><%=MobileTelephone%></td>
<td><%=PcNum%><input type = 'checkbox' name = 'box_' id = 'box_' value = '<%=Aid%>' style = 'visibility:hidden;height:10px;'/></td>
<td style = 'text-align:center;' id = 'selid_'><input type = 'checkbox' style = 'border-style:none;widht:15px;height:15px;' name = 'selAnnounce' onClick = "javascript:checked_(<%=i_u-1%>);" onfocus="this.blur();" value = '<%=Aid%>'/></td>
</tr>
<%
Rs.movenext
next
Response.Write"<tr><td style = 'text-align:center;' colspan = '8'>" & PageWrite & "</td></tr>"
else
%>
<tr style = 'background-color:#ffffff;' class = 'tempA'>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
end if
Rs.Close
%></form></table>
<%
if trim(Request.Form("Options")) = "delTrue" then
Set c01 = new CL01
ExecuteList = c01.splitList(trim(Request.Form("Execute")),",",0)
SQL = "delete from admins where aid in(" & ExecuteList & ")"
'Response.Write SQL
Conn.Execute(SQL)
Response.Write viewinfo("divLoca","正在执行删除操作．请稍候…","")
Response.Write viewinfo("LocaTimeself","",SELVAR("FN","supplier_right.asp"))
Set c01 = Nothing
end if
ConnClose()
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -