inc_announce.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%
'#############################################################
'#      中国在线--极酷论坛 ver.2001 3.0
'#
'#  版权所有: 中国在线 (ChinaXP.Net)
'#
'#  制作人  : 周周 (SeeYa!)
'#
'#
'#  主页地址: http://www.ChinaXP.net/    中国在线
'#	      http://www.ChinaXP.Net/bbs/    中国在线--极酷论坛
'#
'#############################################################
%>
<%
strSql = "SELECT " & strTablePrefix & "ANNOUNCE.A_ID, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_AUTHOR, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_SUBJECT, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_MESSAGE, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_START_DATE, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_END_DATE "
strSql = strSql & "FROM " & strTablePrefix & "ANNOUNCE "
strSql = strSql & " WHERE " & strTablePrefix & "ANNOUNCE.A_START_DATE <= " & "'" & DatetoStr(Now()) & "'"
strSql = strSql & " AND " & strTablePrefix & "ANNOUNCE.A_END_DATE > " & "'" & DatetoStr(Now()) & "'"
strSql = strSql & " ORDER BY " & strTablePrefix & "ANNOUNCE.A_START_DATE DESC"
strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_ID DESC;"

set rsAnnounce =  my_Conn.Execute (strSql)

if rsAnnounce.eof or rsAnnounce.bof then
	strAnnounceDate = Year(Now) & "年" & Month(Now) & "月" & Day(Now) & "日"
	Response.Write "<TABLE width=""50%"" border=0>" & vbCrLf & _
			"<TR>" & vbCrLf & _
			"<TD align=""left"" width=""10%"">" & vbCrLf & _
			"<img src=""" & strImageURL & "icon_announce.gif"" border=""0"" ALIGN=absmiddle alt=""公告栏""> " & vbCrLf & _
			"</TD>" & vbCrLf & _
			"<TD align=""left"">" & vbCrLf & _
			"<marquee scrollamount=3><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>本日没有公告！</b>　[" & strAnnounceDate & "]</font></marquee>" & vbCrLf & _
			"</TD>" & vbCrLf & _
			"</TR>" & vbCrLf & _
			"</TABLE>" & vbCrLf
else
	strAnnounceAtr = Split(ChkDate(rsAnnounce("A_START_DATE")), "-")
	strAnnounceDate = strAnnounceAtr(0) & "年" & strAnnounceAtr(1) & "月" & strAnnounceAtr(2) & "日"

	Response.Write "<TABLE width=""50%"" border=0>" & vbCrLf & _
			"<TR>" & vbCrLf & _
			"<TD align=""left"" width=""10%"">" & vbCrLf & _
			"<img src=""" & strImageURL & "icon_announce.gif"" border=""0"" ALIGN=absmiddle alt=""公告栏""> " & vbCrLf & _
			"</TD>" & vbCrLf & _
			"<TD align=""left"">" & vbCrLf & _
			"<marquee scrollamount=3><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""announcements.asp"" target=_blank><b>" & FormatStr(rsAnnounce("A_SUBJECT")) & "</b></a>　[" & strAnnounceDate & "]</font></marquee>" & vbCrLf & _
			"</TD>" & vbCrLf & _
			"</TR>" & vbCrLf & _
			"</TABLE>" & vbCrLf
	set strAnnounceDate = Nothing
	set strAnnounceAtr = Nothing
end if
%>