shophead.asp

. 缓存处理技术

else
DIm NewCount:newcount=1
do while not rsnew.eof
response.write"&nbsp∠<a href=news.asp?newsid="& rsnew("newsid") &"&shopid="& sid &" target=_blank>"
Dim Content
content=InterceptString(rsnew("newstitle"),30)
response.write "<font color="&rsnew("newscolor")&">"&content&"</font></a><br>"
newcount=newcount+1
if newcount>IndexPerpage then exit do
rsnew.movenext
loop
end if
rsnew.close
set rsnew=nothing

	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
	.Write"       <td width=""100%"" align=""right""><a href=""../bbrnews.asp"">更多&gt;&gt;</a></td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"     </table>"& Vbcrlf

	.Write"	  </td>"& Vbcrlf
	.Write" </tr>"& Vbcrlf
	.Write"</table>"& Vbcrlf

  End With
End Function


Function DispShopLinks()

  With Response
	.Write"<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=MainMenu_Right>"& Vbcrlf
	.Write"<tr>"& Vbcrlf
	.Write"  <td class=td valign=top>"& Vbcrlf
	.Write"    <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">"& Vbcrlf
	.Write"     <tr height=26>"& Vbcrlf
	.Write"      <td width=6 class=MainMenu_left></td>"& Vbcrlf
	.Write"      <td align=left class=MainMenu_Right>&nbsp;<b>本店链接</b></td>"& Vbcrlf
	.Write"     </tr>"& Vbcrlf
	.Write"    </table>"& Vbcrlf

	.Write"    <table width=""98%"" align=""Center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""80"">"& Vbcrlf
	.Write"     <tr>"& Vbcrlf
	.Write"      <td height=188>"& Vbcrlf
	.Write"         <table cellpadding=0 cellspacing=0 width=90% align=center><tr><td align=left style=""Line-Height: 22px"">"& CnbbrLink(RsShop("ShopOwnerID"),1) &"</td></tr></table>"& Vbcrlf
	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
	.Write"       <td width=""100%"" align=""right""><a href=""###"">更多&gt;&gt;</a></td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"     </table>"& Vbcrlf

	.Write"	  </td>"& Vbcrlf
	.Write" </tr>"& Vbcrlf
	.Write"</table>"& Vbcrlf
  End With

End Function


Function DispShopAd()

  With Response
	.Write"<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=MainMenu_Right>"& Vbcrlf
	.Write"<tr>"& Vbcrlf
	.Write"  <td class=td valign=top>"& Vbcrlf
	.Write"    <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">"& Vbcrlf
	.Write"     <tr height=26>"& Vbcrlf
	.Write"      <td width=6 class=MainMenu_left></td>"& Vbcrlf
	.Write"      <td align=left class=MainMenu_Right>&nbsp;<b>系统广告</b></td>"& Vbcrlf
	.Write"     </tr>"& Vbcrlf
	.Write"    </table>"& Vbcrlf

	.Write"    <table width=""98%"" align=""Center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""80"">"& Vbcrlf
	.Write"     <tr>"& Vbcrlf
	.Write"      <td height=188>"& Vbcrlf

	.Write"      <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
	.Write"       <td align=center>"& Vbcrlf
	.Write"        <script src=""../js/Ad_Cnbbr_9.js"" type=""text/javascript""></script>"& Vbcrlf
	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
	.Write"       <td height=2></td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
 	.Write"       <td align=center>"& Vbcrlf
	.Write"        <script src=""../js/Ad_Cnbbr_10.js"" type=""text/javascript""></script>"& Vbcrlf
	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      </table>"& Vbcrlf

	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"     </table>"& Vbcrlf

	.Write"	  </td>"& Vbcrlf
	.Write" </tr>"& Vbcrlf
	.Write"</table>"& Vbcrlf
  End With

End Function


Function BBR_SysSkinsContent()
  Dim RsAdminSkins,TempSkins
  Sql="Select Cnbbr_Skins.BBR_SkinsID,Cnbbr_Skins.BBR_TemplateID,Cnbbr_Skins.BBR_SkinsCssName,Cnbbr_Skins.BBR_SkinsCssPath,Cnbbr_Skins.BBR_SkinsCssUrl,Cnbbr_Template.BBR_TemplateName,Cnbbr_Template.BBR_TemplatePath from Cnbbr_Skins left join Cnbbr_Template on Cnbbr_Skins.BBR_TemplateID=Cnbbr_Template.BBR_TemplateID"
  Set RsAdminSkins=Conn.Execute(Sql)
  CnbbrConnTimes
  if RsAdminSkins.Bof or RsAdminSkins.Eof then
     TempSkins="未知模板"
  else


     TempSkins=TempSkins &"    	<span style=""position:relative; visibility: hidden;"">"& Vbcrlf
     TempSkins=TempSkins &"     <Div ID=""newlayer"" style=""position:absolute; z-index:2; left: 52px; top: -98px; width: 168px; height: 80px; over-flow:auto;"" OnMouseOver=""javascript:showlayer('newlayer');"" OnMouseOut=""javascript:hidelayer('newlayer');"">"& Vbcrlf
     TempSkins=TempSkins &"    	  <table width=100%  align=center cellpadding=0 cellspacing=0 border=0>"& Vbcrlf
     TempSkins=TempSkins &"    	   <tr height=22 onmouseover=""this.bgColor='#F1F1F1';"" onmouseout=""this.bgColor='#FFFFFF';"" >"& Vbcrlf
     TempSkins=TempSkins &"    	    <td align=center height=6> </td>"& Vbcrlf
     TempSkins=TempSkins &"    	   </tr>"& Vbcrlf
     Do While Not RsAdminSkins.Eof
     TempSkins=TempSkins &"    	   <tr height=22 bgcolor=""#FFFFFF"" onmouseover=""this.bgColor='#EFEFEF';"" onmouseout=""this.bgColor='#FFFFFF';"" >"& Vbcrlf
     TempSkins=TempSkins &"    	    <td align=center>"& Vbcrlf
     TempSkins=TempSkins &"    	 	<a href=""../BBR_UserCss.asp?SysDefaultSkinsID="& RsAdminSkins("BBR_SkinsID") &""">"& RsAdminSkins("BBR_SkinsCssName") &"---"& RsAdminSkins("BBR_TemplateName") &"</a><BR>"& Vbcrlf
     TempSkins=TempSkins &"    	    </td>"& Vbcrlf
     TempSkins=TempSkins &"    	   </tr>"& Vbcrlf
     RsAdminSkins.MoveNext
     Loop
     TempSkins=TempSkins &"    	  </table>"& Vbcrlf
     TempSkins=TempSkins &"    	</Div></span>"& Vbcrlf

  end if
  RsAdminSkins.Close
  Set RsAdminSkins=nothing
  BBR_SysSkinsContent=Trim(TempSkins)
End Function


Function DispShopClass()

  With Response
	.Write"<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""0"" class=MainMenu_Right>"& Vbcrlf
	.Write"<tr>"& Vbcrlf
	.Write"  <td class=td valign=top>"& Vbcrlf
	.Write"    <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"">"& Vbcrlf
	.Write"     <tr height=26>"& Vbcrlf
	.Write"      <td width=6 class=MainMenu_left></td>"& Vbcrlf
	.Write"      <td align=left class=MainMenu_Right>&nbsp;<b>店铺类目</b></td>"& Vbcrlf
	.Write"     </tr>"& Vbcrlf
	.Write"    </table>"& Vbcrlf

	.Write"    <table width=""98%"" align=""Center"" border=""0"" cellspacing=""0"" cellpadding=""0"" height=""80"">"& Vbcrlf
	.Write"     <tr>"& Vbcrlf
	.Write"      <td height=188>"& Vbcrlf


set Rs=server.createobject("adodb.recordset")
sql="select distinct (BBR_ClassPath) from Auctions where Aucended='N' and BBR_Auc_Success=0 and AucItemOwner="& RsShopMaster("RegID")
Rs.open sql,conn,1,1
if Rs.eof then
   response.write"<center>本店还没有商品</center>"
else
   DIm NewCount:newcount=1
   do while not Rs.eof
      Dim TempPath
      TempPath=Rs("BBR_ClassPath")
      TempPath=Right(TempPath,Len(TempPath)-InStrRev(TempPath,"|"))
      Dim RsClass
      Sql="Select ClassName from AucClass Where ClassID="& TempPath
      Set RsClass=Conn.Execute(Sql)
      if Not RsClass.Eof then .Write "<a href=""Search_Auction.asp?ShopID="& SID &"&BBRpath="& Server.URLEncode(Rs("BBR_ClassPath")) &""">※ "& RsClass("ClassName") &"</a><BR>"& Vbcrlf

      if newcount>IndexPerpage then exit do
   Rs.movenext
   loop
end if


	.Write"       </td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"      <tr>"& Vbcrlf
	.Write"       <td width=""100%"" align=""right""><a href=""Search.asp?ShopID="& SID &""">更多&gt;&gt;</a></td>"& Vbcrlf
	.Write"      </tr>"& Vbcrlf
	.Write"     </table>"& Vbcrlf
	.Write"	  </td>"& Vbcrlf
	.Write" </tr>"& Vbcrlf
	.Write"</table>"& Vbcrlf

  End With
End Function
%>