📄 z_fuwu.asp
字号:
sql="select * from [online]"
rs.open sql,conn,1,3
do while not rs.eof
sqldx="select * from [message]"
rsdx.open sqldx,conn,1,3
rsdx.addnew
rsdx("sender")=membername
rsdx("incept")=rs("username")
rsdx("title")=request.form("title")
rsdx("content")=request.form("content")
rsdx("issend")=1
rsdx.update
rsdx.close
rs.movenext
loop
elseif request.form("stype") = 2 then
content="短消息群发对象：所有贵宾"
sql="select * from [user] where userclass='贵宾'"
rs.open sql,conn,1,3
do while not rs.eof
sqldx="select * from [message]"
rsdx.open sqldx,conn,1,3
rsdx.addnew
rsdx("sender")=membername
rsdx("incept")=rs("username")
rsdx("title")=request.form("title")
rsdx("content")=request.form("content")
rsdx("issend")=1
rsdx.update
rsdx.close
rs.movenext
loop
elseif request.form("stype") = 3 then
content="短消息群发对象：所有超级版主和版主"
sql="select * from [user] where userclass='版主' or userclass='超级版主'"
rs.open sql,conn,1,3
do while not rs.eof
sqldx="select * from [message]"
rsdx.open sqldx,conn,1,3
rsdx.addnew
rsdx("sender")=membername
rsdx("incept")=rs("username")
rsdx("title")=request.form("title")
rsdx("content")=request.form("content")
rsdx("issend")=1
rsdx.update
rsdx.close
rs.movenext
loop
elseif request.form("stype") = 4 then
content="短消息群发对象：所有管理员"
sql="select * from [user] where userclass='管理员'"
rs.open sql,conn,1,3
do while not rs.eof
sqldx="select * from [message]"
rsdx.open sqldx,conn,1,3
rsdx.addnew
rsdx("sender")=membername
rsdx("incept")=rs("username")
rsdx("title")=request.form("title")
rsdx("content")=request.form("content")
rsdx("issend")=1
rsdx.update
rsdx.close
rs.movenext
loop
elseif request.form("stype") = 5 then
content="短消息群发对象：所有 管理员、超级版主、版主、贵宾"
sql="select * from [user] where userclass='管理员' or userclass='版主' or userclass='超级版主' or userclass='贵宾'"
rs.open sql,conn,1,3
do while not rs.eof
sqldx="select * from [message]"
rsdx.open sqldx,conn,1,3
rsdx.addnew
rsdx("sender")=membername
rsdx("incept")=rs("username")
rsdx("title")=request.form("title")
rsdx("content")=request.form("content")
rsdx("issend")=1
rsdx.update
rsdx.close
rs.movenext
loop
end if
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+faduangxun
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content=content&"，支付服务费用："&faduangxun&" 元"
call logs("服务","短消息群发",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>短消息群发成功，请返回"
call fuwu_suc()
end if
end sub
'---------------------------------发公告=-------------------------------
sub fgg()
if cint(fuwu_setting(4))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
if trim(request.form("title"))="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>公告标题不能为空,请输入标题"
end if
if trim(request.form("content"))="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>公告内容是空的,必须填写内容"
end if
if mymoney<fagonggao then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>你的现金不够"
end if
BoardID=int(request.form("boardid"))
if founderr then
call bank_err()
else
conn.execute("update [user] set userwealth=userwealth-"&fagonggao&" where userid="&userid)
set rs=server.createobject("adodb.recordset")
sql="select * from [bbsnews]"
rs.open sql,conn,1,3
rs.addnew
rs("boardid")=BoardID
rs("username")=request.form("username")
rs("title")=request.form("title")
rs("content")=request.form("content")
rs.update
rs.close
myCache.name="AnnounceMents"&BoardID
myCache.makeEmpty
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+fagonggao
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="发布论坛公告，支付服务费用："&fagonggao&" 元"
call logs("服务","发布公告",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>恭喜你，公告发布成功"
call fuwu_suc()
end if
end sub
'--------------------------------购买威望值------------------------- 我来了 添加
sub power()
if cint(fuwu_setting(2))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim buypower
buypower=0
set rs=server.createobject("adodb.recordset")
sql="select userwealth,userpower from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("power")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您要购买的威望点数"
elseif not isnumeric(request.form("power")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>购买的威望点数必须是数字"
elseif request.form("power")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请不要输入负数"
else
buypower=abs(int(request.form("power")))
if rs(0)<buypower*addpower then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您的现金不够"
end if
end if
if founderr then
call bank_err()
else
rs(0)=rs(0)-buypower*addpower
rs(1)=rs(1)+buypower
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+addpower
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="购买威望值，支付服务费用："&buypower&"点 × "&addpower&" 元/点 = "& buypower*addpower & " 元"
call logs("服务","购买威望值",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>购买威望值成功，花费："&buypower&"点 × "&addpower&" 元/点 ="& buypower*addpower & "元"
call fuwu_suc()
end if
end sub
'--------------------------------购买发贴数-------------------------
sub ft()
if cint(fuwu_setting(3))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim fatie
fatie=0
set rs=server.createobject("adodb.recordset")
sql="select userwealth,Article from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("fatie")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您要购买的贴子数"
elseif not isnumeric(request.form("fatie")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>购买的贴子数必须是数字"
elseif request.form("fatie")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请不要输入负数"
else
fatie=abs(int(request.form("fatie")))
if rs(0)<fatie*addfatie then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您的现金不够"
end if
end if
if founderr then
call bank_err()
else
rs(0)=rs(0)-fatie*addfatie
rs(1)=rs(1)+fatie
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
rs("chubei")=rs("chubei")+fatie*addfatie
rs.update
rs.close
if cint(log_setting(0))=1 and cint(log_setting(1))=1 then
content="购买发贴数，支付服务费用："&fatie&"点 × "&addfatie&" 元/点 = "& fatie*addfatie & " 元"
call logs("服务","购买发贴数",membername)
sucmsg=sucmsg+"<br>"+"<li>您的操作信息已经记录在案"
end if
sucmsg=sucmsg+"<br>"+"<li>购买发贴数成功，花费："&fatie&"点 × "&addfatie&" 元/点 ="& fatie*addfatie & "元"
call fuwu_suc()
end if
end sub
'--------------------------------购买魅力值-------------------------
sub ml()
if cint(fuwu_setting(0))=0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>该服务已经暂停，请与管理员联系"
call bank_err()
exit sub
end if
dim tili
tili=0
set rs=server.createobject("adodb.recordset")
sql="select userwealth,usercp from [user] where username='"&membername&"' "
rs.open sql,conn,1,3
if request.form("tili")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请输入您要购买的魅力值"
elseif not isnumeric(request.form("tili")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>购买的魅力值必须是数字"
elseif request.form("tili")<0 then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>请不要输入负数"
else
tili=abs(int(request.form("tili")))
end if
if rs(0)<tili*addtili then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>您的现金不够"
end if
if founderr then
call bank_err()
else
rs(0)=rs(0)-tili*addtili
rs(1)=rs(1)+tili
rs.update
rs.close
sql = "select * from [bankconfig]"
rs.open sql,conn1,1,3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -