📄 manhb.asp

📁 此程序为网上下载
💻 ASP
字号:
<%@ LANGUAGE=VBScript.Encode codepage ="936" %>
<%
Response.Buffer = True
Response.Expires = 0
Response.CacheControl = "Private"
nickname=Session("hxf_u_nickname")
grade=Int(Session("hxf_u_grade"))
inthechat=Session("hxf_u_inthechat")
If nickname = "" Then Response.Redirect "manerr.asp?id=100"
if Session("hxf_u_inthechat")<>"1" and nickname<>"聊天室管理员" Then Response.Redirect "manerr.asp?id=170"
If grade <> 12 Then 
 qx = Split(Application("wsaxhxf_c_grade" & grade), "{]")
 If qx(22) <> "1" And qx(23) <> "1" Then Response.Redirect "manerr.asp?id=146"
End If
%>
<html>
<head>
<title>货币管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="readonly/style.css">
<script Language=JavaScript>
function q(){
 un = document.bd.f1.value;
 if(un == ""){
  alert("请指定用户名！");
 }
 else{
  window.open("friendqueryview.asp?id=" + un, "", "width=365,height=235");
 }
}
function g(v){
 un = document.bd.f1.value;
 if(un == ""){
  alert("请指定用户名！");
 }
 else{
  url = "";
  if(v == 1){url = "manhbdel.asp?id=" + un}
  if(v == 2){url = "manhbadd.asp?id=" + un}
  if(url != ""){window.open(url, "", "width=380,height=120")}
 }
}
</script>
</head>
<body bgcolor="#FFFFFF" class=p150>
<div align="center">
<h1><font color="0099FF">【货币管理】</font></h1>
<a href="javascript:history.go(0)">刷新</a></div>
<hr noshade size="1" color=009900>
<b>［注意事项］</b> <br>
　　聊天室资金库：用户点歌、呼叫，货币踢人、轰炸、封锁及被踢、被炸、被封所花掉的货币均上缴到此资金库中，货币流通时税收也上缴到此资金库。该资金库中的资金可以用于对聊友进行奖励。也可以对严重违纪的用户进行罚款，所罚款项也是上缴到此资金库。<br>
　　当前资金库剩余资金为：<font color="red"><%=Application("wsaxhxf_c_chatmoney")%>￥</font>。<br>
<hr noshade size="1" color=009900>
<form name="bd" method="post" action="javascript:q()">
<table border="0" align="center" cellpadding="4">
<tr> 
<td rowspan="2">用户名: 
<input type="text" name="f1" maxlength="10" size="10" onMouseOver="this.select()">
<input type="submit" name="Submit" value="查询用户信息">
</td>
<td> 
<input type="button" name="f2" value=" 罚 款 (D) " onClick="javascript:g(1)" accesskey="d">
</td>
</tr>
<tr> 
<td> 
<input type="button" name="f5" value=" 奖 励 (U) " onClick="javascript:g(2)" accesskey="u">
</td>
</tr>
</table>
</form>
<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 + -