bbrnews.asp

. 缓存处理技术

   <table border="0" cellpadding="0" cellspacing="1" width="100%" align="center">
    <tr>
     <td class="td" valign=top>
<%
   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>"
 sql="select * from news where newsauthor="& rsshopmaster("regid") &" order by updatetime"
 set rs=conn.execute(sql)
 if rs.eof or rs.bof then
    response.write"<tr><td vAlign=baseline  align=middle>还没有新闻信息</td></tr>"
 else
   i=1
   Do while not rs.eof
    response.write"<TR style='line-height: 16px;'>" & vbcrlf
    response.write"<TD align=left>" & vbcrlf
    k=interceptString(rs("newstitle"),100)
    response.write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='news.asp?newsid="& rs("newsid") &"&shopid="& sid &"'>·<font color=" & rs("newscolor") & " title='"& rs("newstitle") &"'>" & k & "</font></a>" & vbcrlf
    response.write"</TD>" & vbcrlf
    response.write"</TR>" & vbcrlf
   i=i+1
   if i>8 then Exit Do
   rs.MoveNext
   Loop
 end if
 response.write"</table>" & vbcrlf


   Else
   If IsNumeric(newsid) then
      sql="select *,users.regusername from news left join users on news.newsauthor=users.regid where newsid="&newsid
      set rs=conn.execute(sql)
      if rs.eof then
	response.write"数据库里没有此新闻记录"
      else
	Do while Not rs.eof
	response.write"<table border=""0"" cellpadding=""3"" cellspacing=""0"" width=""100%"" align=""center"">"&vbcrlf
        response.write"<tr>"&vbcrlf
        response.write"<td class=""td"" align=""center"" height=""38"" 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"发布人："& rs("regusername") &"&nbsp;&nbsp;最后更新："&rs("updatetime")
	response.write"</td>"&vbcrlf
	response.write"</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"">"&vbcrlf
	response.write "&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
%>
     </td>
    </tr>
   </table>