📄 manager2.asp
字号:
<!--#include file="include.asp"-->
<%
if not session("log") then response.redirect "login.asp"
if request.form("delit")<>empty then call del_it()
dim sql,rs
dim user,pass,memo,userid
session("ucode")=request("ulist")
session("id")=request("uid")
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)
}
//-->
</script>
</head>
<body bgcolor="#6A4F9A" text="#FFFFFF" link="#E1E1FF" vlink="#E1E1FF" alink="#FFFF33">
<form method="post" action="manager.asp" name="form1">
<table width="599" border="0">
<tr align="center">
<td><b>代理商管理</b></td>
</tr>
<tr>
<td height="23" > </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#333333">
<tr bgcolor="#CCCCCC">
<td width="89"><font color="#000000"></font>
<div align="center"><font color="#000000">用户名称</font></div>
</td>
<td width="82">
<div align="center"><font color="#000000">密码</font></div>
</td>
<td width="84">
<div align="center"><font color="#000000">用户代号</font></div>
</td>
<td width="71">
<div align="center"><font color="#000000">总账户</font></div>
</td>
<td width="362" align="center">
<div align="center"><font color="#000000">用户说明</font></div>
</td>
<td width="65" align="center"><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")
set kc=conn.execute ("SELECT Sum(account.account) AS aSum FROM account WHERE (((account.ucode)='"&tot&"'))")
m=kc("asum")
k=k+m
%>
<tr>
<td width="89"> <%=username%></td>
<td width="82">
<div align="center"><%=password%></div>
</td>
<td width="84">
<div align="center"><%=ucode%></div>
</td>
<td width="71">
<div align="center"><%=kc("asum")%>元</div>
</td>
<td width="362" align="center"><%=memo%></td>
<td width="65" align="center"><a href="agentlist.asp?user=<%=ucode%>">察看</a></td>
</tr>
<%
rs.movenext
wend
%>
</table>
<table width="600" border="0">
<tr>
<td colspan="2"> </td>
</tr>
<tr align="center">
<td colspan="2"> </td>
</tr>
</table>
</form>
</body>
<%
conn.close()
set conn=nothing
set rs=nothing
response.write k&"元"
%>
</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 + -