admin-gl.asp

ZY-OA网络办公系统,这是我从别的地方下的

id=request.querystring("id")
fenn=Replace(Request.Form("fenn"),"'","''")
xuxu=Replace(Request.Form("xuxu"),"'","''")
set xo=myconn.execute("select bn from bdinfo where id="&id&"")
xox=xo("bn")
set xo=nothing
set xuyy=myconn.execute("select bn,bdname from bdinfo where bn="&xuxu&" and id<>"&id&" and key='0'")
if not xuyy.eof then
xy="<br>·该分类序号已经被 "&kbbs(xuyy("bdname"))&" 使用，请选用别的序号·"
end if
set xuyy=nothing
if fenn="" or xuxu="" or xuxu="0" or xy<>"" then
response.write""&t1&"修 改 失 败"&t2&""&d1&"·请输入分类名称以及正确的分类序号·"&xy&""&d2&""
else
myconn.execute("update bdinfo set key='"&xuxu&"' where key='"&xox&"'")
myconn.execute("update [bdinfo] set bdname='"&fenn&"',bn="&xuxu&" where id="&id&"")
response.write""&t1&"修 改 成 功"&t2&""&d1&"·修改分类名称成功"&d2&""
end if
%>

<%case"bbsgl"%><br>
<%response.write""&t1&"论 坛 管 理"&t2&""%>
<%=d1%>
<%
set bf=myconn.execute("select*from bdinfo where key='0' order by bn")
do while not bf.eof
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
  <tr>
    <td width="29%" height="25"><font color=<%=c1%>><%=bf("bdname")%></font><%bbnn=bf("bn")%>　</td>
    <td width="51%"><a href="admin-gl.asp?menu=bdcon&dw=delfl&bn=<%=bbnn%>">删除此分类</a> | <a href="admin-gl.asp?menu=fench&bn=<%=bbnn%>">修改此分类</a> |
    <a href="admin-gl.asp?menu=addbbs&bbsbn=<%=bbnn%>">增加论坛</a> |</td>
    <td width="20%">分类序号：<font color=<%=c1%>><%=bbnn%></font></td>
  </tr>
  <%
set asd=myconn.execute("select*from bdinfo where key<>'0' and key='"&bbnn&"'order by bn")
do while not asd.eof
%><tr>
    <td width="29%" height="24">
·<%=asd("bdname")%></td>
    <td width="51%"><a href=admin-right.asp?action=chbbsinfo&id=<%=asd("id")%>>修改</a> | <a href="admin-gl.asp?menu=bdcon&dw=delbbs&bn=<%=asd("bn")%>">删除</a> | 
    <a href="admin-right.asp?action=delall&bn=<%=asd("bn")%>">清空帖子</a><%if asd("pass")<>"" then%> | 
    <a href="admin-right.asp?action=addpassuser&bn=<%=asd("bn")%>">添加认证用户</a><%end if%></td>
    <td width="20%">论坛序号：<%=asd("bn")%></td>
  </tr><%
asd.movenext
Loop
asd.Close
set asd=nothing
%>
</table>
<br><%
bf.movenext
Loop
bf.Close
set bf=nothing
%><br><br>
<%=d1%>说明：<br>一个分类可以包括一个或多个论坛，<br>分类与分类之间的序号不能相同，论坛与论坛之间的序号不能相同。<br>当你删除分类时，分类中的论坛也会被删除！<br>
各分类以及各论坛将按照序号显示出来，所以要放置在前面的分类或论坛的序号应该前一点<br><br><%=d2%><%=d2%>
<%case"bdcon"
dw=request.querystring("dw")
bn=request.querystring("bn")
if dw="delfl" then
myconn.execute("delete*from bdinfo where bn="&bn&" and key='0'")
myconn.execute("delete*from bdinfo where key='"&bn&"'")
%><%=t1%>删 除 成 功<%=t2&d1%>·删除论坛分类成功·<%=d2%>
<%response.end
end if
if dw="delbbs" then
myconn.execute("delete*from bdinfo where bn="&bn&" and key<>'0'")
%><%=t1%>删 除 成 功<%=t2&d1%>·删除论坛成功·<%=d2%>
<%end if%>
<%case"addlm"%>
<%
name=Replace(Request.Form("name"),"'","''")
url=Replace(Request.Form("url"),"'","''")
picurl=Replace(Request.Form("picurl"),"'","''")
if name="" or url="" or picurl="" then
%>
<%=t1%>错 误 信 息<%=t2&d1%>·信息没有填写完整·<%=d2%>
<%else%>
<%myconn.execute("insert into lmbbs(url,picurl,name)values('"&url&"','"&picurl&"','"&name&"')")%>
<%=t1%>添 加 成 功<%=t2&d1%>·添加论坛联盟成功·<%=d2%><%end if%>
<%case"editlm"%>
<%name=Replace(Request.querystring("name"),"'","''")
url=Replace(Request.Form("url"),"'","''")
picurl=Replace(Request.Form("picurl"),"'","''")
if url="" or picurl="" then
%>
<%=t1%>错 误 信 息<%=t2&d1%>·信息没有填写完整·<%=d2%>
<%else%>
<%myconn.execute("update [lmbbs] set url='"&url&"',picurl='"&picurl&"' where name='"&name&"'")%>
<%=t1%>编 辑 成 功<%=t2&d1%>·修改论坛联盟成功·<%=d2%><%end if%>
<%case"dellm"
name=Replace(Request.querystring("name"),"'","''")
if name="" then
%><%=t1%>错 误 信 息<%=t2&d1%>·请选择要删除的联盟名称·<%=d2%><%else
myconn.execute("delete*from lmbbs where name='"&name&"'")%>
<%=t1%>删 除 成 功<%=t2&d1%>·删除联盟成功·<%=d2%><%end if%><%case"updateuser"%>
<%
chname=Replace(Request.form("chname"),"'","''")
chqian=Replace(Request.form("chqian"),"'","''")
chmeili=Replace(Request.form("chmeili"),"'","''")
chjingyan=Replace(Request.form("chjingyan"),"'","''")
set add=myconn.execute("SELECT name FROM user where name='"&chname&"'")
if add.eof and add.bof then%>
<%=t1%>错 误 信 息<%=t2&d1%>·没有这个用户名·<%=d2%>
<%else%>
<%
if not isnumeric(chqian) or not isnumeric(chmeili) or not isnumeric(chjingyan) then%>
<%=t1%>错 误 信 息<%=t2&d1%>·金钱、魅力、经验必须为大于0的数字·<%=d2%>
<%else
myconn.execute("update [user] set qian='"&chqian&"',meili='"&chmeili&"',jingyan='"&chjingyan&"' where name='"&chname&"'")
%>
<%=t1%>修 改 成 功<%=t2&d1%>·已经成功的修改了用户的信息·<%=d2%><%end if
end if
set add=nothing
%><%case"chpwd"%><!--#include file="md5.asp"-->
<%
chaname=Replace(Request.form("chaname"),"'","''")
chapwd=Replace(Request.form("chapwd"),"'","''")
chapwd1=md5(chapwd)
set add=myconn.execute("SELECT*FROM user where name='"&chaname&"'")
if add.eof or chapwd="" then%>
<%=t1%>错 误 信 息<%=t2&d1%>·没有这个用户名或者没有填写新密码·<%=d2%>
<%else
myconn.execute("update user set password='"&chapwd1&"' where name='"&chaname&"'")
%>
<%=t1%>修 改 成 功<%=t2&d1%><%=kbbs(chaname)%> 的密码已经改为： <%=chapwd%><%=d2%><%end if
set add=nothing%>
<%case"delanymail"
daynum=request.form("daynum")
if not isnumeric(daynum) then
%><%=t1%>错 误 信 息<%=t2&d1%>·天数必须填写并且为数字·<%=d2%><%else
myconn.execute("delete*from hand where riqi<now-"&daynum&"")
%><%=t1%>删 除 成 功<%=t2&d1%>·批量删除留言成功·<%=d2%><%end if%>
<%case"delwhosemail"
ddname=Replace(Request.form("ddname"),"'","''")
if ddname="" then
%>
<%=t1%>错 误 信 息<%=t2&d1%>·请输入用户名·<%=d2%><%else
myconn.execute("delete*from hand where tname='"&ddname&"'")
%><%=t1%>删 除 成 功<%=t2&d1%>·批量删除留言成功·<%=d2%><%end if%>
<%case"hbbbs"
frombd=request.form("frombd")
tobd=request.form("tobd")
myconn.execute("delete*from bdinfo where bn="&frombd&" and key<>'0'")
myconn.execute("update min set bd="&tobd&" where bd="&frombd&"")
%>
<%=t1%>合 并 成 功<%=t2&d1%>·论坛合并成功·<%=d2%>

<%case"delany"
daynum=request.form("daynum")
bd=request.form("bd")
if not isnumeric(daynum) then
%><%=t1%>错 误 信 息<%=t2&d1%>·天数必须填写并且为数字·<%=d2%><%else
if bd="all" then
myconn.execute("delete*from min where riqi<now-"&daynum&"")
else
myconn.execute("delete*from min where bd="&bd&" and riqi<now-"&daynum&"")
end if
%>
<%=t1%>删 除 成 功<%=t2&d1%>·批量删除帖子成功·<%=d2%><%end if%><%case"delnore"%>
<%daynum=request.form("daynum")
bd=request.form("bd")
if not isnumeric(daynum) then
%><%=t1%>错 误 信 息<%=t2&d1%>·天数必须填写并且为数字·<%=d2%><%else
if bd="all" then
myconn.execute("delete*from min where orders<now-"&daynum&"")
else
myconn.execute("delete*from min where bd="&bd&" and orders<now-"&daynum&"")
end if
%>
<%=t1%>删 除 成 功<%=t2&d1%>·批量删除帖子成功·<%=d2%><%end if%><%case"delwhose"
ddname=Replace(Request.form("ddname"),"'","''")
bd=request.form("bd")
if ddname="" then
%>
<%=t1%>错 误 信 息<%=t2&d1%>·请输入用户名·<%=d2%><%else
if bd="all" then
myconn.execute("delete*from min where name='"&ddname&"'")
else
myconn.execute("delete*from min where bd="&bd&" and name='"&ddname&"'")
end if
%><%=t1%>删 除 成 功<%=t2&d1%>·批量删除帖子成功·<%=d2%><%end if%><%case"moveday"
daynum=request.form("daynum")
frombd=request.form("frombd")
tobd=request.form("tobd")
if not isnumeric(daynum) then
%><%=t1%>错 误 信 息<%=t2&d1%>·天数必须填写并且为数字·<%=d2%><%else
myconn.execute("update min set bd="&tobd&" where bd="&frombd&" and riqi<now-"&daynum&"")
%>
<%=t1%>移 动 成 功<%=t2&d1%>·批量移动帖子成功·<%=d2%><%end if%><%case"movename"
movename=Replace(Request.form("movename"),"'","''")
frombd=request.form("frombd")
tobd=request.form("tobd")
if movename="" then%>
<%=t1%>错 误 信 息<%=t2&d1%>·请输入用户名·<%=d2%><%else
myconn.execute("update min set bd="&tobd&" where bd="&frombd&" and name='"&movename&"'")
%><%=t1%>移 动 成 功<%=t2&d1%>·批量移动帖子成功·<%=d2%><%end if%><%case"bbs"
upnum=Replace(Request.form("upnum"),"'","''")
upsize=Replace(Request.form("upsize"),"'","''")
style=Replace(Request.form("style"),"'","''")
if not isnumeric(upnum) or not isnumeric(upsize) then
uuu="<br>·上传个数以及上传大小必须为数字·"
end if
tl=Replace(Request.form("tl"),"'","''")
c1=Replace(Request.form("c1"),"'","''")
c2=Replace(Request.form("c2"),"'","''")
topinfo=Replace(Request.form("topinfo"),"'","''")
if tl="" or c1="" or c2="" or upsize="" or upnum="" or style="" or not isnumeric(upnum) or not isnumeric(upsize) then
%><%=t1%>错 误 信 息<%=t2&d1%>·请填写完整必填项目·<%=uuu%><%=d2%>
<%else
myconn.execute("update [bbsinfo] set tl='"&tl&"',c1='"&c1&"',c2='"&c2&"',topinfo='"&topinfo&"',upnum="&upnum&",upsize="&upsize&",style='"&style&"'")%>
<%=t1%>修 改 成 功<%=t2&d1%>·论坛名称以及其他参数修改成功·<%=d2%><%end if%><%end select
end if%>