⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 vqqq_ sell.asp

📁 一个不错的竞价程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
    <TD align=right width=792><NOBR>  </NOBR></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="95%">
  <TBODY>
  <TR>
    <TD id=bg01><IMG height=1 
      src="img/trans1p.gif" 
    width=1></TD></TR></TBODY></TABLE><!-- -----------------------------竞价列表-------------------------------------------------------------------------------------------- -->
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
width="95%">
  <TBODY>
  <TR>
    <TD><SPAN id=B1><BR>
      <%sqlfind="select * from Bids where bidItemID="&id
	  set rsfd=conn.execute(sqlfind)
if not rsfd.eof then
	  sql = "select count(*) as bnum1 from Bids where bidItemID="&id
	  set rs2=conn.execute(sql)
	 
	 response.write "共有"&rs2("bnum1")&"人竞标"
	%>
      </SPAN></TD>
  </TR><%
 
  sqlbider="select bids.biddate,bids.bidAmount,bids.bidBidderID,users.regusername from bids,users where bids.bidBidderID=users.regid and bids.biditemid="&id&" order by bids.biddate desc"
  set rsbider=server.createobject("adodb.recordset")
  rsbider.open(sqlbider),conn,1,1

  'sqlnum = "select count(*) as bnum from Bids where bidItemID="&id&" and bidAmount>"&cdbl(rs("aucReservePrice"))
	 ' set rsnum=conn.execute(sqlnum)
   
   
  %>
  <TR>
    <TD>出价者</TD><TD>出价时间</TD><TD>获得数量</TD><TD>状态</TD>
  </TR> 
  <%i=0
   while not rsbider.eof%>
  <TR> 
    <TD><SPAN id=B1>
	<%
	  
	  response.write rsbider("regusername")
	  %>
     
	 
      </SPAN></TD>
	   <TD><SPAN id=B1>
     <%
	  
	  response.write rsbider("biddate")
	
	  %>
	 
      </SPAN></TD>
	   <TD><SPAN id=B1>
	   <%
	    sqlnum = "select count("&cint(rs("aucnum"))&") as n from Bids where bidItemID="&id&" and bidAmount>"&cdbl(rs("aucReservePrice")) '&" order by bidDate desc"
	    set rsnum=conn.execute(sqlnum)
  
   
	 if i<cdbl(rs("aucnum")) and cdbl(rsbider("bidAmount"))>cdbl(rs("aucReservePrice")) then

	   response.write "1"
	
	   else
	   	   response.write "0"
	   end if
	   
	   %>
     
	 
      </SPAN></TD>
	   <TD><SPAN id=B1>
     <% if i<cdbl(rs("aucnum")) and cdbl(rsbider("bidAmount"))>cdbl(rs("aucReservePrice")) then

	   response.write "领先"
	
	   else
	   	   response.write "出局"
	   end if
	   
	   %>
	 
      </SPAN></TD>
  </TR> 
  <%
  rsbider.movenext
  i=i+1
  wend
  else%>目前尚无买家出价!<br>
  
  <%
  
end if
end if%></TBODY></TABLE>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
width="95%">
  <TBODY>
  <TR>
    <TD align=right height=25 id=B1><NOBR></NOBR></TD>
  </TR></TBODY></TABLE><!-- ------------------------------------cci信息-------------------------------------------------------------------------------- --><!-- --------------------------------------------------留言列表------------------------------------------------------------------- -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=20 
  width="95%"><TBODY>
  <TR id=B1>
    <TD align=middle id=bg07 width=88><NOBR>卖家留言列表</NOBR></TD>
    <TD width=6>&nbsp;</TD>
    <TD>&nbsp;</TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=4 cellSpacing=1 id=bg01 width="95%">
  <TBODY> <%sqlmsg="select content,reply from msg where aucid="&id
  set rsmsg=conn.execute(sqlmsg)
 if rsmsg.eof then
 response.write " <TR> " & _
    "<TD id=bg12>目前尚无买家留言!</TD>" & _
	" </TR>"
else
	while not rsmsg.eof 
  %>
  <TR> 
    <TD id=bg12>问:<%=rsmsg("content")%></TD>
  </TR>
  <TR> 
    <TD id=bg02>答:<%=rsmsg("reply")%></TD>
  </TR>
  <%
  rsmsg.movenext
  wend
  end if
  %>
  </TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=5 cellSpacing=0 width="95%">
  <TBODY>
  <TR>
    <TD align=right id=b2>
      <TABLE border=0 cellPadding=3 cellSpacing=0 id=b1>
        <TBODY>
        <TR align=middle>
          <TD width=120><A 
            href="<%=weburl%>ask.asp?auc_id=<%=rs("aucid")%>&ownerid=<%=rs("aucItemOwner")%>" 
            target=_blank><IMG alt=买家提问 border=0 height=19 
            src="img/buyerword_2.gif" 
            width=85></A></TD>
          <TD width=100><A 
            href="auction_msg.asp" 
            t1arget="_blank"><IMG alt=卖家留言 border=0 height=19 
            src="img/sellerword_2.gif" 
            width=85></A></TD></TR>
       </TBODY></TABLE></TD></TR></TBODY></TABLE><BR><!-- ---------------------------------------------------显示出价---------------------------------------------------------------- -->


<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR id=bg01 ?>
    <TD colSpan=2 height=20 id=B2><NOBR><B><FONT id=f4>出价<A 
      name=chujia></A></FONT></B></NOBR></TD></TR>
  <TR>
    <TD colSpan=2 height=5></TD></TR>
  <TR>
    <TD id=b1 vAlign=top>
	<table width="98%" border="0" cellspacing="0" cellpadding="0">
		        <tr> 
		          <td colspan="4" height="3" id="bg01""><img src="img/trans1p.gif" width="1" height="1"></td>
		        </tr>
		        <form action=pre_bid.asp method=post name=bidf1 onsubmit="return ckck1()">
		          <input type=hidden name=auc_id value="<%=rs("aucid")%>">
				<input type=hidden name=aucItemOwner value="<%=rs("aucItemOwner")%>">
		          <input type=hidden name=auc_title value='<%=rs("aucItemTitle")%>'>
				  <input type="hidden" name="auc_place" value='<%=rs("regState")%>,<%=rs("regCity")%>'>
				  <input type=hidden name=zhifu value='<%=rs("zhifu")%>'>
				  <input type=hidden name=yunfei value='<%=rs("yunfei")%>'>
		          <tr> 
		            <td id="bg01"" rowspan="5" width="3"></td>
		            <td colspan="2" id="B1" height="20"><nobr> <b id="B2">填入您愿意接受的最高价格</b> 
		              <span id="O2">(现价:<%=rs("aucCurrentBid")%>元/件)</span></td>
		            <td id="bg01"" rowspan="5" width="4"></td>
		          </tr>
		          <tr> 
		            <td colspan="2" height="1" id="bg01""><img src="img/trans1p.gif" width="1" height="1"></td>
		          </tr>
		          <tr id="B2"> 
		            <td height="20" width="50%"><nobr> 需要数量:<br> <input type="text" name="getnum" id="B2" value="1"> 
		            </td>
		            <td><nobr> 每件出价(元):<br> <input type="text" name="bid_price" id="B2" value="<%a=cdbl(rs("aucCurrentBid"))
					b=cdbl(rs("aucMinimumIncrement"))
					c=a+b
					response.write c
					%>"> 
					
		            </td>
		          </tr>
		          <tr id="B1"> 
		            <td width="50%"> 
		              		            </td>
		            <td height="20"> (不得低于<%=c%>元)</td>
		          </tr>
		          <tr> 
		            
            <td width="50%" id="B1"> <strong>为什么要填能接受的最高价格?</strong></td>
		            <td height="25"align="center"> 
		              
		              <input name="bid_x" type=submit id="b1" STYLE="color: white;border-color: #CECBCE; background-color: #EF7508;" value="   出价   "> 
		            </td>
		          </tr>
		          <tr> 
		            <td colspan="4" height="3" id="bg01""><img src="img/trans1p.gif" width="1" height="1"></td>
		          </tr>
		        </form>
		      </table>
    

      
      <DIV align=center><BR>请您遵守<A 
      href="http://www.vqqq.com/" 
      target=_blank>vqqq网服务协议</A>,诚信出价购买。一经成交您将依法承担应履行的交易义务。<BR><BR>请点击<A 
      href="http://www.vqqq.com/" 
      target=_blank>诚信与安全</A>了解更多安全交易的信息<BR></DIV></TD>
    <TD vAlign=top width=260>
      <TABLE bgColor=#cecfce border=0 cellPadding=0 cellSpacing=1 
        width="100%"><TBODY>
        <TR>
          <TD>
            <TABLE align=center bgColor=#ffffff border=0 cellPadding=2 
            cellSpacing=1 width="100%">
              <TBODY>
              <TR bgColor=#f7f3f7>
                <TD align=middle colSpan=2 height=22 id=B1><B><FONT 
                  id=f4>对卖家不放心?</FONT></B></TD></TR>
              <TR>
                <TD bgColor=#ffffff id=B1 vAlign=top width=5>·</TD>
                <TD bgColor=#ffffff 
                  id=B1><STRONG>对卖家不放心?</STRONG>--参考卖家信用记录能帮助你作出正确的决定,来看看别的买家对卖家 
                </TD>
              </TR>
              <TR>
                <TD bgColor=#ffffff id=B1 vAlign=top width=5>·</TD>
                <TD bgColor=#ffffff 
                  id=B1><STRONG>怎样才算竞价成功?</STRONG>--到商品截标时,您的出价状态是领先的话,您竞价就成功了。</TD></TR>
              <TR>
                <TD bgColor=#ffffff id=B1 vAlign=top width=5>·</TD>
                <TD bgColor=#ffffff 
                  id=B1><STRONG>出价成功了,然后呢?</STRONG>--请主动与卖家联系,进行线下交易。联系方式会被发送到您的注册邮箱,您也可到<A 
                  href=bought.asp 
                  target=_blank>我的vqqq--已买入的商品</A>中查询。</TD>
              </TR>
              <TR>
                <TD bgColor=#ffffff id=B1 vAlign=top width=5>·</TD>
                <TD bgColor=#ffffff id=B1><STRONG>如何付款拿货?</STRONG>-- 
                  一般有三类方式:a.款到发货 b.货到付款 c.见面交易。具体请与卖家协商。 
                  <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
                  width="95%">
                    <TBODY>
                    <TR>
                      <TD align=right height=15 id=b1 vAlign=top>更多帮助 </TD>
                    </TR></TBODY></TABLE></TD></TR>
              <TR bgColor=#f7f3f7>
                <TD colSpan=2 height=52 id=b1>
                  <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
                  width="88%">
                    <TBODY>
                    <TR>
                      <TD height=15 id=b1 vAlign=top>万一在交易中受到损失,您还可申请交易安全基金。(只有网上成交才可申请)</TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><!-- ---------------------------------------------显示大图片---------------------------------------------------------------------- --><A 
name=pic></A>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=20 
  width="100%"><TBODY>
  <TR>
    <TD align=middle id=bg01><B><A name=pic></A>商品图片</B></TD></TR></TBODY></TABLE>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
width="100%">
  <TBODY>
  <TR>
    <TD align=middle><BR>
      <%
	  if rs("aucImageURL")="" then
	  response.write "没有图片"
	  else%>
      <img src="<%=rs("aucImageURL")%>"> 
      <%end if%>
      <BR>
    </TD></TR></TBODY></TABLE>
<DIV align=right id=g4><A 
href="http://www.vqqq.com/">返回页首</A></DIV>
<!-- ------------------------------------------其他商品列表------------------------------------------------------------------------- --><A 
name=other></A>
<P align=center><FONT id=b2>卖家正在出售的商品情况(共<%=rsselling("sellnum")%>件)  </FONT></P>
<TABLE border=0 id=B1 width="100%">
  <TBODY><%
  sql="select * from Auctions where aucItemOwner="&rs("aucItemOwner")&" and aucended='N'"
  set rs2=conn.execute(sql)
  if rs.eof then
  response.write "该用户没有再卖的商品"
  else
  while not rs2.eof
  %>
  <TR id=bg02>
    <TD height=20><NOBR><A 
      href="viewaucid.asp?aucid=<%=rs2("aucId")%>" 
      target=_blank>███<%=rs2("aucItemTitle")%>███</A></NOBR></TD>
    <TD align=middle height=20 width=69><B><%=rs2("aucCurrentBid")%></B></TD>
    <TD align=middle height=20 width=69><NOBR><%
date2 = rs2("aucCloseDate")
date1 = now()
sDate = DateDiff("s", date1, date2) '总秒数
sDay = fix(sDate/60/60/24) '天数
sDate1 = sDate mod 60*60*24 '余数
sHour = fix(sDate1/60/60) '小时
sDate2 = sDate1 mod 60*60 '余数
sMinute = fix(sDate2/60) '分钟
sDate3 = sDate2 mod 60 '余数
response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
%></NOBR></TD></TR>
  
  <%rs2.movenext
  wend%>
  </TBODY></TABLE><BR>
<%end if
%>
<TABLE align=center border=0 cellPadding=5 cellSpacing=1 id=bg01 width="100%">
  <TBODY>
  <TR>
    <TD align=middle id=bg02><IMG height=43 
      src="img/chen.gif" 
    width=20></TD>
    <TD bgColor=#ffffff><SPAN 
      id=b1>vqqq是一个诚信、公平、公开、公正的交易社区。在这里,相信每个卖家、买家都是诚实可信的。<BR>目前,我们正与国家有关部门携手,坚决抵制任何违法、违规的交易行为,并加强打击力度。<BR>如果您发现有任何违反诚信交易原则的行为,请<A 
      href="<%=weburl%>">联系</A>vqqq诚信部门。</SPAN></TD></TR></TBODY></TABLE><!-- ----------------------------------------------统计---------------------------------------------------------------------- -->
<HR color=#cccccc noShade SIZE=1>
<%footer%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -