?? admin_ads.asp
字號:
<!--#include file =conn.asp-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=chkuser.asp-->
<title><%=ForumName%>--管理頁面</title>
<link rel="stylesheet" type="text/css" href="forum.css">
<meta NAME=GENERATOR Content=""Microsoft FrontPage 3.0"" CHARSET=GB2312>
<BODY <%=ForumBody%>>
<%
if instr(session("flag"),"25")=0 then
Errmsg=Errmsg+"<br>"+"<li>本頁面為管理員專用，請<a href=admin_index.asp target=_top>登陸</a>后進入。<br><li>您沒有管理本頁面的權限。"
call Error()
else
call main()
conn.close
set conn=nothing
end if
sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=<%=Tablewidth%> bgcolor=<%=tablebackcolor%> align=center>
<tr>
<td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<tr bgcolor='<%=Tabletitlecolor%>'>
<td align=center colspan="2"><font color="<%=tablefontcolor%>">歡迎<b><%=membername%></b>進入管理頁面</font>
</td>
</tr>
<tr bgcolor="<%=tablebodycolor%>">
<td width="100%" valign=top><font color=<%=TableContentColor%>>
<%
if request("action")="save" then
call saveconst()
else
call consted()
end if
if founderr then call error()
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end sub
sub consted()
%>
<form method="POST" action=admin_ads.asp?action=save>
<table width="95%" border="0" cellspacing="1" cellpadding="3" align=center bordercolor=<%=aTablebackcolor%>>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableContentColor%>><B>說明</B>：<BR>1、復選框中選擇的為當前的使用設置模板，點擊可查看該模板設置，點擊別的模板直接查看該模板并修改設置。您可以將您下面的設置保存在多個論壇風格模板中<BR>2、您也可以將下面設定的信息保存并應用到具體的分論壇設置中，可多選<BR>3、如果您想在一個版面引用別的版面或模板的配置，只要點擊該版面或模板名稱，保存的時候選擇要保存到的版面名稱或模板名稱即可。</font></td>
</tr>
<tr>
<td width="100%" colspan=2><font color=<%=TableContentColor%>><B>當前使用主模板</B>（可將設置保存到下列模板中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from config"
rs.open sql,conn,1,1
do while not rs.eof
if request("skinid")="" then
if request("boardid")="" then
if rs("active")=1 then
sel="checked"
else
sel=""
end if
else
sel=""
end if
else
if rs("id")=cint(request("skinid")) then
sel="checked"
else
sel=""
end if
end if
response.write "<input type=checkbox name=skinid value="&rs("id")&" "&sel&"><a href=admin_ads.asp?skinid="&rs("id")&"><font color="&TableContentColor&">"&rs("skinname")&"</font></a> "
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<tr>
<td width="100%" colspan=2><font color=<%=TableContentColor%>><B>當前使用分論壇模板</B>（可將設置保存到下列論壇中）<BR>
<%
set rs = server.CreateObject ("adodb.recordset")
sql="select * from board"
rs.open sql,conn,1,1
do while not rs.eof
if request("boardid")<>"" or isnumeric(request("boardid")) then
if rs("boardid")=cint(request("boardid")) then
sel="checked"
else
sel=""
end if
end if
response.write "<input type=checkbox name=boardid value="&rs("boardid")&" "&sel&"><a href=admin_ads.asp?boardid="&rs("boardid")&"><font color="&TableContentColor&">" & rs("boardtype") & "</font></a> "
rs.movenext
loop
rs.close
set rs=nothing
%></font>
</td></tr>
<tr bgcolor=<%=aTabletitlecolor%>>
<td height="23" colspan="2" ><font color=<%=TableContentColor%>><b>論壇廣告設置</b>（如為設置分論壇，就是分論壇首頁廣告，下屬頁面為帖子顯示頁面）</font></td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>首頁頂部廣告代碼</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<textarea name="index_ad_t" cols="50" rows="3"><%=index_ad_t%></textarea>
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>首頁尾部廣告代碼</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<textarea name="index_ad_f" cols="50" rows="3"><%=index_ad_f%></textarea>
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>開啟首頁浮動廣告</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type=radio name="index_moveFlag" value=0 <%if index_moveFlag=0 then%>checked<%end if%>>關閉
<input type=radio name="index_moveFlag" value=1 <%if index_moveFlag=1 then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁浮動廣告圖片地址</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="MovePic" size="35" value="<%=MovePic%>">
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁浮動廣告連接地址</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="MoveUrl" size="35" value="<%=MoveUrl%>">
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁浮動廣告圖片寬度</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="move_w" size="3" value="<%=move_w%>"> 象素
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁浮動廣告圖片高度</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="move_h" size="3" value="<%=move_h%>"> 象素
</td>
</tr>
<input type=hidden name="Board_moveFlag" value=0>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>開啟首頁右下固定廣告</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type=radio name="index_fixupFlag" value=0 <%if index_fixupFlag=0 then%>checked<%end if%>>關閉
<input type=radio name="index_fixupFlag" value=1 <%if index_fixupFlag=1 then%>checked<%end if%>>打開
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁右下固定廣告圖片地址</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="fixupPic" size="35" value="<%=fixupPic%>">
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁右下固定廣告連接地址</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="fixupUrl" size="35" value="<%=fixupUrl%>">
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁右下固定廣告圖片寬度</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="fixup_w" size="3" value="<%=fixup_w%>"> 象素
</td>
</tr>
<tr>
<td width="40%"><font color=<%=TableContentColor%>><B>論壇首頁右下固定廣告圖片高度</B></font></td>
<td width="60%"> <font color=<%=TableContentColor%>>
<input type="text" name="fixup_h" size="3" value="<%=fixup_h%>"> 象素
</td>
</tr>
<input type=hidden name="Board_fixupFlag" value=0>
<tr bgcolor=<%=aTabletitlecolor%>>
<td width="40%"><font color=<%=TableContentColor%>> </td>
<td width="60%"> <font color=<%=TableContentColor%>>
<div align="center">
<input type="submit" name="Submit" value="提 交">
</div>
</td>
</tr>
</table>
</form>
<%
end sub
sub saveconst()
if trim(request("skinid"))="" and trim(request("boardid"))="" then
Founderr=true
Errmsg=Errmsg+"<br>"+"<li>請選擇保存的模板名稱"
else
Forum_ads=request("index_ad_t") & "$" & request("index_ad_f") & "$" & request("index_moveFlag") & "$" & request("MovePic") & "$" & request("MoveUrl") & "$" & request("move_w") & "$" & request("move_h") & "$" & request("Board_moveFlag") & "$" & request("fixupPic") & "$" & request("FixupUrl") & "$" & request("Fixup_w") & "$" & request("Fixup_h") & "$" & request("Board_fixupFlag") & "$" & request("index_fixupFlag")
'response.write Forum_ads
if request("skinid")<>"" then
sql = "update config set Forum_ads='"&Forum_ads&"' where id in ( "&request("skinid")&" )"
conn.execute(sql)
end if
if request("boardid")<>"" then
sql = "update board set Forum_ads='"&Forum_ads&"' where boardid in ( "&request("boardid")&" )"
conn.execute(sql)
end if
response.write "設置成功。"
end if
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -