📄 admin_wealth.asp

📁 此文件为一个电子同学录
💻 ASP
字号:
<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<title><%=txl_info(0)%>--管理页面</title>
<!--#include file="inc/admin_css.asp"-->
<meta NAME=GENERATOR Content=""Microsoft FrontPage 3.0"" CHARSET=GB2312>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
	if not supermaster or session("flag")="" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。"
		call txl_error()
	else
		if request("action")="save" then
			call savegrade()
		elseif request("action")="restore" then
			call restore()
		else
			call grade()
		end if
		if founderr then call txl_error()
		conn.close
		set conn=nothing
	end if

sub grade()
dim sel
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center class="tableBorder">
<form method="POST" action=admin_wealth.asp?action=save>
<tr> 
<th height="23" colspan="2">用户金钱设定</th>
</tr>
<tr> 
<td width="40%" class=txlrow>注册金钱数</td>
<td width="60%" class=txlrow> <input type="text" name="wReg" size="35" value="<%=txl_user(0)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>每次登陆增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wLogin" size="35" value="<%=txl_user(1)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>发表新贴增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBpost" size="35" value="<%=txl_user(2)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>回复帖子增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBreply" size="35" value="<%=txl_user(3)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>删除帖子减少金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBdel" size="35" value="<%=txl_user(4)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>精华帖子增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBbest" size="35" value="<%=txl_user(5)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>奖励帖子增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBaward" size="35" value="<%=txl_user(12)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>惩罚帖子减少金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wBpunish" size="35" value="<%=txl_user(13)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>发表留言增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wGpost" size="35" value="<%=txl_user(6)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>回复留言增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wGreply" size="35" value="<%=txl_user(7)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>删除留言减少金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wGdel" size="35" value="<%=txl_user(8)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>上传照片增加金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wPpost" size="35" value="<%=txl_user(9)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>删除照片减少金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wPdel" size="35" value="<%=txl_user(10)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>发表照片评论金钱</td>
<td width="60%" class=txlrow> <input type="text" name="wPsay" size="35" value="<%=txl_user(11)%>"></td>
</tr>
<tr> 
<td width="40%" class=txlrow>&nbsp;</td>
<td width="60%" class=txlrow> <input type="submit" name="Submit" value="提 交">　<a href=?action=restore><u>恢复默认设置</u></a></td>
</tr>
</form>
</table>

<%
end sub

'保持设置
sub savegrade()
txl_user=request.form("wReg") & "," & request.form("wLogin") & "," & request.form("wBpost") & "," & request.form("wBreply") & "," & request.form("wBdel") & "," & request.form("wBbest") & "," & request.form("wGpost") & "," & request.form("wGreply") & "," & request.form("wGdel") & "," & request.form("wPpost") & "," & request.form("wPdel") & "," & request.form("wPsay") & "," & request.form("wBaward") & "," & request.form("wBpunish") 

sql = "update config set txl_user='"&txl_user&"'"
conn.execute(sql)
response.write "设置成功。"
end sub

'恢复默认设置
sub restore()
txl_user="100,10,5,2,7,10,3,2,5,10,15,2,10,10"
conn.execute("update config set txl_user='"&txl_user&"'")
response.write "还原设置成功。"
end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -