📄 bbs_bbs.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="check.asp" -->
<!--#include file="opendb.asp" -->
<%
'Response.Write(Request("bulltin"))
'Response.end
'新增公告begin----
if Request("bulletin")<>"" then
sql="select * from bbs_bulletin"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust.addnew
rscust("content")=Request("bulletin")
rscust("userid")=session("userid")
rscust.update
set rscust=nothing
%>
<script language="javascript">
alert("新增公告栏内容成功！请到论坛前台看!");
//history.go(-1);
</script>
<%end if
'新增公告end----
'新增公告begin----
if Request("marquee")<>"" then
sql="select * from bbs_marquee"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
rscust.addnew
rscust("marquee")=Request("marquee")
rscust("subid")=Request("subid")
rscust("userid")=session("userid")
rscust.update
set rscust=nothing
%>
<script language="javascript">
alert("新增子版块滚动公告内容成功！请到论坛前台看!");
//history.go(-1);
</script>
<%
end if
'新增公告end----
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<table width="96%" border="0" align="center" class="px14">
<tr>
<td> </td>
</tr>
<tr>
<td align="center" bgcolor="#0065CA"><font color="#FFFFFF">公告栏管理</font></td>
</tr>
</table>
<br>
<!--#include file="opendb.asp" -->
<table width="96%" border="0" align="center">
<tr valign="top">
<td align="center" bgcolor="#B5DAFF">论坛进站画面公告</td>
</tr>
<tr valign="top">
<td align="center"><form name="form1" method="post">
<font color="#333333">前台美观的显示: 最多六行, 每行不能超过35个汉字</font><br>
<textarea name="bulletin" cols="50" rows="5" class="input"></textarea>
<br>
<input type="submit" name="Submit" value="更新">
</form></td>
</tr>
</table>
<table width="96%" border="0" align="center">
<tr valign="top">
<td><table width="100%" border="0">
<tr>
<td align="center" bgcolor="#B5DAFF">子版块滚动公告</td>
</tr>
</table>
<%
sql="select * from bbs_board order by bid"
set rscust=Server.Createobject("ADODB.Recordset")
rscust.open sql,conn,1,3
do while not rscust.eof%>
<%
sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
set rs=Server.Createobject("ADODB.Recordset")
rs.open sqlstr,conn,1,3
do while not rs.eof
%>
<table width="100%" border="0" bgcolor="#EFEFEF">
<form name="form3" method="post" action="">
<tr>
<td width="19%" align="right"><%= rscust("board")%> -> <%= rs("suboard")%></td>
<td width="63%"><input name="marquee" type="text" class="input" id="marquee" size="60" maxlength="100">
(最多100个汉字)
<input name="subid" type="hidden" value="<%=rs("subid")%>"> </td>
<td width="18%"><input type="submit" name="Submit3" value="添加本版滚动公告"></td>
</tr>
</form>
</table>
<br>
<% rs.movenext
loop
set rs=nothing
%>
<% rscust.movenext
loop
set rscust=nothing
%>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -