aucinfo.asp

. 缓存处理技术

 	sql = "select count(*) as bnum1 from Bids where bidItemID="&id
	set rs2=conn.execute(sql)
	CnbbrConnTimes
	Response.write"<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="""& SYS_BodyCenterWidth &""" class=td>" & vbcrlf
	Response.write"<TBODY>" & vbcrlf
	Response.write"<TR>" & vbcrlf
	Response.write"  <TD width=100% colspan=6 class=menufont_2>" & vbcrlf
	Response.write"  <table width=100% cellpadding=0 cellspacing=0 border=0 align=center>" & vbcrlf
	Response.write"  <tr>" & vbcrlf
	Response.write"  <TD width=97% class=menufont_2><img src=""skins/"& Skins_Folder &"/ring.gif"" border=""0"" alt=""""> <B>竞价过程：</B>（共出价 <b>"& rs2("bnum1") &"</b> 次）</TD>" & vbcrlf
 	Response.write"  <TD width=3% class=menufont_2 align=right><a href=""#top""><img src=""skins/"& Skins_Folder &"/GoTop.gif"" border=""0"" alt=""转至顶部""></a></TD>" & vbcrlf
	Response.write"  </tr>" & vbcrlf
	Response.write"  </table>" & vbcrlf
	Response.write"  </TD>" & vbcrlf
	Response.write"</tr>" & vbcrlf
	Response.write"<TR>" & vbcrlf
	Response.write"  <TD width=100% colspan=6 height=2 background=skins/"& Skins_Folder &"/Dot.gif></TD>" & vbcrlf
	Response.write"</TR>" & vbcrlf
	if CurrentAucType=1 or CStr(Rs("AucItemOwner"))=CStr(Request.Cookies(Super_User)("Uid")) then
  	     sql="select bids.bidid,bids.biddate,bids.bidAmount,bids.bidBidderID,bids.bidstatus,bids.bidnum,bids.biddate,users.regusername from bids,users where bids.bidBidderID=users.regid and bids.biditemid="&id&" order by bids.bidstatus DESC,Bids.BidAmount Desc,bids.biddate Desc"
 	     set rsbider=server.createobject("adodb.recordset")
  	     rsbider.open sql,conn,1,1
	     CnbbrConnTimes

	  if not rsbider.eof then
  	     response.write"<TR height=28 class=tdbg_2>"& Vbcrlf
	     response.write"<TD width=10% align=center>ID</TD>"
  	     response.write"<TD width=20% align=center>出价者</TD>"
  	     response.write"<TD width=20% align=center>买家出价</TD>"
  	     response.write"<TD width=20% align=center>出价时间</TD>"
  	     response.write"<TD width=20% align=center>获得数量</TD>"
  	     response.write"<TD width=10% align=center>状态</TD>"
 	     response.write"</TR>"
  	     i=0
  		Do while not rsbider.eof
  		response.write"<TR class=td>" 
  		response.write"<TD align=center>"&rsbider("bidid")&"</TD>"
  		response.write"<TD align=center>"&rsbider("regusername")&"</TD>"
  		response.write"<TD align=center>￥"&FormatNumber(rsbider("bidAmount"),2,-1)&"</TD>"
  		response.write"<TD align=center>"&rsbider("biddate")&"</TD>"
  		response.write"<TD align=center>"
		  if rsbider("bidstatus")=1 then
	 	     response.write rsbider("bidnum")
	 	  else
	 	     response.write"0"
	 	  end if
		response.write"</TD>"
    		response.write"<TD align=center>"
		if rsbider("bidstatus")=1 then
		   Response.Write"领先"
		else
		   response.write"出局"
		end if
		response.write"</TD>"
  		response.write"</TR>"
  		rsbider.movenext
  		i=i+1
		if i=10 then exit Do
  		Loop
	else
	  Response.Write "<TR><TD width=100% colspan=6 height=32>还没有人参与竞价！</TD></TR>" & vbcrlf
	end if
     end if
     Response.Write "</TBODY></TABLE>" & vbcrlf
end if
end if



if CurrentAucType=2 then
	sql="select * from ykjBids where ykjBidItemID="&id
	set rsfd=conn.execute(sql)
	CnbbrConnTimes
	Dim Rs2
	sql = "select count(*) as bnum1 from ykjBids where ykjBidItemID="&id
	set rs2=conn.execute(sql)
	CnbbrConnTimes
	Response.write"<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="""& SYS_BodyCenterWidth &""" class=td>" & vbcrlf
	Response.write"<TBODY>" & vbcrlf
	Response.write"<TR>" & vbcrlf
	Response.write"<TD width=100% colspan=6 class=menufont_2>" & vbcrlf
	Response.write"  <table width=100% cellpadding=0 cellspacing=0 border=0 align=center>" & vbcrlf
	Response.write"  <tr>" & vbcrlf
	Response.write"  <TD width=97% class=menufont_2><img src=""skins/"& Skins_Folder &"/ring.gif"" border=0 alt=""""> <b>一口价竞拍过程：</b>（共有 <b>"& rs2("bnum1") &"</b>人购买）</TD>" & vbcrlf
 	Response.write"  <TD width=3% class=menufont_2 align=right><a href=""#top""><img src=""skins/"& Skins_Folder &"/GoTop.gif"" border=""0"" alt=""转至顶部""></a></TD>" & vbcrlf
	Response.write"  </tr>" & vbcrlf
	Response.write"  </table>" & vbcrlf
	Response.write"</TD>" & vbcrlf
	Response.write"</tr>" & vbcrlf
	Response.write"<TR>" & vbcrlf
	Response.write"  <TD width=100% colspan=6 height=2 background=skins/"& Skins_Folder &"/Dot.gif></TD>" & vbcrlf
	Response.write"</TR>" & vbcrlf
  	dim rsbider
  	sql="select ykjBids.ykjBidid,ykjBids.ykjBiddate,ykjBids.ykjBidAmount,ykjBids.ykjBidBidderID,ykjBids.ykjBidnum,users.regusername from ykjBids,users where ykjBids.ykjBidBidderID=users.regid and ykjBids.ykjBiditemid="&id&" order by ykjBids.ykjBiddate desc"
  	set rsbider=server.createobject("adodb.recordset")
  	rsbider.open(sql),conn,1,1
	CnbbrConnTimes
      if not rsbider.eof then
 	response.write"<TR height=28 class=tdbg_2>"
	response.write"<TD width=10% align=center>ID</TD>"
    	response.write"<TD width=20% align=center>出价者</TD>"
	response.write"<TD width=20% align=center>买家出价</TD>"
	response.write"<TD width=20% align=center>出价时间</TD>"
	response.write"<TD width=20% align=center>获得数量</TD>"
	response.write"<TD width=10% align=center>状态</TD>"
  	response.write"</TR>"
	i=0
   	Do while not rsbider.eof
	response.write"<TR height=22 class=td>"
    	response.write"<TD align=center>"& rsbider("ykjbidid") &"</TD>"
    	response.write"<TD align=center>"& rsbider("regusername") &"</TD>"
    	response.write"<TD align=center>"& FormatNumber(rsbider("ykjBidAmount"),2,-1) &"</TD>"
    	response.write"<TD align=center>"& rsbider("ykjBiddate") &"</TD>"
    	response.write"<TD align=center>"&rsbider("ykjBidnum")
      	response.write"</TD>"
    	response.write"<TD align=center>"
        response.write "成功购买"
	response.write"</TD>"
  	response.write"</TR>" 
 	rsbider.movenext
  	i=i+1
  	Loop
      else
	Response.Write "<TR><TD width=100% colspan=6 height=32>还没有人使用一口价购买此商品！</TD></TR>" & vbcrlf
      end if
      Response.Write "</TBODY></TABLE>" & vbcrlf
end if

%>
<!-- -------------------留言列表---------------------- -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=<%=SYS_BodyCenterWidth%> class=td>
<TBODY>
 <%
 Dim rsmsg
 sql="select msgtitle,content,reply,OwnerID from msg where msgstatus=2 and ownerid="&Rs("AucItemOwner")&" and aucid="&id
 set rsmsg=Server.CreateObject("ADODB.RecordSet")
 RsMsg.Open Sql,Conn,1,1
 CnbbrConnTimes
 if rsmsg.eof then
    Response.Write"<TR>"& Vbcrlf
    Response.Write"  <TD width=""100%"" class=menufont_2>"& Vbcrlf
	Response.write"  <table width=100% cellpadding=0 cellspacing=0 border=0 align=center>" & vbcrlf
	Response.write"  <tr>" & vbcrlf
	Response.write"  <TD width=97% class=menufont_2><img src=""skins/"& Skins_Folder &"/ring.gif"" border=0 alt=""""> <B>买家留言列表：</B>（0 条）</TD>" & vbcrlf
 	Response.write"  <TD width=3% class=menufont_2 align=right><a href=""#top""><img src=""skins/"& Skins_Folder &"/GoTop.gif"" border=""0"" alt=""转至顶部""></a></TD>" & vbcrlf
	Response.write"  </tr>" & vbcrlf
	Response.write"  </table>" & vbcrlf
    Response.Write"  </TD>"& Vbcrlf
    Response.Write"</TR>"& Vbcrlf
    Response.write"<tr class=td><TD height=32>目前尚无已回复的买家留言！</TD></tr>"& Vbcrlf
 else
    Response.Write"<TR>"& Vbcrlf
    Response.Write"  <TD width=""100%"" class=menufont_2>"& Vbcrlf
	Response.write"  <table width=100% cellpadding=0 cellspacing=0 border=0 align=center>" & vbcrlf
	Response.write"  <tr>" & vbcrlf
	Response.write"  <TD width=97% class=menufont_2><img src=""skins/"& Skins_Folder &"/ring.gif"" border=0 alt=""""> <B>买家留言列表：</B>（"&RsMsg.RecordCount&" 条）</TD>" & vbcrlf
 	Response.write"  <TD width=3% class=menufont_2 align=right><a href=""#top""><img src=""skins/"& Skins_Folder &"/GoTop.gif"" border=""0"" alt=""转至顶部""></a></TD>" & vbcrlf
	Response.write"  </tr>" & vbcrlf
	Response.write"  </table>" & vbcrlf
    Response.Write"  </TD>"& Vbcrlf
    Response.Write"</TR>"& Vbcrlf
    Response.Write"<TR>"& Vbcrlf
    Response.Write"<TD width=100% height=2 background=skins/"& Skins_Folder &"/Dot.gif></TD>"& Vbcrlf
    Response.Write"</TR>"& Vbcrlf

   Dim Rs_BBRMsg
   i=0
   Do while not rsmsg.eof 
    response.write"<TR height=32 class=tdbg_2>"
    response.write"  <TD style=""table-layout:fixed;word-break:break-all"" title="&RsMsg("content")&">&nbsp;&nbsp;┯"& BBR_MsgType(Rs("AucItemOwner"),RsMsg("OwnerID")) &"："&rsmsg("msgtitle")&"</TD>"
    response.write"</TR>"

    Set Rs_BBRMsg=Conn.execute("select msgtitle,content,reply,msgstatus,ownerid from msg where aucid="&id&" and msgid="&RsMsg("Reply"))
    if Not Rs_BBRMsg.Eof then
       response.write"<TR height=22 class=td>"
       response.write"  <TD style=""table-layout:fixed;word-break:break-all"" title="&Rs_BBRMsg("content")&">&nbsp;&nbsp;&nbsp;&nbsp;┝"& BBR_MsgType(Rs("AucItemOwner"),Rs_BBRMsg("OwnerID")) &"："&Rs_BBRMsg("msgtitle")&"</TD>"
       response.write"</TR>"
    end if

   rsmsg.movenext
   i=i+1
   if i>3 then Exit Do
   Loop
   Rs_BBRMsg.Close
   Set Rs_BBRMsg=nothing
 end if
 RsMsg.Close
 Set RsMsg=nothing

 Function BBR_MsgType(BBR_AucOwnerID,BBR_MsgOwnerID)
   if Not isNum(BBR_AucOwnerID) then Exit Function
   if Not isNum(BBR_MsgOwnerID) then Exit Function
   if BBR_AucOwnerID=BBR_MsgOwnerID then
      BBR_MsgType="问"
   else
      BBR_MsgType="答"
   end if
 End Function
 %>
  </TBODY>
</TABLE>
<TABLE width=<%=SYS_BodyCenterWidth%> align=center border=0 cellPadding=2 cellSpacing=0>
  <TBODY>
  <TR>
    <TD align=right class=td>
      <TABLE border=0 cellPadding=3 cellSpacing=0 id=b1>
        <TBODY>
        <TR>
          <TD width=120><A href="cnbbrmsg_Write.asp?aucid=<%=rs("aucid")%>&smsto=<%=Server.URLEncode(rs("regusername"))%>" target=_blank><IMG alt=买家提问 border=0 height=19 src="skins/<%=Skins_Folder%>/buyerword_2.gif" width=85></A></TD>
          <TD width=100><A href="cnbbrmsg_Receive.asp" target="_blank"><IMG alt=卖家留言 border=0 height=19 src="skins/<%=Skins_Folder%>/sellerword_2.gif" width=85></A></TD>
	</TR>
       </TBODY>
      </TABLE>
    </TD>
  </TR>
  </TBODY>
</TABLE>

<!-- -------------------------显示出价------------------------------- -->
<table cellpadding=0 cellspacing=0 align=center width=<%=SYS_BodyCenterWidth%> border=0 class=tablebg id=chujia>
  <tr>
   <td colspan=2 width=100% class=td>&nbsp;</td>
  </tr>
  <tr>
   <td width=458 align=center class=td>
<%
  With Response


	if rs("aucended")="Y" or rs("aucnum")=0 then
	   Response.write"<br><center><font color=#ff0000>竞价已经结束，不再接受出价！</font></center><br>"& Vbcrlf
	else


	Dim TempAucTypeStr
	Select Case Clng(CurrentAucType)
	  Case 1: TempAucTypeStr=AucType1
	  Case 2: TempAucTypeStr=AucType2
	  Case else: Call AlertInfo("当前商品信息出现错误，无法进行交易！","",0)
	End Select
	.Write"<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"& Vbcrlf
	.Write"<form action="""" method=post name=bid1>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=""2"">"& Vbcrlf
	.Write"    <TABLE cellSpacing=0 cellPadding=0 width=""98%"" align=center border=0>"& Vbcrlf
	.Write"     <TR>"& Vbcrlf
	.Write"      <td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>"& Vbcrlf
	.Write"     </TR>"& Vbcrlf
	.Write"     <TR>"& Vbcrlf
	.Write"      <td colspan=3 width=100% height=23 align=center background=""SKINS/"& SKINS_FOLDER &"/GrayBg.Gif""> <b>"& TempAucTypeStr &"---竞价窗口：</b>  </td>"& Vbcrlf
	.Write"     </TR>"& Vbcrlf
	.Write"     <TR height=1>"& Vbcrlf
	.Write"      <td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>"& Vbcrlf
	.Write"     </TR>"& Vbcrlf
	.Write"    </Table>"& Vbcrlf
	.Write"   </td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	.Write"  <tr>"& Vbcrlf
	.Write"   <td colspan=""2"" height=""18""></td>"& Vbcrlf
	.Write"  </tr>"& Vbcrlf
	if CurrentAucType=2 then
	   .Write"  <tr height=""28"">"& Vbcrlf
	   .Write"   <td align=right>所需购买数量：</td>"& Vbcrlf
	   .Write"   <td align=left><input type=""text"" name=""BuyAmount"" value=""1"" size=""20""> 件</td>"& Vbcrlf
	   .Write"  </tr>"& Vbcrlf
	end if
	.Write"  <tr height=""28"">"& Vbcrlf
	.Write"   <td align=right>单件出价(元)：</td>"& Vbcrlf
	.Write"   <td align=left>"& Vbcrlf

	j=cdbl(rs("aucCurrentBid"))
	k=cdbl(rs("aucMinimumIncrement"))
	if Clng(Rs("BidTimes"))>0 and Clng(CurrentAucType)=1 then
	   k=FormatNumber(j+k,2,-1)