inc_announce.asp

一个不错的ASP论坛源码

<%
'########## Snitz Forums 2000 Version 3.1 SR4 ####################
'#                                                               #
'#  汉化修改: 资源搜罗站                                         #
'#  电子邮件: [e-mail]                                     #
'#  主页地址: http://www.sdsea.com                               #
'#            http://www.99ss.net                                #
'#            http://www.cdown.net                               #
'#	     http://www.wzdown.com                               #
'#	     http://www.13888.net                                #
'#  论坛地址:http://ubb.yesky.net                                #
'#  最后修改日期: 2001/03/12    中文版本：Version 3.1 SR4        #
'#################################################################
'# 原始来源                                                      #
'# Snitz Forums 2000 Version 3.1 SR4                             #
'# Copyright 2000 http://forum.snitz.com - All Rights Reserved   #
'#################################################################
'#【版权声明】                                                   #
'#                                                               #
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,#
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。          #
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓#
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！  #
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作#
'# 如有任何问题请到我们的论坛告诉我们                            #
'#################################################################

'## Forum_SQL - Build SQL to get forums via category
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
	Response.Write ""
else
	Response.Write "<table border=0 align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf & _
       		       "  <tr valign=""center"">" & vbCrLf & _
		       "    <td bgcolor=""" & strTableBorderColor & """>" & vbCrLf & _
		       "      <table border=0 width=""100%"" cellspacing=""1"" cellpadding=""3"">" & vbCrLf & _
		       "        <tr>" & vbCrLf & _ 	
		       "          <td align=""center"" bgcolor=""" & strHeadCellColor & """>" & _
	               "            <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ & color=""" & strHeadFontColor & """>论坛公告栏</font></td>" & vbCrLf & _
		       "        </tr>" & vbCrLf & _
       		       "        <tr valign=""center"">" & vbCrLf & _
		       "          <td align=""center"" bgcolor=""" & strForumCellColor & """>" 
	while not rsAnnounce.eof 		   
	Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><a href=""javascript:openAnnounceWindow('view_announcements.asp')"">" & FormatStr(rsAnnounce("A_SUBJECT")) & "</a></font><br>"
	rsAnnounce.movenext 
	Wend
	
	Response.Write "        </td>" & vbCrLf & "</tr>" & vbCrLf & _
	               "      </table>" & vbCrLf & _
		       "    </td>" & vbCrLf & _
		       "  </tr>" & vbCrLf & _
	               "</table>" & vbCrLf
end if
%>