📄 announce.asp

📁 程序为品牌程序,信誉、质量、服务有保证主要功能有文章,留言,下载,论坛,博客,统计,调查模块化的程序设计
💻 ASP
字号:
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
dim ID
dim sqlAnnounce
dim rsAnnounce
dim AnnounceNum
dim ChannelID
ID=Trim(request("ID"))
ChannelID=Clng(Trim(request("ChannelID")))
sqlAnnounce="select * from Announce where IsSelected=True and (ChannelID=0 or ChannelID=" & ChannelID & ")"
if ID<>"" then
	sqlAnnounce=sqlAnnounce & " and (ShowType=0 or ShowType=1) and ID=" & Clng(ID) 
else
	sqlAnnounce=sqlAnnounce & " and (ShowType=0 or ShowType=2)"
end if
sqlAnnounce=sqlAnnounce & " order by ID Desc"
Set rsAnnounce= Server.CreateObject("ADODB.Recordset")
rsAnnounce.open sqlAnnounce,conn,1,1
%>
<HTML><HEAD><TITLE>本站通告</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>A:active {
	COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
	COLOR: #ff0000; TEXT-DECORATION: none
}
A:link {
	COLOR: #0000ff; TEXT-DECORATION: none
}
A:visited {
	COLOR: #990000; TEXT-DECORATION: none
}
BODY {
	FONT-SIZE: 12px; TEXT-DECORATION: none
}
TABLE {
	FONT-SIZE: 12px; TEXT-DECORATION: none
}
</STYLE>
<LINK href="Admin_STYLE.CSS" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<div align="center">
  <TABLE cellSpacing=0 cellPadding=0 width=400 border=0>
    <TBODY>
    <TR>
      <TD colSpan=3><IMG height=25 alt="" src="tonggao_files/Annouce_r1_c1.gif" 
      width=400 border=0 name=Annouce_r1_c1></TD></TR>
    <TR>
      <TD colSpan=3><IMG height=43 alt="" src="tonggao_files/Annouce_r2_c1.gif" 
      width=400 border=0 name=Annouce_r2_c1></TD></TR>
    <TR>
      <TD vAlign=top width=105 background=tonggao_files/Annouce_r4_c1.gif 
    height=112><IMG height=112 alt="" src="tonggao_files/Annouce_r3_c1.gif" 
      width=105 border=0 name=Annouce_r3_c1></TD>
      <TD vAlign=top width=279 background=tonggao_files/Annouce_r3_c2.gif 
    height=300 rowSpan=2>
        <TABLE cellSpacing=5 cellPadding=0 width="100%" border=0>
          <TBODY>
          <TR>
            <TD>
              <TABLE style="WORD-BREAK: break-all" cellSpacing=0 cellPadding=0 
            width="100%" border=0>
                <TBODY>
                <TR>
                  <TD align=middle height=24><%
if rsAnnounce.bof and rsAnnounce.eof then 
	response.write "<p>&nbsp;&nbsp;没有通告或找不到指定的通告</p>" 
else 
	AnnounceNum=rsAnnounce.recordcount
	dim i
	do while not rsAnnounce.eof
		response.Write "<p align='center'>" & rsAnnounce("title") & "</p><p align='left'>" & ubbcode(dvHTMLEncode(rsAnnounce("Content"))) & "</p><p align='right'>" & rsAnnounce("Author") & "&nbsp;&nbsp;<br>" & FormatDateTime(rsAnnounce("DateAndTime"),1) & "</p>"
		rsAnnounce.movenext
		i=i+1
		if i<AnnounceNum then response.write "<hr>"
	loop	
end if  
%></TD>
                </TR>
                <TR>
                  <TD vAlign=top 
                  align=left><P>&nbsp;</P>
                    <P></P></TD></TR>
                <TR>
                  <TD vAlign=top align=right>
                    <P>&nbsp;</P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
      <TD vAlign=top width=16 bgColor=#83cdfd height=112><IMG height=112 alt="" 
      src="tonggao_files/Annouce_r3_c3.gif" width=16 border=0 
    name=Annouce_r3_c3></TD></TR>
    <TR>
      <TD background=tonggao_files/Annouce_r4_c1.gif>&nbsp;</TD>
      <TD bgColor=#83cdfd>&nbsp;</TD></TR>
    <TR>
      <TD colSpan=3><IMG height=24 alt="" src="tonggao_files/Annouce_r5_c1.gif" 
      width=400 border=0 name=Annouce_r5_c1></TD></TR>
    <TR>
      <TD colSpan=3><IMG height=39 alt="" src="tonggao_files/Annouce_r6_c1.gif" 
      width=400 useMap=#Annouce_r6_c1Map border=0 
  name=Annouce_r6_c1></TD></TR></TBODY>
  </TABLE>
  <MAP name=Annouce_r6_c1Map>
    <AREA 
  shape=RECT coords=171,9,231,30 
href="javascript:window.close();">
  </MAP>
</div>
</BODY></HTML>
<%
rsAnnounce.close
set rsAnnounce=nothing
call CloseConn()
%>
⌨️ 快捷键说明

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