?? managebbsboard.asp
字號:
<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<style>
table {WORD-BREAK: break-all;}
</style>
<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call OpenDatabase
txl_SiteHead const_txlname&"- 管理員"
Call BBSSET
If Request.QueryString("action")="setbbsnotic" THen
Call setbbsnotic
Else
Call bbsnotic
End If
Call closedatabase
Call SiteBottom
Function BBSSET
Dim Reqn,WriteN
ReqN = 0
WriteN = 0
%>
<p style="margin-left:15px;"> <br>
<b> 同學錄論壇==<a href="addbbsboard.asp">添加版面</a>||<b><a href="managebbsboard.asp">版面管理</a></b></b></p>
<table width="779" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#000000" >
<tr>
<td class="blu">ID</td>
<td class="blu">論壇名稱</td>
<td class="blu">操作</td>
<td class="blu">順序</td>
</tr>
<%
dim rs,sql,total,i
sql="select * from boards order by orderid asc,boardid desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1
total=rs.recordcount
i=1
for i=1 to total
%>
<tr bgcolor="#eeeeee" >
<td width="10%"><%=rs("boardid")%></td>
<td width="25%"><%=rs("boardname")%></td>
<td width="25%"><a href="editbbsboard.asp?boardid=<%=rs("boardid")%>">修改</a>
<a href="delboard.asp?boardid=<%=rs("boardid")%>">刪版面</a> <a href="delAnnounce.asp?boardid=<%=rs("boardid")%>">刪帖子</a>
</td>
<td width="10%"><%=rs("orderid")%>
<%if i<>1 then %>
<a href="editorderid.asp?boardid=<%=rs("boardid")%>&action=up">上</a>
<%else%>
上
<%end if%>
<%if i<>total then %>
<a href="editorderid.asp?boardid=<%=rs("boardid")%>&action=down">下</a>
<%else%>
下
<%end if%>
</td>
</tr>
<%
rs.movenext
next
%>
</table>
<%
end function%>
<%Sub bbsnotic
dim rs,str_bbsnotic
set rs=conn.execute ("select bbsnotic from config where id=1")
str_bbsnotic=rs(0)
rs.close
set rs=nothing
%>
<form name="form1" method="post" action="?action=setbbsnotic">
<table width="779" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#000000" >
<tr bgcolor="#eeeeee">
<td width="93%" align="center">論壇公告:<font color="#FF0000">(此公告將在班級論壇首頁顯示,HTML支持)</font></td>
</tr>
<tr bgcolor="#eeeeee" >
<td align="center">
<textarea name="bbsnotic" cols="70" rows="6" id="bbsnotic"><%=str_bbsnotic%></textarea></td>
</tr>
<tr bgcolor="#eeeeee" >
<td align="center"><input type="submit" name="Submit" value="提 交">
<input type="reset" name="Submit2" value="重 置">
</td>
</tr>
</table>
</form>
<%End Sub%>
<%
Sub setbbsnotic
dim sql,bbsnotic
bbsnotic=Request.Form("bbsnotic")
bbsnotic=Replace(bbsnotic,"'","''")
sql="Update config set bbsnotic='"& bbsnotic&"' where id=1"
conn.execute (sql)
Response.Redirect(Request.ServerVariables("Script_name"))
End Sub
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -