📄 admin_vip.asp
字号:
<!--#include file=conn.asp-->
<!-- #include file="inc/const.asp" -->
<%
'----------------------asilas制作------------------------
'如果您有什么问题请与我联系
'主页地址：www.asilas.net.tf
'电邮： asilas@hotmail.com
'
'程序说明：
'本插件是动网final版本适用，可以对vip用户进行管理
'请妥善使用本插件
'--------------------------------------------------------
%>
<%
dim menu,body
menu=request.querystring("menu")
%>
<html>
<head>
<title><%=Forum_info(0)%>--管理页面</title>
<link rel="stylesheet" href="forum_admin.css" type="text/css">
<meta NAME=GENERATOR Content="Microsoft FrontPage 4.0" CHARSET=GB2312>
</head>
<BODY leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<%
if not master or session("flag")="" then
Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。<br><li>您没有管理本页面的权限。"
call dvbbs_error()
else
if menu="" then
call main()
elseif menu=1 then
call manage()
elseif menu=2 then
call addman()
elseif menu=3 then
call savemod()
end if
end if
%>
<%sub main()
dim sql1,rs1,sql2,rs2
sql1="select * from [vip]"
set rs1=conn.execute(sql1)
%>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<form action=?menu=3 method=post>
<tr><th valign=middle height=23 align=left width="100%">VIP会员申请系统模式设定</th></tr>
<tr><td valign=middle class=forumrow align=left width="75%">
说明：VIP会员申请系统有两模式<br>
<font color="#FF0000">自动添加系统</font>：用户在前台可以看到申请条件，如果满足条件即可申请，申请后直接加为“VIP会员”<br>
<font color="#FF0000">人工添加系统</font>：用户在前台可以看到申请条件，如果满足条件可以递交申请，申请会提交给管理员审批，如果批准则加为VIP会员</td>
</tr><tr>
<td valign=middle class=forumrow align=left width="75%">
<p align="center">自动添加VIP会员<input type=radio name="vipmod" value="0" <%if rs1("vipmod")=0 then%>checked<%end if%>> 人工添加VIP会员<input type=radio name="vipmod" value="1" <%if rs1("vipmod")=1 then%>checked<%end if%>> <input type=submit name="submit" value="提 交"></td></tr>
</form>
</table>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr><th align=center colspan=2 width="95%" height=1>
<p align="left"><b>论坛VIP申请条件管理</b></p>
</th>
</tr>
<form name="form" method="post" action="admin_vip.asp?menu=1">
<tr>
<td align=right width="185" height="25" class=forumrow>申请VIP所需金额：</td>
<td align=left width="522" height="25" class=forumrow><INPUT name=userwealth size="20" value="<%=rs1("wealth")%>"></td>
</tr>
<tr>
<td align=right width="185" height="25" class=forumrow>申请VIP所需经验：</td>
<td align=left width="522" height="25" class=forumrow><INPUT name=userep size="20" value="<%=rs1("userep")%>"></td>
</tr>
<tr>
<td align=right width="185" height="25" class=forumrow>申请VIP所需魅力：</td>
<td align=left width="522" height="25" class=forumrow><INPUT name=usercp size="20" value="<%=rs1("usercp")%>"></td>
</tr>
<tr>
<td align=right width="185" height="25" class=forumrow>申请VIP所需威望：</td>
<td align=left width="522" height="25" class=forumrow><INPUT name=userpower size="20" value="<%=rs1("power")%>"></td>
</tr>
<tr>
<td align=right width="185" height="25" class=forumrow>申请VIP所需文章数：</td>
<td align=left width="522" height="25" class=forumrow><INPUT name=userart size="20" value="<%=rs1("article")%>"></td>
</tr>
<tr>
<td align=center colspan=2 width="95%" height="27" class=forumrow><INPUT type=submit value=修改 name=submit></td>
</tr>
</form>
</table>
<br>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder">
<tr>
<th align=center width="95%" height=1 colspan="2">
<p align="left">论坛VIP会员管理</p>
</th>
<tr width="95%" >
<td width="35%" class=forumrow>
<b>增加VIP会员</b>（请输入您想确认为VIP的用户名，请确认此用户是本论坛的用户）</td>
<form name="form1" method="post" action="admin_vip.asp?menu=2">
<td width="65%" class=forumrow height="45">
<INPUT name=vipname size="20"> <INPUT type=submit value=确认 name=submit>
</td>
</form>
</tr>
<tr width="95%" >
<td width="35%" class=forumrow>
<b>VIP会员管理</b>
<form name="form1" method="post" action="admin_vipuser.asp">
<td width="65%" class=forumrow height="40">
<INPUT type=submit value='进 行 管 理' name=submit>
</td>
</form>
</tr>
<tr width="95%" >
<td width="35%" class=forumrow>
<b>审批VIP会员申请</b>
</td>
<form name="form1" method="post" action="admin_vipapplyuser.asp">
<td width="65%" class=forumrow height="40">
<INPUT type=submit value='进 行 审 批' name=submit>
</td>
</form>
</tr>
</table>
<br>
<%
end sub
sub savemod()
dim rs,sql
if request("vipmod")="" then
response.write "选择项不能为空！"
response.end
else
set rs= server.createobject ("adodb.recordset")
sql = "select * from vip"
rs.Open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs("vipmod")=request("vipmod")
rs.Update
end if
response.write"修改成功！"
end if
end sub
sub manage()
dim money,usercp,userep,userpower,userart,rs,sql
if not isInteger(request.form("userwealth")) or not isInteger(request.form("userart")) or not isInteger(request.form("userep")) or not isInteger(request.form("usercp")) or not isInteger(request.form("userpower")) then
response.write "输入的数据必须为整数！"
response.end
else
if request.form("userwealth")="" then
money=0
else
money=int(request.form("userwealth"))
end if
if request.form("userep")="" then
userep=0
else
userep=int(request.form("userep"))
end if
if request.form("usercp")="" then
usercp=0
else
usercp=int(request.form("usercp"))
end if
if request.form("userpower")="" then
userpower=0
else
userpower=int(request.form("userpower"))
end if
if request.form("userart")="" then
userart=0
else
userart=int(request.form("userart"))
end if
end if
set rs= server.createobject ("adodb.recordset")
sql = "select * from vip"
rs.Open sql,conn,1,3
if not(rs.eof and rs.bof) then
rs("article") = userart
rs("power") = userpower
rs("wealth") = money
rs("userep") = userep
rs("usercp") = usercp
rs.Update
end if
rs.close
set rs=nothing
response.write "修改成功!"
end sub
sub addman()
dim boarduser,sql2,rs2
dim boarduser_1
dim userlen
dim updateinfo
dim rs1,sql1,rs,sql,rs3,sql3
sql="select * from [vip]"
set rs=conn.execute(sql)
sql3="select username from [user] where username='"&request("vipname")&"'"
set rs3=conn.execute(sql3)
if rs3.bof and rs3.eof then
response.write "这个用户不是本论坛注册用户，不能加为VIP"
else
conn.execute("update [user] set vip=1 where username='"&request("vipname")&"'")
set rs2=server.createobject("adodb.recordset")
sql2="select * from [message]"
rs2.open sql2,conn,1,3
rs2.addnew
rs2("sender")=forum_info(0)
rs2("incept")=request("vipname")
rs2("title")="您已正式成为VIP会员！"
rs2("content")="您的VIP资格已经生效，谢谢您对"& forum_info(0) &"的支持！"
rs2("flag")=0
rs2("issend")=1
rs2.update
rs2.close
response.write "操作成功！"
end if
rs.close
set rs=nothing
end sub
%>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -