📄 manager.asp
字号:
<!--#include file="include.asp"-->
<%
if not session("log2") then response.redirect "login.asp"
if request.form("delit")<>empty then call del_it()
dim sql,rs
dim user,pass,memo,userid
sql="select * from user where userid='"&session("ucode")&"'order by id"
set rs=conn.execute(sql)
%>
<html>
<head>
<title>用户管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td { font-size: 9pt}
input { font-size: 9pt}
.button { font-size: 9pt; color: #FFFFFF; background-color: #000000}
a { text-decoration: none}
a:hover { color: #FFFF99; text-decoration: underline}
-->
</style>
<script language="JavaScript">
<!--
function MM_callJS(jsStr) { //v2.0
return eval(jsStr)
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body bgcolor="#6A4F9A" text="#FFFFFF" link="#E1E1FF" vlink="#E1E1FF" alink="#FFFF33">
<form method="post" action="manager.asp" name="form1">
<table width="735" border="0">
<tr align="center">
<td><b>用 户 名 单 管 理</b></td>
</tr>
<tr>
<td height="23" ><a href="addnew.asp" target="_blank">加入新用户</a> <a href="search1.asp">业务查询</a></td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#333333">
<tr bgcolor="#CCCCCC">
<td width="38"><font color="#000000"><b> </b></font></td>
<td width="67">
<div align="center"><font color="#000000">用户名称</font></div>
</td>
<td width="61">
<div align="center"><font color="#000000">密码</font></div>
</td>
<td width="67">
<div align="center"><font color="#000000">用户代号</font></div>
</td>
<td width="338" align="center">
<div align="center"><font color="#000000">用户说明</font></div>
</td>
<td width="42" align="center"><font color="#000000">账户</font></td>
<td align="center" colspan="2"><font color="#000000">操作</font></td>
</tr>
<%
while not rs.eof
username=rs("username")
password=rs("password")
ucode=rs("ucode")
tot=rs("ucode")
memo=server.htmlencode(rs("memo"))
id=rs("id")
%>
<tr>
<td width="38">
<input type="checkbox" name="select_it" value="<%=username%>">
</td>
<td width="67"><%=username%></td>
<td width="61"><%=password%></td>
<td width="67"><%=ucode%></td>
<td width="338" align="center"><%=memo%></td>
<td width="42" align="center"><a href="#" onClick="MM_openBrWindow('agentlists.asp?user=<%=ucode%>','account','toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes')">察看</a></td>
<td width="44" align="center">
<div align="left"><a href="modify.asp?user=<%=username%>" target="_blank">修改</a></div>
</td>
<td width="88" align="center"><a href="agentlist.asp?user=<%=ucode%>">业务操作</a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<table width="732" border="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr align="center">
<td colspan="2">
</td>
</tr>
</table>
</form>
<p> </p>
<p> </p>
</body>
<%
conn.close()
set conn=nothing
set rs=nothing
%>
</html>
<%
function del_it()
dim sql,max,list
list=request.form("select_it")
list=split(list,",")
max=ubound(list)
for k=0 to max
user=trim(list(k))
sql="delete from user where username='"&user&"'"
conn.execute(sql)
next
end function
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -