📄 plus.asp
字号:
<!--#include file="check.asp"-->
<%dim action,id,temp,i,str,skinconn
id=request.querystring("id")
if id="" then id=0
str="页面属性|菜单属性|页面头部|你的位置|快速登陆|用户信息|分区表格|版块列表|版块最后回复|分区底部表格|内容表格|在线统计|版块在线|在线显示|主题列表顶部|主题列表|主题列表底部|帖子顶部|显示投票|帖子信息|帖子底部|用户登陆|各项列表顶部|各项列表底部|页面底部|版块类型图片|用户类型图片|发帖图片|帖子状态图片"
response.write("<body>")
action=lcase(request.querystring("action"))
select case action
case "editplus"
editplus
case "saveplus"
saveplus
case "delplus"
delplus
case "bank"
bank
case "savebank"
savebank
case "skin"
skinhead
skin
case "skindel"
skindel
case "auto"
auto
case "ismode"
ismode
case "addskin"
skinhead
addskin
case "saveaddskin"
saveaddskin
case "editskin"
skinhead
editskin
case "saveeditskin"
saveeditskin
case "updateskinname"
updateskinname
case "skindata"
skinhead
skindata
case "load"
skinhead
load
case "datapost"
datapost
case else
plus
end select
adminfooter()
%>
<script language="javascript">
<!--
var isopen=1;
function Edit(obj,Node){
document.all.form1.NodeType.value = Node;
document.all.form1.SkinName.value = Node;
document.all.form1.Content.value = obj.innerText;
}
//-->
</script>
<% sub plus
dim i
%>
<form method=post name=form style='margin:0' action=plus.asp?action=saveplus>
<div class="ta">
<div class="th jz">添加论坛插件</div>
<div class="td1 h20">插件名称：</div>
<div class="td2 h20"><input type="text" name="plusname" size="20"></div>
<div class="td1 h20">连接文件：</div>
<div class="td2 h20"><input type="text" name="plusurl" size="38">(请填写相对路径)</div>
<div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></div>
</div></form><br />
<div class="ta">
<div class="td3 w231">插件名称</div>
<div class="td3 w231">连接文件</div>
<div class="td3 w291">操作</div>
<%
set rs=yxbbs.execute("select id,name,url,flag from [yx_plus] order by flag desc")
do while not rs.eof
%>
<div class="td3 h20 w231"><%=rs(1)%></div><div class="td3 h20 w231"> <a href="<%=rs(2)%>" target="_blank"><%=rs(2)%></a></div>
<div class="td3 h20 w291"><a href="?action=editplus&id=<%=rs(0)%>"><img src="../images/edit.gif" border="0" align="absmiddle"> 编辑</a> <a onclick=checkclick('删除后将不能恢复！您确定要删除吗？') href="plus.asp?action=delplus&id=<%=rs(0)%>"><img src="../images/del.gif" width="18" height="18" border="0" align="absmiddle"> 删除</a></div>
<%rs.movenext
loop
rs.close
%>
<div style="clear: both;"></div></div>
</form>
<%
end sub
sub editplus
set rs=yxbbs.execute("select name,url,flag from [yx_plus] where id="&id&"")
%>
<form method=post name=form style='margin:0' action=plus.asp?action=saveplus>
<div class="ta">
<div class="th jz">修改论坛插件</div>
<div class="td1 h20">插件名称：</div>
<div class="td2 h20"><input name="id" type="hidden" value="<%=id%>"><input type="text" name="plusname" size="20" value="<%=rs(0)%>"></div>
<div class="td1 h20">连接文件：</div>
<div class="td2 h20"><input type="text" name="plusurl" size="38" value="<%=rs(1)%>">(请填写相对路径)</div>
<div style="clear: both;"></div><div class="tf jz"><input type="submit" value=" 提 交 "> <input type="reset" value=" 重 置 "></div>
</div></form>
<%rs.close
end sub
sub saveplus
dim plusname,plusurl,flag,id
plusname=yxbbs.fun.getstr("plusname")
plusurl=yxbbs.fun.getstr("plusurl")
id=yxbbs.fun.getstr("id")
if plusname="" or plusurl="" then
call goback("",""):exit sub
end if
if id<>"" then
yxbbs.execute("update [yx_plus] set name='"&plusname&"',url='"&plusurl&"' where id="&id)
cache.name="plusmenu":cache.clean()
call suc("","成功的修改了插件："&plusname&"","plus.asp?action=plus")
else
yxbbs.execute("insert into [yx_plus](name,url) values('"&plusname&"','"&plusurl&"')")
cache.name="plusmenu":cache.clean()
call suc("","成功的添加了插件："&plusname&"","plus.asp?action=plus")
end if
end sub
sub delplus
dim id
id=request.querystring("id")
yxbbs.execute("delete from[yx_plus] where id="&id)
cache.name="plusmenu":cache.clean()
call suc("","成功删除了插件","plus.asp?action=plus")
end sub
sub bank
%>
<form method=post style='margin:0' action=plus.asp?action=savebank onsubmit="ok.disabled=true;ok.value='银行正在处理-请稍等。。。'">
<div class="ta">
<div class="th jz">后台银行</div>
<div class="td1 h20">对象：</div>
<div class="td2 h20"><select name='user' style='font-size: 9pt'>
<option value=0>所有在线用户</option>
<option value=1 selected>所有版主</option>
<option value=2>所有总版主</option>
<option value=3>所有管理员</option>
<option value=4>管理团队(板主+管理员)</option>
<option value=5>所有注册用户</option>
</select></div>
<div class="td1 h20">操作：</div>
<div class="td2 h20"><input name="flag" type="radio" value="1" checked="true"> 送钱 <input name="flag" type="radio"value="0"> 扣钱</div>
<div class="td1 h20">金额：</div>
<div class="td2 h20"><input name="coin" type="text" value="1000" size="10" maxlength="5"></div>
<div style="clear: both;"></div><div class="tf jz"><input type='submit' value='确定' name="ok"> <input type='reset' value='重写'></div>
</div>
</form>
<%
end sub
sub savebank
dim usertype,sql,coin,flag,i,mrs
usertype=yxbbs.fun.getstr("user")
coin=yxbbs.fun.getstr("coin")
flag=yxbbs.fun.getstr("flag")
if coin="" then call goback("",""):exit sub
if not isnumeric(coin) then call goback("","金额请用数字填写！"):exit sub
select case usertype
case"0"
sql="select name from [yx_online] where classid<>6"
case"1"
sql="select name from [yx_user] where classid=3"
case"2"
sql="select name from [yx_user] where classid=2"
case"3"
sql="select name from [yx_user] where classid=1"
case"4"
sql="select name from [yx_user] where classid<=3"
case"5"
sql="select name from [yx_user] where classid=5"
case else
call goback("","非法操作"):exit sub
end select
set rs=yxbbs.execute(sql)
if not rs.eof then
mrs=rs.getrows(-1)
rs.close
for i=0 to ubound(mrs,2)
if flag="1" then
yxbbs.execute("update [yx_user] set coin=coin+"&coin&" where name='"&mrs(0,i)&"'")
else
set rs=yxbbs.execute("select coin,banksave from[yx_user] where name='"&mrs(0,i)&"'")
if not rs.eof then
if ccur(rs(0)) < ccur(coin) then
if ccur(coin)-ccur(rs(0))>ccur(rs(1)) then
yxbbs.execute("update [yx_user] set coin=0,banksave=0 where name='"&mrs(0,i)&"'")
else
yxbbs.execute("update [yx_user] set coin=0,banksave=banksave-"&ccur(coin)-ccur(rs(0))&" where name='"&mrs(0,i)&"'")
end if
else
yxbbs.execute("update [yx_user] set coin=coin-"&coin&" where name='"&mrs(0,i)&"'")
end if
end if
rs.close
end if
next
end if
call suc("","银行处理成功！","plus.asp?action=bank")
end sub
sub skinhead
call showtable("论坛风格设置","<center><a href=?action=skin>【风格管理】</a> <a href=?action=addskin>【添加风格】</a> <a href=?action=load>【风格数据导入】</a> <a href=?action=skindata>【风格数据导出】</a></center>")
end sub
function savereplace(str)
str = replace(str,"[","{lfg}")
str = replace(str,"]","{rfg}")
savereplace = str
end function
sub skin
dim rs,rst,mainid
set rst=yxbbs.execute("select skinid,skinname,flag,ismode from [yx_skinstyle] order by skinid asc")
rs=rst.getrows()
rst.close
%>
<div class="ta">
<div class="th1 jz w231">风格id</div>
<div class="th1 jz w258">风格名称</div>
<div class="th1 jz w291">风格管理</div>
<%
dim i
for i=0 to ubound(rs,2)
%>
<div class="td3 h20 w231"><%=rs(0,i)%></div><div class="td3 h20 w231"><%=rs(1,i)%></div><div class="td3 h20 w291">
<% if rs(2,i) then
response.write "<font color=#ff0033><b>√</b> 论坛默认</font>"
else
response.write "<b>×</b> <a href=""?action=auto&id="&rs(0,i)&""">论坛默认</a>"
end if
response.write " "
if rs(3,i) then
response.write "<font color=#ff0033><b>√</b> 做为模版</font>"
else
response.write "<b>×</b> <a href=""?action=ismode&id="&rs(0,i)&""">做为模版</a>"
end if
%> <a href="?action=editskin&id=<%=rs(0,i)%>"><img src="../images/edit.gif" border="0" align="absmiddle"> 修改</a> <a href="?action=skindel&id=<%=rs(0,i)%>" onclick="<%if rs(2,i) then%>alert('此风格论坛正在使用中，论坛默认风格不能删除！');return false;<%else%>checkclick('删除后将不能恢复！您确定要删除吗？')<%end if%>"><img src="../images/del.gif" border="0" align="absmiddle"> 删除</a></div>
<%next%>
<div style="clear: both;"></div></div>
<%
end sub
sub auto
yxbbs.execute("update [yx_config] set skinid="&id)
yxbbs.execute("update [yx_skinstyle] set flag=true where skinid="&id )
yxbbs.execute("update [yx_skinstyle] set flag=false where skinid<"&id&" or skinid>"&id)
call suc("","风格设为论坛默认使用成功！","?action=skin")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -