?? admin_setup.asp
字號:
<!-- #include file="setup.asp" -->
<%
if adminpassword<>session("pass") then
response.redirect "admin.asp?menu=login"
end if
%>
<META http-equiv=Content-Type content=text/html;charset=gb2312>
<link href=images/bbs.css rel=stylesheet>
<br><center>
<p></p>
<body background=images/bei.gif>
<%
select case Request("menu")
case "link"
link
case "linkok"
linkok
case "dellink"
conn.execute("delete from [link] where id="&Request("id")&"")
link
case "upclubconfig"
upclubconfig
case "upclubconfigok"
upclubconfigok
case "upclubconfigok2"
upclubconfigok2
case "variable"
variable
case "variableok"
variableok
end select
sub link
%>
友情鏈接管理
<FORM action=?menu=linkok method=post>
<TABLE cellSpacing=0 cellPadding=0 width="383" border=0>
<TBODY>
<TR>
<TD width="163">論壇名稱： </TD>
<TD width="288"><INPUT size=40 name=name></TD></TR>
<tr>
<TD width="163">論壇URL： </TD>
<TD width="288"><INPUT size=40 name=url value="http://"> </TD>
</tr>
<TR>
<TD width="163">圖標URL： </TD>
<TD width="288"><INPUT size=40 name=logo value="http://"> </TD></TR>
<TR>
<TD width="163" height=15>論壇簡介： </TD>
<TD width="288" height=15><INPUT size=40 name=intro> </TD></TR>
<TR>
<TD colSpan=2 height=15 width="451">
<DIV align=center><INPUT type=submit value=" 添 加 " name=Submit>
<input type="reset" value=" 重 填 " name="Submit2">
</DIV></TD></TR></TBODY></TABLE></FORM>
<%
rs.Open "link",Conn
do while not rs.eof
response.write "<a title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank><img src="&rs("logo")&" border=0 width=88 height=31></a> <a href=?menu=dellink&id="&rs("id")&">刪除</a> "
rs.movenext
loop
rs.close
end sub
sub linkok
if Request("url")="http://" or Request("url")="" then
error2("論壇URL沒有填寫")
end if
rs.Open "link",Conn,1,3
rs.addnew
rs("name")=Request("name")
rs("logo")=Request("logo")
rs("url")=Request("url")
rs("intro")=Request("intro")
rs.update
rs.close
link
end sub
sub upclubconfig
%>
<fieldset style="WIDTH: 600">
<legend>社區資料更新</legend>
此操作將更新論壇資料、用戶資料<br>（防止論壇統計錯誤和用戶類型顯示不正確的情況發生）<br>
<a href="?menu=upclubconfigok">點擊這里更新論壇統計數據</a><br>
<a href="?menu=upclubconfigok2">點擊這里更新所有用戶資料 </a>
</fieldset><br>
<%
end sub
sub upclubconfigok
rs.Open "bbsconfig",Conn
do while not rs.eof
tmprs=conn.execute("Select count(forumid) from forum where forumid="&rs("id")&"")
allarticle=tmprs(0)
tmprs=conn.execute("Select count(forumid) from reforum where forumid="&rs("id")&"")
allrearticle=tmprs(0)
conn.execute("update [bbsconfig] set toltopic="&allarticle&",tolrestore="&allarticle+allrearticle&" where ID="&rs("id")&"")
rs.movenext
loop
rs.close
%>
操作成功！<br>
<br>
已經更新社區所有論壇的統計數據<br>
<%
end sub
sub upclubconfigok2
tmprs=conn.execute("Select count(id) from user")
alluser=tmprs(0)
conn.execute("update [clubconfig] set associatortol="&alluser&"")
conn.execute("update [user] set levelname='特邀嘉賓',levelimage='<img src=images/level11.gif>' where membercode=2")
conn.execute("update [user] set levelname='論壇版主',levelimage='<img src=images/level12.gif>' where membercode=3")
conn.execute("update [user] set levelname='管 理 員',levelimage='<img src=images/level13.gif>' where membercode=4")
conn.execute("update [user] set levelname='社區區長',levelimage='<img src=images/level14.gif>' where membercode=5")
%>
操作成功！<br>
<br>
共更新 <%=alluser%> 位成員的資料<br>
<%
end sub
sub variable
%>
<form method="post" action="?menu=variableok">
<table>
<tr>
<td width="40%">社區區長：<br><font color="#FF0000">多區長添加請用“|”分隔</font></td>
<td><input size="30" name="administrators" value="<%=administrators%>"><br>如 yuzi|裕裕</td>
</tr>
<tr>
<td width="40%">社區管理密碼：</td>
<td>
<input size="30" name="adminpassword" value="<%=adminpassword%>" type="password"></td>
</tr>
<tr>
<td width="40%">社區名稱：</td>
<td><input size="30" name="clubname" value="<%=clubname%>"></td>
</tr>
<tr>
<td width="40%">社區URL：</td>
<td><input size="30" name="cluburl" value="<%=cluburl%>"></td>
</tr>
<tr>
<td width="40%">主頁名稱（底部顯示）：</td>
<td><input size="30" name="homename" value="<%=homename%>"></td>
</tr>
<tr>
<td width="40%">主頁地址（底部顯示）：</td>
<td><input size="30" value="<%=homeurl%>" name="homeurl"></td>
</tr>
<tr>
<td width="40%">過濾敏感字（多字請用“|”分隔）：</td>
<td><input size="30" value="<%=badwords%>" name="badwords"></td>
</tr>
<tr>
<td width="40%">禁止IP地址進入論壇（多IP請用“|”分隔）：</td>
<td><input size="30" value="<%=badip%>" name="badip"></td>
</tr>
<tr>
<td width="40%">支持[IMG] YBB代碼：</td>
<td>
<input type=radio name="ybbimg" value="False" <%if ybbimg=False then%>checked<%end if%>>關閉
<input type=radio name="ybbimg" value="True" <%if ybbimg=True then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%">支持[FLASH] YBB代碼：</td>
<td>
<input type=radio name="ybbflash" value="False" <%if ybbflash=False then%>checked<%end if%>>關閉
<input type=radio name="ybbflash" value="True" <%if ybbflash=True then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%">社區首頁自動展開所有論壇：</td>
<td>
<input type=radio name="allclass" value="False" <%if allclass=False then%>checked<%end if%>>關閉
<input type=radio name="allclass" value="True" <%if allclass=True then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%">注冊用戶密碼通過Email發送：<br><font color="#FF0000">服務器必須支持郵件發送功能</font></td>
<td>
<input type=radio name="SendPassword" value="False" <%if SendPassword=False then%>checked<%end if%>>關閉
<input type=radio name="SendPassword" value="True" <%if SendPassword=True then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%">發送郵件組件：</td>
<td>
<select name="selectmail">
<option value="<%=selectmail%>"><%=selectmail%></option>
<option value="">關閉</option>
<option value="JMail">JMail</option>
<option value="CDONTS">CDONTS</option>
</select>
</td>
</tr>
<tr>
<td width="40%">SMTP Server地址：</td>
<td><input size="30" value="<%=smtp%>" name="smtp"></td>
</tr>
<tr>
<td width="40%">郵件服務器登錄名：</td>
<td><input size="30" value="<%=MailServerUserName%>" name="MailServerUserName"></td>
</tr>
<tr>
<td width="40%">郵件服務器登錄密碼：</td>
<td>
<input size="30" value="<%=MailServerPassword%>" name="MailServerPassword" type="password"></td>
</tr>
<tr>
<td width="40%">發件人Email地址：</td>
<td><input size="30" value="<%=smtpmail%>" name="smtpmail"></td>
</tr>
</table>
<input type="submit" value=" 更 新 ">
<%
end sub
sub variableok
if Request("clubname")="" then
error2("請輸入社區名稱")
end if
filtrate=split(Request("badip"),"|")
for i = 0 to ubound(filtrate)
if instr(remoteaddr,""&filtrate(i)&"") > 0 then
error2("請檢查你輸入的IP地址是否正確")
end if
next
master=split(administrators,"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=1,levelname='普通會員',levelimage='<img src=images/level1.gif>' where username='"&master(i)&"'")
next
administrators2="|"&replace(Request("administrators"),"||","|")&"|"
rs.Open "clubconfig",Conn,1,3
rs("administrators")=replace(administrators2,"||","|")
rs("badwords")=Request("badwords")
rs("badip")=Request("badip")
rs("adminpassword")=Request("adminpassword")
rs("clubname")=Request("clubname")
rs("cluburl")=Request("cluburl")
rs("homename")=Request("homename")
rs("homeurl")=Request("homeurl")
rs("allclass")=Request("allclass")
rs("selectmail")=Request("selectmail")
rs("smtp")=Request("smtp")
rs("smtpmail")=Request("smtpmail")
rs("ybbimg")=Request("ybbimg")
rs("ybbflash")=Request("ybbflash")
rs("MailServerUserName")=Request("MailServerUserName")
rs("MailServerPassword")=Request("MailServerPassword")
rs("SendPassword")=Request("SendPassword")
rs.update
master=split(rs("administrators"),"|")
for i = 1 to ubound(master)-1
conn.execute("update [user] set membercode=5,levelname='社區區長',levelimage='<img src=images/level14.gif>' where username='"&master(i)&"'")
next
rs.close
%>
更新成功
<br><br><a href=javascript:history.back()>返 回</a>
<%
end sub
htmlend
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -