qginfo.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 width=232 bgcolor="#F3F3F3">


      <!-- 求购信息 -->
      <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
  	<TR>
	  <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
	</TR>
  	<TR>
	  <td colspan=3 width=100% height=23 align=center class=menufont_1 background="SKINS/<%=SKINS_FOLDER%>/GrayBg.Gif"> <a href="qginfo.asp" title="点击查看更多买家求购信息" class=menufont_1>求购信息</a> </td>
	</TR>
  	<TR height=1>
	  <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
	</TR>
      </Table>
      <TABLE cellSpacing=0 cellPadding=3 width="98%" align=center border=0>
  	<TR>
	  <td class=td height=185 valign=top>
	    <%=CnbbrAucQiuGou%>
	  </td>
	</TR>
      </Table>

      <!-- 最新的商品 -->
      <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
  	<TR>
	  <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
	</TR>
  	<TR>
	  <td colspan=3 width=100% height=23 align=center class=menufont_1 background="SKINS/<%=SKINS_FOLDER%>/GrayBg.Gif"> <a href="Search_Auction.asp?CnAucBBrOrder=3" title="点击查看更多最新商品" class=menufont_1>最新商品</a> </td>
	</TR>
  	<TR height=1>
	  <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
	</TR>
      </Table>
      <TABLE cellSpacing=0 cellPadding=3 width="98%" align=center border=0>
  	<TR>
	  <td class=td height=185 valign=top>
	    <%=CnbbrAucNew%>
	  </td>
	</TR>
      </Table>

      <!-- 即将结束的商品 -->
      <TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
  	<TR>
	  <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
	</TR>
  	<TR>
	  <td colspan=3 width=100% height=23 align=center class=menufont_1 background="SKINS/<%=SKINS_FOLDER%>/GrayBg.Gif"> <a href="Search_Auction.asp?CnAucBBrOrder=3" title="点击查看更多即将结束的商品" class=menufont_1>即将结束</a> </td>
	</TR>
  	<TR height=1>
	  <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
	</TR>
      </Table>
      <TABLE cellSpacing=0 cellPadding=3 width="98%" align=center border=0>
  	<TR>
	  <td class=td height=185 valign=top>
	    <%=CnbbrAucClosing%>
	  </td>
	</TR>
      </Table>
   </td>
   <td align=center Valign=Top class=td>

<%
	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width="98%"
	SiteMenu_Left="###|[menu]|求购信息平台||[menu]||###|[menu]|查看求购信息"
	SiteMenu_Right="SearchQG.asp|[menu]|搜索信息"
	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 QGid
   qgid=Request.QueryString("qgid")
   If Not isNum(QGId) 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 qiugou order by qgUpdatetime DESC",conn,30)
	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"<TBODY>" & vbcrlf
 	   response.write"<TR>" & vbcrlf
 	   response.write"<TD width=20 align=right> ·</TD>" & vbcrlf
 	   response.write"<TD>" & vbcrlf
 	   k=interceptString(rs("qgtitle"),100)
 	   response.write"&nbsp;<a href='qginfo.asp?qgid="& rs("qgid") &"'>"& k &"</a>" & vbcrlf
 	   response.write"</TD>" & vbcrlf
 	   response.write"</TR>" & vbcrlf
 	   response.write"</TBODY>" & 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(qgid) then
      sql="select * from qiugou where qgid="&qgid
      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=""52"" align=""center"" style=""font-size:16px; font-family: 黑体;"">"&vbcrlf
	response.write rs("qgtitle")
	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"发布人："
	if rs("qgownerid")=0 then
	   response.write"管理员"
	else
	   Dim Rs3
	   sql="select RegId,regusername from users where regid="&rs("qgownerid")&" and regadmin<>'Y'"
	   set rs3=conn.execute(sql)
	   CnbbrConnTimes
	   if rs3.eof then
	      response.write"此信息发布人已失效"
	   else
	      response.write"<a href=""DisplayUser.asp?uid="& Rs3("RegID") &""">"& rs3("regusername") &"</a>"
	   end if
  	   Rs3.Close
	   Set Rs3=nothing
	end if
	response.write"&nbsp;&nbsp;更新日期："&rs("qgupdatetime")
	response.write"</td>"&vbcrlf
	response.write"<TR><TD width=""100%"" height=""2"" background=""Images/Dot.gif""></td></TR>"&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"<BR>&nbsp;&nbsp;&nbsp;&nbsp;"&rs("qginfo")
	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 %>