📄 z_fuwu.asp
字号:
rs("chubei")=rs("chubei")+tili*addtili
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="购买魅力值，支付服务费用："&tili&"点 × "&addtili&" 元/点 = "& tili*addtili & " 元"
call logs("服务","购买魅力值",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>购买魅力值成功，花费："&tili&"点 × "&addtili&" 元/点 ="& tili*addtili & "元"
call fuwu_suc()
end if
end sub
'--------------------------------购买经验值-------------------------
sub jy()
if cint(fuwu_setting(1))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim jinyan
jinyan=0
set rs=server.createobject("adodb.recordset")
sql="select userwealth,userep from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("jinyan")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您要购买的经验值"
elseif not isnumeric(request.form("jinyan")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>购买的经验值必须是数字"
elseif request.form("jinyan")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请不要输入负数"
else
jinyan=abs(int(request.form("jinyan")))
end if
if rs(0)<jinyan*addjinyan then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您的现金不够"
end if
if founderr then
call bank_err()
else
rs(0)=rs(0)-jinyan*addjinyan
rs(1)=rs(1)+jinyan
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+jinyan*addjinyan
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="购买经验值，支付服务费用："&jinyan&"点 × "&addjinyan&" 元/点 = "& jinyan*addjinyan & " 元"
call logs("服务","购买经验值",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>购买经验值成功，花费："&jinyan&"点 × "&addjinyan&" 元/点 ="& jinyan*addjinyan & "元"
call fuwu_suc()
end if
end sub
'-------------------------------------------主程序-----------------------------------
sub main()
'fuwu_setting : canCP/canEP/canPower/canfatie/canGonggao/canDuangxun/canKanip/canDelmail 1-是 0－否 我来了 2002.11.30
'fuwu_setting(): 0 1 2 3 4 5 6 7
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
<tr><th align=center height=26><b>社区服务中心</b></th></tr>
<tr><td align=center height=26 class=tablebody1>欢迎来到社区服务中心,你现有的现金<font color="#FF0000"><%=mymoney%></font>元。我们将给您提供优质的服务,请选择您的服务项目吧!</td></tr>
<tr><td align=left height=26 class=tablebody2> <b>特殊服务</b> <%if cint(fuwu_setting(0))=1 or cint(fuwu_setting(1))=1 or cint(fuwu_setting(2))=1 or cint(fuwu_setting(3))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%></td></tr>
<form name="form1" method="post" action="Z_fuwu.asp"><tr ><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(1))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>购买经验值</b> 请输入您要购买多少经验值:<INPUT name=jinyan> <INPUT type=submit value=购买 name=submit> 单价:<font color="#FF0000"><%=addjinyan%></font>元 我的经验值: <font color="#FF0000"><%=myuserep%></font></td></tr><INPUT type=hidden value="1" name=menu></form>
<form name="form2" method="post" action="Z_fuwu.asp"><tr ><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(0))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>购买魅力值</b> 请输入您要购买多少魅力值:<INPUT name=tili> <INPUT type=submit value=购买 name=submit class=tablebody1> 单价:<font color="#FF0000"><%=addtili%></font>元 我的魅力值: <font color="#FF0000"><%=myusercp%></font></td></tr><INPUT type=hidden value="2" name=menu></form>
<form name="form3" method="post" action="Z_fuwu.asp"><tr ><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(3))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>购买发贴数</b> 请输入您要购买多少发贴数:<INPUT name=fatie> <INPUT type=submit value=购买 name=submit> 单价:<font color="#FF0000"><%=addfatie%></font>元 我的发贴数: <font color="#FF0000"><%=myArticle%></font></td></tr><INPUT type=hidden value="3" name=menu></form>
<form name="form4" method="post" action="Z_fuwu.asp"><tr ><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(2))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>购买<font color="#FF0000">威望值</font></b> 请输入您要购买多少威望值:<INPUT name=power> <INPUT type=submit value=购买 name=submit> 单价:<font color="#FF0000"><%=addpower%></font>元 我的威望值: <font color="#FF0000"><%=mypower%></font></td></tr><INPUT type=hidden value="4" name=menu></form>
<tr ><td align=left height=30 class=tablebody2> <b>公告发布</b> 公告发布每次需要<font color="#FF0000"><%=fagonggao%></font>元 <%if cint(fuwu_setting(4))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%></td></tr>
<form name="form5" method="post" action="Z_fuwu.asp">
<tr><td align=center height=30 class=tablebody1>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:70%">
<tr>
<th colspan="2">公告发布</th>
</tr>
<tr>
<td width="25%" class=tablebody2>发布版面:</td>
<td align=left class=tablebody1>
<% set rs=server.createobject("adodb.recordset")
sql="select boardid,boardtype from board"
rs.open sql,conn,1,1
%>
<select name="boardid" size="1">
<option value="0">论坛首页</option>
<%
do while not rs.eof
response.write "<option value='"+CStr(rs("BoardID"))+"'>"+rs("Boardtype")+"</option>"+chr(13)+chr(10)
rs.movenext
loop
rs.close
%>
</select>
</td></tr>
<tr>
<td width="25%" valign=top class=tablebody2>发布人：</td>
<td width="75%" class=tablebody1>
<input type=text name=username size=36 value="<%=membername%>" disabled>
<input type=hidden name=username value="<%=membername%>">
</td>
</tr>
<tr>
<td width="25%" valign=top class=tablebody2>标题：</td>
<td width="75%" class=tablebody1>
<input type=text name=title size=36>
</td>
</tr>
<tr>
<td width="25%" valign=top class=tablebody2>内容：</td>
<td width="75%" class=tablebody1>
<textarea cols=70 rows=6 name="content"></textarea>
</td>
</tr>
<tr>
<td width="100%" valign=top colspan="2" align=center class=tablebody2><input type=Submit value="发 送" name=Submit> <input type="reset" name="Clear" value="清 除"></td>
</tr>
</table>
</td></tr>
<INPUT type=hidden value="5" name=menu>
</form>
<tr><td align=left height=30 class=tablebody2> <b>短消息群发</b> 每次<font color=red><%=faduangxun%></font>元 <%if cint(fuwu_setting(5))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%></td></tr>
<form name="form6" method="post" action="Z_fuwu.asp"><tr ><td align=center height=30 class=tablebody1>
<table cellspacing=1 cellpadding=3 class=tableborder1 style="width:70%">
<tr>
<th colspan="2">短消息群发</th>
</tr>
<tr>
<td width="30%" class=tablebody2>消息标题</td>
<td width="70%" class=tablebody1>
<input type="text" name="title" size="50">
</td>
</tr>
<tr>
<td width="30%" class=tablebody2>接收方选择</td>
<td width="70%" class=tablebody1>
<select name=stype size=1>
<option value="1">所有在线用户</option>
<option value="2">所有贵宾</option>
<option value="3">所有版主</option>
<option value="4">所有管理员</option>
<option value="5">贵宾/版主/管理员</option>
</select>
</td>
</tr>
<tr>
<td width="30%" height="20" valign="top" class=tablebody2>
<p>消息内容</p>
</td>
<td width="70%" height="20" class=tablebody1>
<textarea name="content" cols="70" rows="10"></textarea>
</td>
</tr>
<tr>
<td colspan=2 align=center height="23" class=tablebody2><input type="submit" name="Submit" value="发送消息"> <input type="reset" name="Submit2" value="重新填写">
</td>
</tr>
</table>
</td></tr>
<INPUT type=hidden value="6" name=menu>
</form>
<tr height=30 ><td align=left height=26 class=tablebody2> <b>其他服务</b> <%if cint(fuwu_setting(7))=1 or cint(fuwu_setting(6))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%></td></tr>
<form name="form7" method="post" action="Z_fuwu.asp">
<tr ><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(6))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>查看在线会员IP</b> 每次<font color=red><%=kanip%></font>元 查看 <INPUT name=user> 的IP和来源 <INPUT type=submit value=查看 name=submit></td></tr>
<INPUT type=hidden value="7" name=menu>
</form>
<form name="form8" method="post" action="Z_fuwu.asp">
<tr><td align=left height=30 class=tablebody1><%if cint(fuwu_setting(7))=1 then%><font color=blue>√</font><%else%><font color=red>×</font><%end if%> <b>删除已读短消息</b> 每次删除将得到银行 <font color=red><%=delmail%>元×短信息条数 </font> 环保奖金 <INPUT type=submit value=删除 name="b1" onclick="javascript:{if(confirm('您确定执行删除操作吗?')){return true;}return false;}"> (<font color="#FF0000">注意：此功能将删除你的所有已读邮件，不可恢复！</font>)</td></tr>
<INPUT type=hidden value="8" name=menu>
</form>
</table>
<br>
<%
end sub
sub fuwu_err()
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
<tr><th height=25>服务错误信息</th></tr>
<tr><td width="100%" class=tablebody1><b>产生错误的可能原因：</b><br><br><li>您是否仔细阅读了<a href="boardhelp.asp?boardid=<%=boardid%>">帮助文件</a>，可能您还没有登陆或者不具有使用当前功能的权限
<font color=<%=Forum_body(8)%>><%=errmsg%></font><br></td></tr>
<tr><td align=center height=26 class=tablebody2><a href="javascript:history.go(-1)">返回上一页</a></td></tr>
</table>
<%
end sub
sub fuwu_suc()
%>
<table cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:75%">
<tr><th height=25>服务操作成功</th></tr>
<tr><td width="100%" class=tablebody1><b>操作成功：</b><br><br><li>欢迎光临<%=Forum_info(0)%> 社区服务中心
<font color=navy><%=sucmsg%></font><br></td></tr>
<tr><td align=center height=26 class=tablebody2><a href=<%=Request.ServerVariables("HTTP_REFERER")%>>返回上一页</a></td></tr>
</table>
<%
end sub
'-----------------------------变量设置---------------------------------
sub admin()
if not master then
Errmsg=Errmsg+"<br>"+"<li>你没有进入服务中心管理的权限,请与管理员联系"
call fuwu_err()
else
'fuwu_setting : canCP/canEP/canPower/canfatie/canGonggao/canDuangxun/canKanip/canDelmail 1-是 0－否 我来了 2002.11.30
'fuwu_setting(): 0 1 2 3 4 5 6 7
%>
<br>
<table border=0 cellspacing=1 cellpadding=3 align=center class=tableborder1 style="width:97%">
<tr height=22><th colspan=3 height=26 >服务中心管理----服务价格设置</th></tr>
<form name="form1" method="post" action="Z_fuwu.asp">
<tr >
<td align=right width="35%" class=tablebody1>每点经验的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=jinyan value="<%=addjinyan%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canEP" value=0 <%if cint(fuwu_setting(1))=0 then%>checked<%end if%>>否
<input type=radio name="canEP" value=1 <%if cint(fuwu_setting(1))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>每点魅力的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=tili value="<%=addtili%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canCP" value=0 <%if cint(fuwu_setting(0))=0 then%>checked<%end if%>>否
<input type=radio name="canCP" value=1 <%if cint(fuwu_setting(0))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>每点发贴的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=fatie value="<%=addfatie%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canfatie" value=0 <%if cint(fuwu_setting(3))=0 then%>checked<%end if%>>否
<input type=radio name="canfatie" value=1 <%if cint(fuwu_setting(3))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>每点威望的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=power value="<%=addpower%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canPower" value=0 <%if cint(fuwu_setting(2))=0 then%>checked<%end if%>>否
<input type=radio name="canPower" value=1 <%if cint(fuwu_setting(2))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>发公告的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=gonggao value="<%=fagonggao%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canGonggao" value=0 <%if cint(fuwu_setting(4))=0 then%>checked<%end if%>>否
<input type=radio name="canGonggao" value=1 <%if cint(fuwu_setting(4))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>群发短信的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=duangxun value="<%=faduangxun%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canDuangxun" value=0 <%if cint(fuwu_setting(5))=0 then%>checked<%end if%>>否
<input type=radio name="canDuangxun" value=1 <%if cint(fuwu_setting(5))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1>看IP的价格：</td>
<td align=left width="35%" class=tablebody1><INPUT name=kanip value="<%=kanip%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canKanip" value=0 <%if cint(fuwu_setting(6))=0 then%>checked<%end if%>>否
<input type=radio name="canKanip" value=1 <%if cint(fuwu_setting(6))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr >
<td align=right width="35%" class=tablebody1> 删除<font color=red>1</font>封邮件单价：</td>
<td align=left width="35%" class=tablebody1><INPUT name=delmail value="<%=Delmail%>"> 元</td>
<td align=left width="30%" class=tablebody1>是否开通该服务
<input type=radio name="canDelmail" value=0 <%if cint(fuwu_setting(7))=0 then%>checked<%end if%>>否
<input type=radio name="canDelmail" value=1 <%if cint(fuwu_setting(7))=1 then%>checked<%end if%>>是
</td>
</tr>
<tr>
<td align=center colspan=3 class=tablebody2><INPUT type=submit value=修改 name=submit></td>
</tr>
<INPUT type=hidden value="10" name=menu>
</form>
</table>
<%
end if
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -