📄 manaccquerygrade.asp

📁 此程序为网上下载

💻 ASP

字号:

<%@ codepage ="936" %>
<%Response.Expires=0
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
if nickname="" then Response.Redirect "manerr.asp?id=100"
if grade<>12 then Response.Redirect "manerr.asp?id=130"%><html>
<head>
<title>帐号管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【帐号管理】</font></h1>
<font color="#FF0000">【按级别列出所有帐号】</font></div>
<div align="center"><a href="manacc.asp">返回</a> </div>
<hr noshade size="1" color=009900>
<b>［注意事项］</b><br>
　　请选择要查询的级别。 
<hr noshade size="1" color=009900>
<div align=center> 
<table border="1" cellspacing="0" bordercolorlight="#000000" bordercolordark="#FFFFFF" align="center" bgcolor="#D8D0C8" cellpadding="8">
<form method="post" action="manaccquerygradeok.asp">
<tr align="center"> 
<td> 
<table width="100%" border="0" cellpadding="4">
<tr> 
<td>要查询的级别：</td>
<td>
<select name="grade">
<option value="0">0 被禁用</option>
<option value="1" selected>1 级</option>
<%
For i = 2 To 12
 Response.Write "<option value=" & i & ">" & i & " 级</option>"
Next
%>
</select> 
</td> 
</tr> 
<tr>  
<td colspan="2" align="center">  
<input type="submit" name="Submit" value="查询"> 
<input type="reset" value="重写" name="reset"> 
<input type="button" value="放弃" onClick="javascript:history.go(-1)" name="button"> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
</form> 
</table> 
</div> 
<hr noshade size="1" color=009900> 
<div align=center class=cp><%Response.Write "序列号：<font color=blue>" & Application("wsaxhxf_c_sn") & "</font>，授权给：<font color=blue>" & Application("wsaxhxf_c_user") & "</font><br><font color=999999>" & Application("wsaxhxf_c_copyright") & "</font>"%></div> 
</body> 
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -