📄 z_fuwu.asp
字号:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="Z_bankconn.asp"-->
<!--#include file="Z_bankconfig.asp"-->
<%
dim addtili,addjinyan,addfatie,addpower,fagonggao,faduangxun,kanip,delmail
dim menu
dim fuwu_setting '我来了添加 服务设置 2002.11.30
stats="电子银行 特殊服务"
call nav()
call head_var(0,0,"电子银行","Z_bank.asp")
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>您没有进入社区服务的权限，请先登陆或者同管理员联系。"
call dvbbs_error()
elseif cint(bank_setting(6))=1 and (not master) and (DatePart("h", time)<cint(Chen_BusinessTimeSlice(0)) or DatePart("h", time)>=cint(Chen_BusinessTimeSlice(1))) then '银行是否设置定时营业
call BankClose()
else
set rs=server.createobject("adodb.recordset")
sql="select * from [fuwu]"
rs.open sql,conn1,1,3
addtili=rs("addtili") '购买魅力的价格
addjinyan=rs("addjinyan") '购买经验的价格
addfatie=rs("addfatie") '购买发贴数的价格
addpower=rs("addpower") '购买威望的价格
fagonggao=rs("fagonggao") '发公告的价格
faduangxun=rs("faduangxun") '发短信息的价格
kanip=rs("kanip") '查IP的价格
delmail=rs("delmail") '删除1邮件的环保基金单价 我来了添加 2002.11.30
fuwu_setting=split(rs("fuwu_setting"),",") '我来了添加 是否开通服务设置 2002.11.30
'canCP/canEP/canPower/canfatie/canGonggao/canDuangxun/canKanip/canDelmail 1-是 0－否
rs.close
menu=request.Form("menu")
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr><th valign=middle colspan=2 align=center height=25>电子银行 特殊服务</th></tr>
<tr><td valign=middle class=tablebody2 height=100>
<%
call bankhead()
if request("action")="admin" then
call admin() '服务设置页面
elseif menu="" then
call main() '服务页面
elseif menu=1 then
call jy() '购买经验值
elseif menu=2 then
call ml() '购买魅力值
elseif menu=3 then
call ft() '购买发贴数
elseif menu=4 then
call power() '购买威望
elseif menu=5 then
call fgg() '发公告
elseif menu=6 then
call fdx() '群发短信
elseif menu=7 then
call kip() '查会员IP
elseif menu=8 then
call syj() '删除邮件
elseif menu=10 then
call admin1() '保存服务设置
end if
response.write "</td></tr></table>"
end if
call activeonline()
call footer()
'----------------------------------修改价格-----------------------------------
sub admin1()
if not master then
Errmsg=Errmsg+"<br>"+"<li>你没有进入服务中心管理的权限!"
call fuwu_err()
else
if request.form("tili")="" or (not isnumeric(request.form("tili"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>魅力价格必须为数字"
elseif request.form("tili")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>魅力价格不能为负数"
end if
if request.form("jinyan")="" or (not isnumeric(request.form("jinyan"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>经验价格必须为数字"
elseif request.form("jinyan")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>经验价格不能为负数"
end if
if request.form("fatie")="" or (not isnumeric(request.form("fatie"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>发贴数价格必须为数字"
elseif request.form("fatie")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>发贴数价格不能为负数"
end if
if request.form("power")="" or (not isnumeric(request.form("power"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>威望价格必须为数字"
elseif request.form("power")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>威望价格不能为负数"
end if
if request.form("gonggao")="" or (not isnumeric(request.form("gonggao"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>公告价格必须为数字"
elseif request.form("gonggao")<=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>公告价格不能为负数"
end if
if request.form("duangxun")="" or (not isnumeric(request.form("duangxun"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>群发短信息价格必须为数字"
elseif request.form("duangxun")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>群发短信息价格不能为负数"
end if
if request.form("kanip")="" or (not isnumeric(request.form("kanip"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>查在线会员IP信息价格必须为数字"
elseif request.form("kanip")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>查在线会员IP信息价格不能为负数"
end if
if request.form("delmail")="" or (not isnumeric(request.form("delmail"))) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>删除邮件单价必须为数字"
elseif request.form("delmail")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>删除邮件单价不能为负数"
end if
end if
if founderr then
call fuwu_err()
else
set rs=server.createobject("adodb.recordset")
sql="select * from [fuwu]"
rs.open sql,conn1,1,3
rs("addtili")=request.form("tili")
rs("addjinyan")=request.form("jinyan")
rs("addfatie")=request.form("fatie")
rs("addpower")=request.form("power")
rs("fagonggao")=request.form("gonggao")
rs("faduangxun")=request.form("duangxun")
rs("kanip")=request.form("kanip")
rs("delmail")=request.form("delmail")
'canCP/canEP/canPower/canfatie/canGonggao/canDuangxun/canKanip/canDelmail 1-是 0－否
rs("fuwu_setting")=request.Form("canCP") & "," & request.Form("canEP")& "," & request.Form("canPower")& "," & request.Form("canfatie")& "," & request.Form("canGonggao")& "," & request.Form("canDuangxun")& "," & request.Form("canKanip")& "," & request.Form("canDelmail")
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(3))=1 then
content="调整服务价格"
call logs("服务","服务管理中心",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>设置完成，请返回!"
call fuwu_suc()
end if
end sub
'-------------------------------删除邮件-----------------------------------
sub syj()
if cint(fuwu_setting(7))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call fuwu_err()
exit sub
end if
founderr=false
set rs=server.createobject("adodb.recordset")
sql="select * from [message] where flag=1 and issend=1 and incept='"&membername&"' "
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then '是否有已读的短信息
rs.close
dim cunm '我来了添加 统计短信息条数 2002.11.30
set rs=conn.execute("select count(incept) from [message] where flag=1 and issend=1 and sender<>'"&membername&"' and incept='"&membername&"'")
cunm=cint(rs(0)) '统计已读的又不是自己发给自己的短信息 2002.11.30
rs.close
'我来了修改 删除所有已读短信息 2002.11.30
conn.execute("delete from [message] where flag=1 and issend=1 and incept='"&membername&"'")
'我来了添加 删除自己发给自己的信件不发环保奖金 2002.11.30
if cunm=0 then
Errmsg=Errmsg+"<br>"+"<li>你的收件箱只有自己发给自己的信件，所以您没有得到环保奖金"
call fuwu_err()
exit sub
end if
sql="select * from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
rs("userwealth") = rs("userwealth")+delmail*cunm
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")-delmail*cunm
rs.update
rs.close
set rs=nothing
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="清空已读收件，得到环保奖金：<font color=red>"&delmail&"元/封×"&cunm&"封="&delmail*cunm&"元</font>"
call logs("服务","删除短信息",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>你的收件箱已经清空，得到环保奖金<font color=red>"&delmail&"元/封×"&cunm&"封="&delmail*cunm&"元</font>"
call fuwu_suc()
else
rs.close
set rs=nothing
Errmsg=Errmsg+"<br>"+"<li>您的收件箱中没有已读短信息!"
call fuwu_err()
end if
end sub
'------------------------------看IP--------------------------------
sub kip()
if cint(fuwu_setting(6))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim rsip,sqlip
set rs=server.createobject("adodb.recordset")
set rsip=server.createobject("adodb.recordset")
sql="select userwealth from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("user")="" then
Errmsg=Errmsg+"<br>"+"<li>你要看谁的IP呀？"
call fuwu_err()
elseif rs(0)<kanip then
Errmsg=Errmsg+"<br>"+"<li>你的现金不够!"
call fuwu_err()
elseif trim(request.form("user"))="我来了" then
Errmsg=Errmsg+"<br>"+"<li><font color=blue>我来了说：</font><font color=red>拜托，不要查我的IP，好吧，这次免费的喔，感谢您对我的关心!</font>"
call fuwu_err()
else
sqlip="select IP from [online] where username='"&checkStr(trim(request.form("user")))&"' "
rsip.open sqlip,conn,1,3
if rsip.eof then
Errmsg=Errmsg+"<br>"+"<li>对不起此用户不在线"
call fuwu_err()
else
%>
<table border=0 cellspacing=1 cellpadding=3 align=center class=tableborder1><tr><th height=26 >查看 <font color=red><%=htmlencode(request.form("user"))%></font> 的IP信息</th></tr><tr><td align=center height=70 class=tablebody1>会员：<font color=navy><%=htmlencode(request.form("user"))%></font> 的IP是：<font color=red><%=rsip(0)%></font><br><br>来自：<font color=red><%=address(rsip(0))%></font><br></td></tr><tr><td align=center height=26 class=tablebody2><a href="Z_fuwu.asp">返回</a></td></tr></table>
<%
rsip.close
rs("userwealth")=rs("userwealth")-kanip
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+kanip
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="查看 <font color=navy>"&htmlencode(request.form("user"))&"</font> 的IP信息，支付服务费用："&kanip&" 元"
call logs("服务","查看在线会员IP",membername)
end if
end if
end if
end sub
'-------------------------------群发短信------------------------------------
sub fdx()
if cint(fuwu_setting(5))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim rsdx,sqldx
set rs=server.createobject("adodb.recordset")
set rsdx=server.createobject("adodb.recordset")
sql="select userwealth from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("title")="" then
Errmsg=Errmsg+"<br>"+"<li>标题不能为空,请输入标题"
call fuwu_err()
elseif request.form("content")="" then
Errmsg=Errmsg+"<br>"+"<li>你的内容是空的,必须填写内容"
call fuwu_err()
elseif rs("userwealth")<faduangxun then
Errmsg=Errmsg+"<br>"+"<li>你的现金不够!"
call fuwu_err()
else
rs("userwealth")=rs("userwealth")-faduangxun
rs.update
rs.close
if request.form("stype") = 1 then
content="短消息群发对象：所有在线会员"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -