aucinfo.asp

. 缓存处理技术

<!-- #include file="Top_Cnbbr.asp" -->
<!-- #include file="editor/Include/DeCode.asp" -->
<!-- #include file="inc/Md5.asp" -->
<!-- #include file="include/ubbcode.asp" -->
<script language="javascript" src="js/jstime.js"></script>

<%
Dim ID:ID=CheckStr(trim(rst("aucid")))
If Not IsNum(ID) then Call AlertInfo("没有找到此商品信息！","index.asp",1)

sql = "SELECT aucid,aucEnded,aucbuyprice,aucEmailsSent,aucItemOwner,aucItemTitle,aucImageURL,BBR_ClassPath," & _
	    "aucAvailDate,aucCloseDate,aucStartingBid,aucReservePrice,aucMinimumIncrement,aucCurrentBid,bidtimes,ykjbidtimes," & _
	    "aucCurrentBidder,aucDescription,auctotalNum,aucnum,aucclick,BBR_AucOldNew,oldnew,yunfei,zhifu,songhuo,fapiao,baoxiu,limit,auctype,BBR_AlipayStatus,BBR_AucPayStyle,BBR_PayForTM,BBR_AucTM1,BBR_AucTM2," & _
            "regID,regUserName,regEmail,regCity,regState,regCountry,regtime,credit,degrade,Userqq,BBR_UserQQSkins,BBR_UserQQMsg " & _
            "FROM Auctions LEFT JOIN users on Auctions.aucItemOwner = users.regID " & _
            "WHERE aucID="&ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
CnbbrConnTimes
if rs.eof then
   Call AlertInfo("没有找到此商品的信息，请重新尝试！","Search.asp",1)
else

Dim CurrentAucType
CurrentAucType=Rs("AucType")

conn.execute("update auctions set aucclick=aucclick+1 where aucid="&ID)
CnbbrConnTimes

Dim UserShopName,UserShopID,UserShopExist
Dim RsShop
Sql="select ShopID,ShopName from Shops Where ShopOwnerid="& Rs("aucItemOwner")
Set RsShop=Server.CreateObject("ADODB.RecordSet")
RsShop.Open Sql,conn,1,1
CnbbrConnTimes
if RsShop.Eof then
   UserShopExist=0
   UserShopName="无店铺"
else
   UserShopExist=1
   UserShopName=RsShop("ShopName")
   UserShopID=RsShop("ShopID")
End if
RsShop.close
Set RsShop=nothing


dim tempt,bbryear,bbrmonth,bbrday,bbrhour,bbrminute,bbrsecond,bbrstate
tempt=rs("aucclosedate")
bbryear=year(tempt)
bbrmonth=month(tempt)
bbrday=day(tempt)
bbrhour=hour(tempt)
bbrminute=minute(tempt)
bbrsecond=second(tempt)

bbrstate=rs("aucended")
if bbrstate="N" then
	bbrstate=0
else
	bbrstate=1
end if

Response.Write"<script>setInterval('JSTime("& bbryear &", "& bbrmonth &", "& bbrday &", "& bbrhour &", "& bbrminute &", "& bbrsecond &", "& bbrstate &")',1000);</script>" & vbcrlf


 Dim cnBBR_S1,cnBBR_S2,cnBBR_S3,cnBBR_S4,cnBBR_CatPath,cnBBR_CurPath,Cur_ClassID
 cnBBR_CatPath=Rs("BBR_ClassPath")
 cnBBR_CurPath=cnBBR_CatPath
 if Len(cnBBR_CatPath)>0 then
    Dim iiclass1,iiclass2
    cnBBR_CatPath=Split(cnBBR_CatPath,"|")
    iiclass2=Ubound(cnBBR_CatPath)
    For iiclass1=0 to iiclass2
	if Not IsNum(cnBBR_CatPath(iiclass1)) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
    Next
    Cur_ClassID=Cnbbr_CatPath(iiclass2)
 end if
 if Not IsNum(Cur_ClassID) then Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
 if i>=0 then
    Call SqlClass(cnBBR_CurPath)
 else
    Call AlertInfo("对不起，参数传递有误，请检查所需查询的分类！","",0)
 end if

   Public ClassStr

   Function SqlClass(ClassID)
   Dim kk
   ClassID=Replace(ClassID," ","")
   ClassID=Replace(ClassID,"|",",")
   DIm RsClassPath
   Sql="select ClassName,Upid from aucclass where ClassID in ("& ClassID &") order by Classid Asc"
   set RsClassPath=Conn.execute(sql)
   CnbbrConnTimes
   if RsClassPath.Eof then
      Call AlertInfo("对不起，没有找到所需查询的分类！","",0)
   else
      Dim TempClassPath,TempCpi,TempStrC
      TempClassPath=Split(ClassID,",")
      For TempCpi=0 to Ubound(TempClassPath)
	TempStrC=TempStrC &"|"& TempClassPath(TempCpi)
	if TempCpi=0 then TempStrC=Right(TempStrC,Len(TempStrC)-1)
 	ClassStr=ClassStr & "||[menu]||Display_Class.asp?BBRpath="& Server.URLEncode(TempStrC) &"|[menu]|"& RsClassPath("ClassName")
        RsClassPath.MoveNext
      Next
   end if
   RsClassPath.Close
   set RsClassPath=nothing
   End Function


Response.Write Cnbbr_Head

	Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
	SiteMenu_Width=SYS_BodyCenterWidth
	SiteMenu_Left="Auc_Class_BBR.asp|[menu]|商品分类"& ClassStr
	SiteMenu_Right=""
	Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)

  With Response
	.Write "<table border=0 cellpadding=0 cellspacing=0 width="""& SYS_BodyCenterWidth &""" align=center class=td>" & vbcrlf
	.Write "  <tbody>" & vbcrlf
	.Write "  <tr>" & vbcrlf
	.Write "    <td class=td>" & vbcrlf

	.Write "<TABLE cellSpacing=1 cellPadding=0 width=100% align=center border=0>" & Vbcrlf
	.Write "<TR>" & Vbcrlf
	.Write "<td width=99% align=center background=""SKINS/"& SKINS_FOLDER &"/GrayBg.Gif"">"& Vbcrlf

	.Write "	<table width=100% cellpadding=0 cellspacing=0 align=center>" & vbcrlf
	.Write "	  <tr height=38>"& vbcrlf
	.Write "	   <td width=""100%"" align=""center""><Span Style=""font-size: 14px; font-weight: bold"">"& vbcrlf

	if rs("aucended")="Y" or rs("aucnum")=0 then
	   .write " 该商品"&rs("aucItemTitle")&"<strong>已经结束 </strong>"
	else
	   .write rs("aucItemTitle") &" -> "& vbcrlf
	end if

	select case CurrentAucType
	 case 1:
          .Write "<img src=images/icon_bid.gif border=0 alt=拍卖>"
	 case 2:
	  .Write "<img src=images/icon_buynow.gif border=0 alt=一口价>"
	 case else:
	  .Write "有误"
	end select

	if Rs("BBR_AlipayStatus")=1 then .Write "<img border=""0"" src=""Images/AlipayStatus.gif"" alt=""支持支付宝付款"" title=""使用支付宝付款，放心又省钱"" />"& Vbcrlf

	.Write "	   </Span></td>" & vbcrlf
	.Write "	  </tr>" & vbcrlf
	.Write "<TR>" & Vbcrlf
	.Write "<td width=100% height=1 class=menutdbg_2> </td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "	</table>" & vbcrlf

	.Write "</td>" & Vbcrlf
	.Write "</TR>" & Vbcrlf
	.Write "</Table>" & Vbcrlf


	.Write " 	<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""100%"" align=""center"">" & vbcrlf
	.Write "	  <tbody>" & vbcrlf
	.Write "	  <tr>" & vbcrlf
	.Write "	    <td width=""250"" height=""186"" align=""center"">"
	.Write "		<table width=100% border=0 cellpadding=1 cellspacing=0>" & vbcrlf
	.Write "		  <tbody>" & vbcrlf
	.Write "		  <tr><td align=center>"  & vbcrlf
%>
                                        <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                                          <TBODY>
                                            <TR> 
                                              <TD align=middle width="75%"><div align="center" Style="color: #003399">今天是：<B><%=DatePart("yyyy",Now())%></B> 年 <B><%=DatePart("m",Now())%></B> 月 <B><%=DatePart("d",Now())%></B> 日</div></TD>
                                            </TR>
                                            <TR> 
                                              <TD align="center"> 
                                                  <OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0 height=25 width=80 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
                                                    <PARAM NAME="movie" VALUE="http://www.joyo.com/static2/2004_1115_zdkj3.swf">
                                                    <PARAM NAME="quality" VALUE="high">
                                                    <PARAM NAME="bgcolor" VALUE="#FFFFFF">
                                                    <PARAM NAME="wmode" VALUE="transparent">
                                                    <PARAM NAME="menu" VALUE="false">
                                                    <embed src="http://www.joyo.com/static2/2004_1115_zdkj3.swf" width="80" height="25" align="" quality=high bgcolor=#FFFFFF type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" wmode="transparent" menu="false"></embed> 
						  </OBJECT>
                                               </TD>
                                            </TR>
                                          </TBODY>
                                        </TABLE>
<%
	.Write "		  </td></tr>"  & vbcrlf
	.Write "		  <tr height=208><td align=center>"  & vbcrlf
	   Dim rs_img,img_url
	   sql="select * from aucimages where aucid="&rs("aucid")&" order by img_order"
	   set rs_img=server.createobject("ADODB.recordset")
	   rs_img.open sql,conn,1,3
	   CnbbrConnTimes
	   if rs_img.bof or rs.eof then
	      img_url="skins/"& Skins_Folder &"/nopic.gif"
	   else
	      img_url=rs_img("img_url")
	   end if
	   response.write "<a href=""#bphoto""><img src="& img_url &" width=""158"" height=""158"" border=""0"" alt=""点击查看此商品大图片""></a><br><br>"
	   response.write"商品图列表："
	   i=1
	   Do While Not rs_img.eof
	      response.write "&nbsp;<a href=""#aucimg"& i &"""><b>"& i &"</b></a>"
	   Rs_img.Movenext
	   i=i+1
	   Loop
	.Write "		  </td></tr>"  & vbcrlf
	.Write "		  </tbody>" & vbcrlf
	.Write "		</table>" & vbcrlf
	
	.Write "	     </td>" & vbcrlf

	.Write "	     <td valign=top width=280>" & vbcrlf
	.Write "		<table width=100% border=0 cellpadding=1 cellspacing=0>" & vbcrlf
	.Write "		  <tbody>" & vbcrlf
	.Write "		  <tr>"  & vbcrlf
	.Write "		     <td>" & vbcrlf
	.Write "			<table width=98% border=0 cellpadding=1 cellspacing=0 align=center>" & vbcrlf
	.Write "			  <tbody>" & vbcrlf

	if CurrentAucType=1 then
   	  .write "<tr>" & vbcrlf
	  .write "<td colspan=2 height=22>当前价格："
	  .write "<Span class=fontcolor_2><font size=3><b>"& FormatNumber(rs("aucCurrentBid"),2,-1) &"</b></font></Span>"
	  .write "&nbsp;元/件</td>"
	  .write "</tr>" & vbcrlf
	  .Write "<tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
	  .write "<tr>" & vbcrlf
	  .write "<td colspan=2 height=22>起 拍 价： "
	  .write FormatNumber(rs("aucStartingBid"),2,-1)
	  .write "&nbsp;元/件</td>"
	  .write "</tr>" & vbcrlf
	  .Write "<tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
	  .write "<tr>" & vbcrlf
	  .write "<td colspan=2 height=22>加价幅度： "
	  .write FormatNumber(rs("aucMinimumIncrement"),2,-1)
	  .write "&nbsp;元</td>"
	  .write "</tr>" & vbcrlf
	  .Write "<tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
	elseif CurrentAucType=2 then
	  .write "<tr>" & vbcrlf
	  .write "<td colspan=2 height=22>一 口 价： "
	  .write "<Span class=fontcolor_2><font size=5><b>"& FormatNumber(rs("aucbuyprice"),2,-1) &"</b></font></Span>"
	  .write "&nbsp;元/件</td>"
	  .write "</tr>" & vbcrlf
	  .Write "<tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
	else
	  .write "无效的拍卖模式"
	end if

	.Write "                 	  <tr> " & vbcrlf
	.Write "                  	    <td colspan=2 height=22>剩余时间： <span id=time>正在计算...</span></td>" & vbcrlf
	.Write "                   	  </tr>" & vbcrlf

	.Write "			  <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
	.Write "                    	  <tr> " & vbcrlf
	.Write "                	    <td width=50% height=22>可购数量： "& rs("aucnum") &"  件</td>" & vbcrlf
	.Write "                  	    <td height=22>" & vbcrlf

	if CurrentAucType=1 then
   	   .write "出价次数： " & rs("bidtimes") & " 次"
	elseif CurrentAucType=2 then
	   .write "已售数量： " & rs("AucTotalNum")-Rs("AucNum") & " 件"
	else
	   .write "有误"
	end if

	.Write "	                    </td>" & vbcrlf
	.Write "                	  </tr>" & vbcrlf