?? announcement.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""> <a href="""&BBSHomeUrl&""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> 論壇公告:<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&" 發布人:<a href=""user.asp?userid="&anUserID&""">"&anUsername&"</a> 發布時間:"×%></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> <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>
<%
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 + -