?? admin-gl.asp

?? 朝陽網絡辦公系統網絡辦公OA系統源碼免費網絡辦公自動化
?? ASP
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
<!--#include file="conn.asp"--><!--#include file="fun.asp"-->
<link rel="stylesheet" type="text/css" href="css.css">
<%set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
if sp="" then sp="a"
if c1="" then c1=bbs(1)
if c2="" then c2=bbs(2)
set bbs=nothing
lgname=Request.Cookies(cn)("lgname")
lgpwd=request.cookies(cn)("lgpwd")
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
noyes="登 陸 失 敗 ！"
mes="你不能進入后臺管理。<br>·你現在登陸論壇的用戶名 "&lgname&" 不是管理員。·"%>
<!--#include file="mes.asp"-->
<%response.end
else
t1="<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='240' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'>"
t2="</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=94% >"
d1="<tr><td width=100% ><P style='MARGIN: 10px'>"
d2="</td></tr></table></center></div>"
menu=request.querystring("menu")%>
<body topmargin="0" leftmargin="0"><style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px;}</style>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor=<%=c1%>>
  <tr>
    <td width="100%" height="28" background="pic/<%=sp%>3.gif" align="center">
    <font color="#FFFFFF">論壇后臺管理系統</font></td>
  </tr>
  </table><br>
<%select case menu%>
<%case"bzgl"
go=request.querystring("go")
name=Replace(Request.form("name"),"'","''")
bd=Request.Form("bd")
set add=myconn.execute("SELECT*FROM user where name='"&name&"'")
if add.eof and add.bof then%>
<%=t1%>錯 誤 信 息<%=t2&d1%>·沒有這個用戶·<%=d2%>
<%
else
if go="add" then
pwd=add("password")
myconn.execute("insert into admin(name,password,bd)VALUES('"&name&"','"&pwd&"','"&bd&"')")
%>
<%=t1%>添 加 成 功<%=t2&d1%>·版主添加成功·<%=d2%><%
response.end
end if
if go="del" then
myconn.execute("delete*from admin where name='"&name&"' and bd='"&bd&"'")%>
<%=t1%>刪 除 成 功<%=t2&d1%>·版主刪除成功·<%=d2%><%
response.end
end if
end if
set add=nothing
%>
<%case"addbbs"%>
<%bbsbn=request.querystring("bbsbn")
set bf=myconn.execute("select*from bdinfo where key='0' order by bn")
if bf.eof then
noyes="錯 誤 信 息 ！"
mes="<br>·沒有分類不能添加論壇！請先<a href=admin-right.asp?action=addfl>>>添加分類</a><br><br>"%>
<!--#include file="mes.asp"-->
<%
response.end
set bf=nothing
end if
%>
<%
bn=request.form("bn")
bdname=Replace(Request.Form("bdname"),"'","''")
bdinfo=Replace(Request.Form("bdinfo"),"'","''")
picurl=request.form("picurl")
key=request.form("key")
bbstype=request.form("bbstype")
if bn="" or bn="0" or bdname="" or bdinfo="" or key="" or key=0 or not isnumeric(bn) then
%>
<form method="POST">
<%response.write""&t1&"論 壇 添 加"&t2&""
%>
<%=d1%><P style='MARGIN: 5px'>論壇序號：<input type="text" name="bn" size="25"><font color=#FF0000>·</font>只能填 0 除外的數字
</p><P style='MARGIN: 5px'>論壇名稱：<input type="text" name="bdname" size="25"><font color="#FF0000">·</font>無限制</p>
<P style='MARGIN: 5px'>標志圖片：<input type="text" name="picurl" size="49">·將顯示在論壇的右邊，可以不填。</p>
<P style='MARGIN: 5px'>論壇介紹：<br><textarea rows="4" name="bdinfo" cols="58"></textarea><font color="#FF0000">·</font></p>
<P style='MARGIN: 5px'>屬于分類：<select size="1" name="key" style="font-size: 9pt">
<%do while not bf.eof%><%if bf("bn")=bbsbn then%><option value="<%=bf("bn")%>" selected><%=bf("bdname")%></option><%else%>
<option value="<%=bf("bn")%>"><%=bf("bdname")%></option><%end if%>
<%
bf.movenext
Loop
bf.Close
set bf=nothing
%>
</select><font color="#FF0000">·</font>請選擇該論壇屬于哪一種分類</p><br><P style='MARGIN: 4px'>
論壇類型：(請從下面選擇一個)</p><P style='MARGIN: 4px'>
<input type="radio" value="0" name="bbstype" checked>普通論壇
（用戶和游客可以自由的進入該類型論壇，·推薦·）<P style='MARGIN: 4px'>
<input type="radio" value="1" name="bbstype">會員論壇
（只有注冊用戶才能進入該類型論壇）</p><P style='MARGIN: 4px'>
<input type="radio" value="2" name="bbstype">鎖定論壇（會員和游客只能瀏覽帖子，不能對該論壇的帖子回復等）</p><P style='MARGIN: 4px'>
<input type="radio" value="3" name="bbstype">認證論壇
（只有版主認證的注冊用戶才能進入該類型論壇）</p><br>
<P style='MARGIN: 4px'><input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><br><%=d2%>
</form>
<%
else
set bbsyn=myconn.execute("select bn from bdinfo where bn="&bn&" and key<>'0'")
if not bbsyn.eof then
noyes="錯 誤 信 息 ！"
mes="<br>·論壇序號 "&bn&" 已經存在！·請選擇別的論壇序號<br><br>"%>
<!--#include file="mes.asp"--><%
response.end
end if
set bbsyn=nothing
id=bn&"1"
if bbstype<>3 then
myconn.execute("insert into bdinfo(id,bn,bdname,bdinfo,picurl,key,type)values("&id&","&bn&",'"&bdname&"','"&bdinfo&"','"&picurl&"','"&key&"',"&bbstype&")")
noyes="添 加 成 功 ！"
mes="<br>·添加論壇成功！<br><br>"
else
myconn.execute("insert into bdinfo(id,bn,bdname,bdinfo,picurl,key,pass,type)values("&id&","&bn&",'"&bdname&"','"&bdinfo&"','"&picurl&"','"&key&"','"&lgname&"',"&bbstype&")")
noyes="添 加 成 功 ！"
mes="<br>·添加論壇成功,此論壇為認證論壇，暫時只有管理員能夠進入。<br>·你可以通過 <a href=admin-gl.asp?menu=bbsgl>管理</a> 項目來添加可以進入該論壇的用戶<br><br>"
end if
%><!--#include file="mes.asp"-->
<%end if%>
<%case"addadmin"
adminname=Replace(Request.Form("adminname"),"'","''")
set isadd=myconn.execute("select*from admin where name='"&adminname&"' and bd='70767766'")
if not isadd.eof then
iadd="yes"
end if
set isadd=nothing
set yon=myconn.execute("select*from user where name='"&adminname&"'")
if yon.eof or iadd="yes" then
%><%=t1%>錯 誤 信 息<%=t2&d1%>·該用戶名已經是管理員或者還沒有<a target="_blank" href="zhuce.asp">注冊</a>·<%=d2%>
<%else
pwd=yon("password")
myconn.execute("insert into admin(name,password,bd)values('"&adminname&"','"&pwd&"','70767766')")
%><%=t1%>添 加 成 功<%=t2&d1%>·已經成功的添加管理員 <%=adminname%> ·<br><%=d2%><%end if
set yon=nothing%>
<%case"deladmin"
adminname=Replace(Request.Form("adminname"),"'","''")
yon=myconn.execute("select count(name) from admin where bd='70767766'")(0)
if yon<=1 then
%><%=t1%>錯 誤 信 息<%=t2&d1%>·論壇至少要有一個管理員·<%=d2%>
<%else
myconn.execute("delete*from admin where name='"&adminname&"' and bd='70767766'")
%><%=t1%>刪 除 成 功<%=t2&d1%>·已經成功的刪除管理員 <%=adminname%> ·<br><%=d2%><%end if%>
<%case"updatebbs"
id=request.querystring("id")
set old=myconn.execute("select bn from bdinfo where id="&id&"")
oldbn=old("bn")
set old=nothing
bn=Replace(Request.Form("bn"),"'","''")
set sbb=myconn.execute("select bdname from bdinfo where bn="&bn&" and id<>"&id&" and key<>'0'")
if not sbb.eof then
sb="no"
sbsb="<br>·填寫的論壇序號已經被 "&kbbs(sbb("bdname"))&" 使用，請另外選擇別的序號·"
end if
set sbb=nothing
bdname=Replace(Request.Form("bdname"),"'","''")
bdinfo=Replace(Request.Form("bdinfo"),"'","''")
picurl=request.form("picurl")
key=request.form("key")
bbstype=request.form("bbstype")
if bdname="" or bdinfo="" or bn="0" or not isnumeric(bn) or sb="no" then
%><%=t1%>錯 誤 信 息<%=t2&d1%>·請填寫完整帶有<font color="#FF0000">·</font>的項目·<br>·論壇序號必須為 0 除外的數字·<%=sbsb%><%=d2%><%else
if bbstype<>3 then
myconn.execute("update [bdinfo] set bdname='"&bdname&"',bdinfo='"&bdinfo&"',picurl='"&picurl&"',key='"&key&"',pass='',type="&bbstype&",bn="&bn&" where id="&id&"")
elseif bbstype="3" then
set dfdf=myconn.execute("select pass from bdinfo where id="&id&"")
if dfdf("pass")<>"" then
myconn.execute("update [bdinfo] set bdname='"&bdname&"',bdinfo='"&bdinfo&"',picurl='"&picurl&"',key='"&key&"',type=3,bn="&bn&" where id="&id&"")
else
myconn.execute("update [bdinfo] set bdname='"&bdname&"',bdinfo='"&bdinfo&"',picurl='"&picurl&"',key='"&key&"',pass='"&lgname&"',type=3,bn="&bn&" where id="&id&"")
end if
end if
myconn.execute("update min set bd="&bn&" where bd="&oldbn&"")
%><%=t1%>修 改 成 功<%=t2&d1%>·已經成功的修改了該版面的信息·<%=d2%>
<%end if%>
<%case"addpassuser"
user=Replace(Request.Form("user"),"'","''")
bn=request.querystring("bn")
myconn.execute("update bdinfo set pass='"&user&"' where bn="&bn&" and key<>'0'")
%><%=t1%>添 加 成 功<%=t2&d1%>·已經成功的添加了認證用戶·<%=d2%>

<%case"deluser"%>
<%
delname=Replace(Request.form("delname"),"'","''")
set add=myconn.execute("SELECT name FROM user where name='"&delname&"'")
set isadmin=myconn.execute("select name from admin where name='"&delname&"'")
if add.eof or not isadmin.eof then
%>
<%=t1%>錯 誤 信 息<%=t2&d1%>不能刪除，可能存在以下問題：<br><br>·沒有這個用戶·<br>·該用戶是管理員(管理員不能刪除，如果確實要把該用戶刪除，請先更改管理員，再把該用戶刪除)·<%=d2%>
<%
else
myconn.execute("delete*from user where name='"&delname&"'")
myconn.execute("delete*from min where name='"&delname&"'")
myconn.execute("delete*from admin where name='"&delname&"'")
myconn.execute("delete*from hand where tname='"&delname&"'")
%>
<%=t1%>刪 除 成 功<%=t2&d1%>·已經成功的刪除了用戶以及這個用戶的帖子和留言·<%=d2%><%end if
set isadmin=nothing
set add=nothing%>
<%case"fench"
bn=request.querystring("bn")
set fenfen=myconn.execute("select id,bdname from bdinfo where bn="&bn&" and key='0'")
id=fenfen("id")
fname=kbbs(fenfen("bdname"))
set fenfen=nothing
%><form method="POST" action="?menu=fenchok&id=<%=id%>">
<%response.write""&t1&"修 改 分 類"&t2&""&d1&""%>分類序號：<input type="text" name="xuxu" size="20" value="<%=bn%>"><br>
分類名稱：<input type="text" name="fenn" size="20" value="<%=fname%>"> <input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2">
<%=d2%></form>
<%case"fenchok"
12 下一頁
?? 文件大小 1678 K
?? 上傳用戶 wentianliang
?? 所屬分類 OA系統
??? 相關標簽

#網絡 #OA系統 #源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? admin-gl.asp

?? 快捷鍵說明
