📄 selectadminlist_right.asp

📁 一个比较完整的企业erp系统
💻 ASP
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head><%
  Public title:title = "管理员列表"
  if isLogin = false then
     Response.Write viewinfo("LoginC","","")
	 Response.end
  end if
%><title><%=title%></title>
<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/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 { background-color:#08246B;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) {
   if(form.selAnnounce[s].checked == true) {
      selid_[s].className = 'clicked';
   }else{
      selid_[s].className = '';
   }
}
//-->
</script>
</head>
<body style = 'background-color:#fff;margin:0px;'>
<div style = 'text-align:center;'>




     <table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;background-color:buttonface;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;'/>
	 <form method='post' action="" name = '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>
			</tr>
	        <tr>
			   <td style ='height:1px;line-height:1px;background-color:#adaaad;border-style:none;' colspan = '7'></td>
			</tr>

<%
  Rmainid = GetText("maintypeid","G","number",1,10,0)
  Rsubid = GetText("subtypeid","G","number",1,10,0)
  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 & " Order By aid desc"
  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 ="" class = 'tempA' style = 'background-color:#ffffff;cursor: default;' onclick="clicked_('<%=i_u-1%>');">
			   <td id = 'td__' style = 'text-align:center;padding:2px;'><%=aid%></td>
			   <td id = 'td_' onclick = "javascript:var admin = Array('<%=Aid%>','<%=TrueName%>','<%=TrueName & "-" & Phone%>');returnValue=admin;window.close();"><%=Loginid%></td>
			   <td ondblclick = "javascript:SDD('adminview.asp?aid=<%=Aid%>','adminview',458,450,'');"><%=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>
			</tr>

<%
        Rs.movenext
     next
	 Response.Write"<tr><td style = 'text-align:center;' colspan = '7'>" & PageWrite & "</td></tr>"
  else
%>
	        <tr style = 'background-color:#ffffff;' class = 'tempA'>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			   <td>&nbsp;</td>
			</tr>


<%
  end if
  Rs.Close
ConnClose()
%></form></table>


</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -