📄 sqlist.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Conn = hdobj.WeekaaConn()
Use_nam=session("AdminUser")
if mid(Use_nam,1,5)<>"admin" then
response.Redirect("ErrInfo.asp?Info=只有管理员帐号才能进行系统管理!")
response.end
end if
La=trim(request.form("La"))
Lb=trim(request.form("Lb"))
Set rs = Server.CreateObject("ADODB.RecordSet")
if Lb="" then
if La="" then
sqls = "Select * From [HRworker] order by c asc"
else
sqls = "Select * From [HRworker] where b = '" & La & "' order by a asc"
end if
else
sqls = "Select * From [HRworker] where c like '%"& Lb &"%' order by a asc"
end if
rs.Open Sqls,Conn,1,3
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
a:link {
text-decoration: none;
color: #000066;
}
a:visited {
text-decoration: none;
color: #000066;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
}
.STYLE14 {font-size: 14px}
.STYLE15 {
font-family: "黑体";
font-weight: bold;
font-size: 16px;
}
-->
</style>
</head>
<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><span class="b"><a href="LoginList.asp">日志</a> <a href="SQlist.asp">授权</a> <a href="BF.asp">备份</a> <a href="Bak/HFa.asp">恢复</a> <a href="User_Edit.asp">管理密码</a> <a href="User_Edit.asp">老师密码</a> <a href="passstu.asp">学生密码</a></span></td>
</tr>
<tr>
<td height="400" align="center" valign="top" bgcolor="#3399FD">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40" colspan="2" heigh="50"> </td>
</tr>
<tr valign="bottom">
<td height="60" align="center" valign="middle" bgcolor="#FFFFFF"><form name="form1" method="post" action="">
部门
<%call hdobj.lists("HRworker","b","b","La",2)%>
姓名
<input name="Lb" type="text" id="Lb" size="10">
<input type="submit" name="Submit" value="查">
</form></td>
</tr>
</table>
<form name="form2" method="post" action="SQlistt.asp">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#6A8FDA" bgcolor="#FFFFFF" class=TableBorder>
<tr>
<td><table width="100%" height="25" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#DFDFDF" class=TableBorder>
<tr height="22" valign="middle" align="center">
<th colspan="6"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#0C4FBC">
<td height="28" align="center" background="../Image/bg01.jpg" bgcolor="#0C4FBC" class="STYLE15">选 择 被 授 权 人</td>
</tr>
</table></th>
</tr>
<tr align="center" bgcolor="#F1F3F5">
<td width="145" class=forumrow style19>工号</td>
<td width="145" height="25" class=forumrow>姓名</td>
<td width="145" class=forumrow>性别</td>
<td width="145" class=forumrow>工号</td>
<td width="145" class=forumrow>姓名</td>
<td width="145" class=forumrow>性别</td>
</tr>
<%
BgI=1
OO=0
QQ=0
i=1
If rs.Eof Then
Response.Write "<tr><td colspan='8'>请正确选择班级!</td></tr>"
Else
Do While Not rs.Eof
rsc=rs("c")
if len(rsc)=2 then
rsc=mid(rsc,1,1)&" "&mid(rsc,2,1)
end if
L="L"&i
OO=OO+1
QQ=QQ+1
xh="xh"&QQ
fs="fs"&QQ
BgI=BgI*(-1)
if Bgi<0 then '背景色交替
bg="#ffffff"
else
bg="#F1F3F5"
end if
if OO=1 then
%>
<tr align="center" bgcolor="<%=bg%>">
<%end if%>
<td align="center"><%=rs("a")%></td>
<td height="25" align="center"> <a href="#?Tnam=<%=rs("c")%>" target="_self"><%=rsc%></a></td>
<td align="center"><%=rs("d")%> <input name="<%=L%>" type="checkbox" id="<%=L%>" value="<%=rs("ID")%>"></td>
<%if OO=2 then%>
</tr>
<%
end if
if OO=2 then
OO=0
end if
i=i+1
rs.MoveNext
Loop
End if
if OO=1 then
%><td>.</td><td>.</td><td>.</td></tr><%end if%>
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="6"><span class="style22">每次授权都将清空上次授权。多人权限相同时可以一次授权，但每次最多为十人分配权限</span></td>
</tr>
<tr align="center" bgcolor="#0C4FBC">
<td height="28" colspan="6" background="../Image/bg01.jpg" bgcolor="#0C4FBC"><%
rs.Close
Set rs = Nothing
%>
<input type="submit" name="Submit2" value="开始授权">
</td>
</tr>
</table></td>
</tr>
</table></form>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -