📄 user_manage.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../dbase.asp"-->
<!--#include file="user_function.asp"-->
<html>
<head>
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<link href="../../js/hystudio.css" rel="stylesheet" type="text/css">
<link href="../MSTYLE.CSS" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
INPUT{BORDER-TOP-WIDTH: 1px; PADDING-RIGHT: 1px; PADDING-LEFT: 1px; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 9pt; BORDER-LEFT-COLOR: #cccccc; BORDER-BOTTOM-WIDTH: 1px; BORDER-BOTTOM-COLOR: #cccccc; PADDING-BOTTOM: 1px; BORDER-TOP-COLOR: #cccccc; PADDING-TOP: 1px; HEIGHT: 18px; BORDER-RIGHT-WIDTH: 1px; BORDER-RIGHT-COLOR: #cccccc; font-family: "宋体"; font-size: 12px}
textarea {border-width: 1; border-color: #000000; background-color: #efefef; font-family: "宋体"; font-size: 12px; font-style: bold;}
select {border-width: 1; border-color: #000000; background-color: #eeeeee; font-family: "宋体"; font-size: 12px; font-style: bold;}
OPTION{FONT-FAMILY: "宋体"; FONT-SIZE: 12px}
-->
</style>
</head>
<body>
<%'n_ID, c_UserID, v_LoginName, v_LNEncode, v_LoginPwd, v_IdentityCard,
' " v_PwdQuestion, v_PwdAnswer, c_State, v_UserTrueName
listUser=GetUserLoginInfo()'调用user_function.asp中的函数，得到登陆用户列表
if not isnull(listUser) then
response.Write("<table border='1' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%'>")
response.Write("<tr align='center'><td width='11%'>工号</td><td width='11%'>姓名</td>")
response.Write("<td width='11%'>登陆名</td><td width='11%'>身份证号</td>")
response.Write("<td width='11%'>问题提示</td><td width='11%'>问题答案</td>")
response.Write("<td width='11%'>密码</td><td width='1%' nowrap>状态</td>")
response.Write("<td width='1%' bgcolor='#FF99CC'>操作</td></tr>")
for i=0 to ubound(listUser,2)
response.Write("<form action='user_manage_deal.asp?way=modify&id="&listUser(0,i)&"' method='post' target='_self'><tr align='center'>")
response.Write("<td width='11%'>"&listUser(1,i)&"</td><td width='11%'>"&listUser(9,i)&"</td>")
response.Write("<td width='11%'><input type='text' name='LoginName' size=10 value='"&listUser(2,i)&"'></td>")
response.Write("<td width='11%'><input type='text' name='IdentityCard' size=18 maxlength=18 value='"&trim(listUser(5,i))&"'></td>")
response.Write("<td width='11%'><input type='text' name='PwdQuestion' size=10 value='"&listUser(6,i)&"'></td>")
response.Write("<td width='11%'><input type='text' name='PwdAnswer' size=10 value='"&listUser(7,i)&"'></td>")
response.Write("<td width='11%'><input type='password' name='NewPwd' size=10></td>")
response.Write("<td width='1%'><img src=")
if listUser(8,i)="y" then
response.Write("'images/normal.gif' style='cursor: hand' alt='状态正常'")
response.Write(" onclick='self.location.href=""user_manage_deal.asp?way=modify&id="&listUser(0,i)&"&state=n"" '")
else
response.Write("'images/freeze.gif' style='cursor: hand' alt='被封帐号'")
response.Write(" onclick='self.location.href=""user_manage_deal.asp?way=modify&id="&listUser(0,i)&"&state=y"" '")
end if
response.Write("></td>")
response.Write("<td width='1%' bgcolor='#FF99CC'>")
response.Write("<input type='submit' value='更'>")
response.Write("<input type='button' value='删' ")
response.Write("onclick='if (confirm(""确定不是误操作删除？"")) self.location.href=""user_manage_deal.asp?way=delete&id="&listUser(0,i)&""" '>")
response.Write("</td></tr></form>")
next
response.Write("</table>")
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -