dataupdate_application.asp

. 缓存处理技术

    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"    <tr>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"     <td width=""100%"" height=""88"" align=""center""><img src=""SKINS/"& SKINS_FOLDER &"/ShopStar.gif"" width=""72"" height=""72"" border=""0"" alt=""""></td>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"    </tr>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"    <tr>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"     <td align=""center"" height=""22"" valign=""center"">你的店铺位置</td>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"    </tr>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"  </table>"
    	Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"</TD>"
      Next
   end if

 end if
    Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"</TR>"
    Cnbbr_ShopCommendStr=Cnbbr_ShopCommendStr &"</table>"
  Cnbbr_StarShop=Cnbbr_ShopCommendStr
End Function


Function Cnbbr_AucClosing()
  Dim EndAucStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 aucitemtitle,aucavaildate,aucid,aucclick from auctions where aucended<>'Y' and auctype In (" & SYS_MODEL & ") order by aucClosedate"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     EndAucStr=EndAucStr &"<IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;还没有商品"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("aucitemtitle"),BBR_StrLen)
   	EndAucStr=EndAucStr &"<span style=""height: 22;""><IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;<a href=""aucinfo.asp?aucid="& rs("aucid") &""" title="& Rs("AucItemTitle") &">"& content &"</a></span><br>"
	i=i+1
	if i>indexperpage then exit do
     rs.movenext
     loop
  end if
  Cnbbr_AucClosing=EndAucStr
End Function



Function Cnbbr_AucNew()
  Dim AucNewStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 aucitemtitle,aucavaildate,aucid,aucclick from auctions where aucended<>'Y' and auctype In (" & SYS_MODEL & ") order by aucavaildate desc"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     AucNewStr=AucNewStr &"<IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;还没有商品"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("aucitemtitle"),BBR_StrLen)
   	AucNewStr=AucNewStr &"<span style=""height: 22;""><IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;<a href=""aucinfo.asp?aucid="& rs("aucid") &""" title="& Rs("AucItemTitle") &">"& content &"</a></span><br>"
	i=i+1
	if i>indexperpage then exit do
     rs.movenext
     loop
  end if
  Cnbbr_AucNew=AucNewStr
End Function



Function Cnbbr_SysNews()
  Dim SysNewsStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 * from news where newsauthor=0 and BBR_IsHelp=0 order by updatetime desc"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     SysNewsStr=SysNewsStr &"·&nbsp;还没有新闻"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("newstitle"),50)
   	SysNewsStr=SysNewsStr &"<span style=""line-height:18px;"">·&nbsp;<a href=""bbrnews.asp?newsid="& rs("newsid") &""" title="& rs("newstitle") &"><font color="& Rs("newscolor") &">"& content &"</font></a></span><br>"
	i=i+1
	if i>5 then exit do
     rs.movenext
     loop
  end if
  Cnbbr_SysNews=SysNewsStr
End Function



Function Cnbbr_AucQiuGou()
  Dim QiuGouStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 * from qiugou order by qgupdatetime Desc,qgclick Desc"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     QiuGouStr=QiuGouStr &"<IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;还没有此类信息"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("qgtitle"),BBR_StrLen)
   	QiuGouStr=QiuGouStr &"<span style=""height: 22;""><IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;<a href=""qginfo.asp?qgid="& rs("qgid") &""" title="& rs("qgTitle") &">"& content &"</a></span><br>"
	i=i+1
	if i>indexperpage then exit do
     rs.movenext
     loop
  end if
  Cnbbr_AucQiuGou=QiuGouStr
End Function

Function Cnbbr_AucQiuGou1()
  Dim QiuGouStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 * from qiugou where qgInfoClass=1 order by qgupdatetime Desc,qgclick Desc"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     QiuGouStr=QiuGouStr &"<IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;还没有此类信息"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("qgtitle"),BBR_StrLen)
   	QiuGouStr=QiuGouStr &"<span style=""height: 22;""><IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;<a href=""qginfo.asp?qgid="& rs("qgid") &""" title="& rs("qgTitle") &">"& content &"</a></span><br>"
	i=i+1
	if i>indexperpage then exit do
     rs.movenext
     loop
  end if
  Cnbbr_AucQiuGou1=QiuGouStr
End Function

Function Cnbbr_AucQiuGou2()
  Dim QiuGouStr
  set rs=server.createobject("adodb.recordset")
  sql="select top 10 * from qiugou where qgInfoClass=2 order by qgupdatetime Desc,qgclick Desc"
  rs.open sql,conn,1,1
  CnbbrConnTimes
  if rs.eof then
     QiuGouStr=QiuGouStr &"<IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;还没有此类信息"
  else
     i=1
     Dim Content
     do while not rs.eof
	content=InterCeptString(rs("qgtitle"),BBR_StrLen)
   	QiuGouStr=QiuGouStr &"<span style=""height: 22;""><IMG src=""skins/"& SKINS_FOLDER &"/Dot_Info.gif"">&nbsp;<a href=""qginfo.asp?qgid="& rs("qgid") &""" title="& rs("qgTitle") &">"& content &"</a></span><br>"
	i=i+1
	if i>indexperpage then exit do
     rs.movenext
     loop
  end if
  Cnbbr_AucQiuGou2=QiuGouStr
End Function





Function Cnbbr_Head_Function

    Dim Rs_BBRTemplate
    Dim Cnbbr_Head_Str,Second_Str,Cnbbr_Head_EndStr
    Set Rs_BBRTemplate=Conn.Execute("Select BBR_TemplateID,BBR_TemplatePath,BBR_TempLateTop from Cnbbr_Template where BBR_TemplatePath='"& Skins_Folder &"'")
    CnbbrConnTimes
    if Rs_BBRTemplate.Eof then
       Response.Write "当前模板 "& Skins_Folder &" 配置有误，请检查！"
       Response.End
    else
       Cnbbr_Head_Str=Rs_BBRTemplate("BBR_TemplateTop")
       Cnbbr_Head_Str=HtmlEncode(Cnbbr_Head_Str)

       if Instr(Cnbbr_Head_Str,"|||")=0 or Instr(Cnbbr_Head_Str,"|||")=null then
           Response.Write "当前模板语法有误，请检查Top|||！"
	   Response.End
       else
       Cnbbr_Head_Str=Split(Cnbbr_Head_Str,"|||")

       For i=0 to Ubound(Cnbbr_Head_Str)
	if Instr(Cnbbr_Head_Str(i),"|@|")=0 or Instr(Cnbbr_Head_Str(i),"|@|")=null then
           Response.Write "当前模板语法有误，请检查Top|@|！"
	   Response.End
	else
	   Second_Str=Split(Cnbbr_Head_Str(i),"|@|")
	   if i<2 then
	      Cnbbr_Head_EndStr=Cnbbr_Head_EndStr & Second_Str(1)
	   else
	      Cnbbr_Head_EndStr=Replace(Cnbbr_Head_EndStr,Second_Str(0),Second_Str(1))
	   end if
	end if
       Next
       End if		
       Cnbbr_Head_EndStr=ReHtmlEncode(Cnbbr_Head_EndStr)
    end if
    Cnbbr_Head_Function=Cnbbr_Head_EndStr
    Rs_BBRTemplate.Close
    Set Rs_BBRTemplate=nothing
End Function


Function Cnbbr_Bottom_Function

    Dim Rs_BBRTemplate
    Dim Cnbbr_Bottom_Str,Second_Str,Cnbbr_Bottom_EndStr
    Set Rs_BBRTemplate=Conn.Execute("Select BBR_TemplateID,BBR_TemplatePath,BBR_TempLateBottom from Cnbbr_Template where BBR_TemplatePath='"& Skins_Folder &"'")
    CnbbrConnTimes
    if Rs_BBRTemplate.Eof then
       Response.Write "当前模板 "& Skins_Folder &" 配置有误，请检查！"
       Response.End
    else
       Cnbbr_Bottom_Str=Rs_BBRTemplate("BBR_TemplateBottom")
       Cnbbr_Bottom_Str=HtmlEncode(Cnbbr_Bottom_Str)

       if Instr(Cnbbr_Bottom_Str,"|||")=0 or Instr(Cnbbr_Bottom_Str,"|||")=null then
           Response.Write "当前模板语法有误，请检查Bottom|||！"
	   Response.End
       else
       Cnbbr_Bottom_Str=Split(Cnbbr_Bottom_Str,"|||")

       For i=0 to Ubound(Cnbbr_Bottom_Str)
	if Instr(Cnbbr_Bottom_Str(i),"|@|")=0 or Instr(Cnbbr_Bottom_Str(i),"|@|")=null then
           Response.Write "当前模板语法有误，请检查Bottom|@|！"
	   Response.End
	else
	   Second_Str=Split(Cnbbr_Bottom_Str(i),"|@|")
	   if i<2 then
	      Cnbbr_Bottom_EndStr=Cnbbr_Bottom_EndStr & Second_Str(1)
	   else
	      Cnbbr_Bottom_EndStr=Replace(Cnbbr_Bottom_EndStr,Second_Str(0),Second_Str(1))
	   end if
	end if
       Next
       End if		
       Cnbbr_Bottom_EndStr=ReHtmlEncode(Cnbbr_Bottom_EndStr)
    end if

    Cnbbr_Bottom_Function=Cnbbr_Bottom_EndStr
    Rs_BBRTemplate.Close
    Set Rs_BBRTemplate=nothing
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="没有找到相应的系统模板，请先<a href=""Cnbbr_AddTemplate.asp"">添加系统模板</a>"
  else


     TempSkins=TempSkins &"    	<span style=""position:relative; visibility: hidden;"">"& Vbcrlf
     TempSkins=TempSkins &"     <Div ID=""newlayer"" style=""position:absolute; z-index:2; left: 38px; top: 5px; 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
%>