help.asp

. 缓存处理技术

<!--#include file="top_Cnbbr.asp"-->

<%
Dim NewsID
NewsID=CheckStr(trim(Rst("NewsID")))

Response.Write Cnbbr_Head
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=Sys_BodyCenterWidth
	SiteMenu_Left="Help.asp|[menu]|帮助中心"
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

Sql="select * from news where BBR_IsHelp=1 order by Updatetime Desc"
Set Rs=Conn.Execute(Sql)

%>
<table width=<%=Sys_BodyCenterWidth%> align="center" border="0" cellspacing="0" cellpadding="0" class=td> 
<tr>
  <td width="198" valign="top"> 
     <!-- 帮助信息左边导航栏内容 -->
     <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> 
	<tr>
	 <td bgColor=#cccccc height=1></TD></tr> <tr> <td bgColor=#ffffff height=1></TD></tr> 
	<tr>
	 <td bgcolor="#f1f1f1" height="30" BACKGROUND="images/boot2.gif">　在线帮助</td></tr> 
	<tr>
	 <td bgColor=#cccccc height=1></TD></tr> <tr> <td bgColor=#f1f1f1 height=3></TD></tr> 
	<tr>
	 <td> 
	   <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
	       <%
		if Rs.Eof then
		   Response.Write "<tr><td width=""100%"">&nbsp;</td></tr>"& Vbcrlf
		else
		   Do While Not Rs.Eof
		      k=Rs("NewsTitle")
		      k=InterceptString(k,25)
		      Response.Write"<tr><td width=""100%"" align=""left""><img src=""Skins/"& Skins_Folder &"/Ring.gif"" border=""0"" alt="""">&nbsp;<a href=""Help.asp?NewsID="& Rs("NewsID") &"""><font color="& Rs("NewsColor") &">"& k &"</font></a></td></tr>"& Vbcrlf
		   Rs.MoveNext
		   Loop
	 	end if
		%> 
	   </table>
	 </td>
	</tr>
      </table>
  </td>
  <td valign="top" align="center">

      <table height=280 width="100%" border="0" cellspacing="0" cellpadding="0" align="center" style="border-left: #dfdfdf 1px solid; TABLE-LAYOUT: fixed;"> 
	<tr>
	 <td width=4%></td>
	 <td width=96% style="word-wrap: break-word; line-height: 18px;" align="left" valign="top">
	  <BR>
	<%
	if isNum(NewsID) then
	   Sql="select * from news where BBR_IsHelp=1 and NewsID="& NewsID
	   Set Rs=Conn.execute(Sql)
	   If Rs.Eof then
	      Response.Write"<center>没有找到此帮助信息！</center>"
	   else
	      Response.Write Rs("NewsContent")
	   end if
	else
	   Response.Write"<center>请选择右边的帮助信息导航栏里的信息列表，查看帮助信息！</center>"
	end if
	%>
	 </td>
	</tr> 
      </table>

  </td>
 </tr> 
</table>

<% Response.Write Cnbbr_Bottom %>