bbrnews.asp

. 缓存处理技术

<!--#include file="top_cnbbr.asp"-->
<!--#include file="Inc/MyPage.asp"-->
<%
Response.write Cnbbr_head
%>
<table border="0" cellpadding="0" cellspacing="0" width=<%=Sys_BodyCenterWidth%> align="center" class="td">
  <tr>
   <td align=center Valign=Top class=td>
<%

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="100%"
	SiteMenu_Left="BBRNews.asp|[menu]|新闻中心||[menu]||###|[menu]|查看新闻信息"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

%>

   <table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
    <tr>
     <td class="td">
<%
   Dim NewsId
   newsid=Request.QueryString("newsid")
   If newsid="" or Isnull(newsid) then



	response.write"<br><br>"
	response.write"<table cellpadding=0 cellspacing=0 border=0 width=100% align=center>"
	Dim MP
	set MP= New mypage
	set rs = MP.Execute("select * from news where newsauthor=0 and BBR_IsHelp=0 order by updatetime DESC",conn,jsPerPage)
	CnbbrConnTimes
	if rs.eof or rs.bof then
	    response.write"<tr><td vAlign=baseline align=middle>还没有新闻信息！</td></tr>"
	else
	   Do while not rs.eof
	    response.write"<TR style='line-height: 20px;'>" & vbcrlf
	    response.write"<TD align=left>" & vbcrlf
	    k=interceptString(rs("newstitle"),100)
	    response.write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='bbrnews.asp?newsid="& rs("newsid") &"'>·<font color=" & rs("newscolor") & " title='"& rs("newstitle") &"'>" & k & "</font></a>" & vbcrlf
	    response.write"</TD>" & vbcrlf
	    response.write"</TR>" & vbcrlf
	   rs.MoveNext
 	Loop
 	end if
 	response.write"</table>" & vbcrlf
	response.write"<BR><BR>" & vbcrlf
	response.Write "<table cellpadding=0 cellspacing=1 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
	response.Write "<tr class=titletd1><td width=100% align=center>"
	response.Write MP.PageDispaly()
	response.Write "</td></tr>" & vbcrlf
	response.Write "</table>" & vbcrlf

   Else
   If IsNumeric(newsid) then
      sql="select * from news where newsid="&newsid
      set rs=conn.execute(sql)
      CnbbrConnTimes
      if rs.eof then
	response.write"数据库里没有此新闻记录"
      else
	Do while Not rs.eof
	response.write"<table border=""0"" cellpadding=""3"" cellspacing=""0"" width=""90%"" align=""center"">"&vbcrlf
	response.write"<TR><TD width=""100%"" height=""2"" background=""Images/Dot.gif""></td></TR>"&vbcrlf
        response.write"<tr>"&vbcrlf
        response.write"<td height=""56"" align=""center"" style=""font-size:16px; font-family: 黑体;"">"&vbcrlf
	response.write rs("newstitle")
	response.write"</td>"&vbcrlf
	response.write"</tr>"&vbcrlf
        response.write"<tr>"&vbcrlf
        response.write"<td class=""td"" align=""center"" style=""font-size:9pt; font-family: 宋体;"">"&vbcrlf
	response.write"发布人：管理员&nbsp;&nbsp;最后更新："&rs("updatetime")
	response.write"</td>"&vbcrlf
	response.write"</tr>"&vbcrlf
	response.write"<TR><TD width=""100%"" height=""2"" background=""Images/Dot.gif""></td></TR>"&vbcrlf
        response.write"<tr>"&vbcrlf
        response.write"<td class=""td"" align=""left"" style=""font-size:9pt; font-family: 宋体; table-layout: fixed; word-break: break-all; Line-Height: 18px;"">"&vbcrlf
	response.write "<BR>&nbsp;&nbsp;&nbsp;&nbsp;"&rs("newscontent")
	response.write"</td>"&vbcrlf
	response.write"</tr>"&vbcrlf
	response.write"</table>"&vbcrlf
	rs.movenext
 	Loop
      end if
   else
	response.write"出错了，新闻信息查询有误"
   End if
   End if
 response.write"<br><br>"
%>
     </td>
    </tr>
   </table>
   </td>
  </tr>
</table>

<% Response.write Cnbbr_Bottom %>