📄 announcement.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<!--#include file="INC/CHAR.INC"-->
<%
'****************************************************************
'*  joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'*  版权所有: JoinBoard V2.3
'*
'*  程序制作: 友盟工作室
'*           
'*  主页地址: http://joinboard.com    友盟论坛
'*
'*  论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*	                 
'****************************************************************
'*  Powered by: JoinBoard V2.3
'*　Copyright 2003－2004. - All Rights Reserved.
'*  JoinBoard is a trademark of YouMeng Studio.
'****************************************************************

anID = trim(request.QueryString("ID"))
if Not(IsNumeric(anID)) or anID = "0" then
	response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
	response.End()
End if
set rs = Conn.ExeCute("select JBB_announcement.title,JBB_announcement.BoardID,JBB_announcement.times,JBB_announcement.content,JBB_user.userid,JBB_user.username From JBB_announcement left JOIN JBB_user on(JBB_announcement.userid = JBB_user.userid) where ID="&anID)
if Not rs.eof then
	title = trim(rs("title"))
	content = rtrim(rs("content"))
	BoardID = rtrim(rs("BoardID"))
	anUserID = rtrim(rs("UserID"))
	anUsername = rtrim(rs("username"))
	times = rs("times")
	if Isdate(times) then times = formatdatetime(times,1)
else
	response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='0; URL="&BBSHomeUrl&"'>")
	set rs = Nothing
	response.End()
End if
set rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)&" - 查看公告 - "&title%></title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_callJS(jsStr) { //V2.3
  return eval(jsStr)
}
//-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()

response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.Write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif"">&nbsp;<a href="""&BBSHomeUrl&""">"& BBS_Config(0) &"</a>&nbsp;<img src="""& BBS_Skin(3) &"JBB_bullet.gif"">&nbsp;论坛公告:<strong>"& title &"</strong>"
response.Write "</td></tr></table>"

%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr>
    <td class="table-title">论坛公告:<%=title&"&nbsp;&nbsp;发布人:<a href=""user.asp?userid="&anUserID&""">"&anUsername&"</a>&nbsp;发布时间:"&times%></td>
  </tr>
  <tr>
    <td height="200" valign="top" class="table-dark"><%=ubbcode(content)%><br><br>
      <img src="<%=BBS_Skin(3)%>sign.gif"> <br> 
      <div align="right">
	<%
	if userOnline = true then
	  	if Cstr(request.Cookies(JBBMasterCookies)("usergroup")) <= 3 then
	  	%>
	  	<a href="admin_announcement.asp?action=edit&id=<%=anID%>"><img src="<%=BBS_Skin(3)%>a_edit.gif" border="0"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="admin_announcement.asp?action=del&id=<%=anID%>" onClick="{if(confirm('确定删除此公告吗?')){return true;}return false;}"><img src="<%=BBS_Skin(3)%>a_delete.gif" border="0"></a>&nbsp;&nbsp; 
    	<%
		End if
	End if
	%></div>	
	</td>
  </tr>
  <tr>
    <td class="table-title"><div align="center">
        <input name="Submit" type="button" onClick="MM_callJS('window.close()')" value=" 关闭本窗口 ">
      </div></td>
  </tr>
</table>
<br>
<br>
<%
Call Bottom()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -