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

📄 aucinfo.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
                  color=#666666>注册时间：<%=rs("regTime")%></font></nobr></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><a 
                  href=usercredit.asp?vqqqid=<%=rs("regusername")%> 
                  target=_blank>查看信用详情</a></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><a 
                  href=askseller.asp?auc_id=<%=rs("aucid")%>&ownerid=<%=rs("aucItemOwner")%>>向卖家提问</a></td>
              </tr>
              <tr> 
                <td colspan=2 height=6></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><a 
                  href=searchuser.asp?uname=<%=rs("regusername")%> 
                  target=_blank> 
                  <%
				  sqlselling="select count(*) as sellnum from auctions where aucItemOwner="&rs("regID")&" and aucended='N'"
				  set rsselling=conn.execute(sqlselling)
				  if not rs.eof then 
				  %>
                  卖家出售中的商品(共<%=rsselling("sellnum")%>件) 
                  <%end if%>
                  </a></td>
              </tr>
              </tbody>
            </table>
          </td>
        </tr>
        </tbody>
      </table>
    </td>
  </tr>
  </tbody>
</table>
<table align=center border=0 cellpadding=10 cellspacing=1 width="760" class=tablebg style="TABLE-LAYOUT: fixed" >
  <tbody> 
  <tr id=B1> 
    <td align=middle id=bg07 class=titletd width=100% ><nobr><b>商品描述：</b></nobr></td>
  </tr>
  <tr><TD align=left class=td style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" ><pre><%=rs("aucDescription")%></pre><BR></TD></TR>
  </tbody> 
</table>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="760" class=tablebg>
  <TBODY>
  <TR align=right class=td>
    <TD colSpan=4 height=20 id=B1><A 
      href="sellauc.asp?catid=<%=RS("catid")%>&cats=<%=rs("catsonid")%>">我有此类商品要卖</A> 
    </TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="760" dwcopytype="CopyTableRow" class=tablebg>
  <TBODY> 
  <TR> 
    <TD colSpan=4 height=20 id=b2 class=titletd><B><FONT id=f4>附属信息：</FONT></B></TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02 width="20%"><FONT id=f4>商品号：</FONT></TD>
    <TD height=20 id=bg02 width="20%"><%=rs("aucId")%></TD>
    <TD align=right height=20 id=bg02 width="30%"><FONT 
id=f4>发票：<BR>
      </FONT></TD>
    <TD height=20 id=bg02 width="30%"><%=rs("fapiao")%> </TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>开始时间：</FONT></TD>
    <TD height=20 id=bg02><%=rs("aucAvailDate")%></TD>
    <TD align=right height=20 id=bg02><FONT id=f4>保修：<BR>
      </FONT></TD>
    <TD height=20 id=bg02><%=rs("baoxiu")%></TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>结束时间：</FONT></TD>
    <TD height=20 id=bg02><%=rs("aucCloseDate")%></TD>
    <TD align=right height=20 id=bg02><FONT id=f4>谁负担运费：<BR>
      </FONT></TD>
    <TD height=20 id=bg02><%=rs("yunfei")%> </TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>商品所在地：</FONT></TD>
    <TD height=20 id=bg02><%=rs("regState")%><%=rs("regCity")%></TD>
    <TD align=right height=20 id=bg02><FONT id=f4>支付方式：<BR>
      </FONT></TD>
    <TD height=20 id=bg02><%=rs("zhifu")%></TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>销售区域：</FONT></TD>
    <TD height=20 id=bg02>中国</TD>
    <TD align=right height=20 id=bg02><FONT id=f4>送货方式：</FONT></TD>
    <TD height=20 id=bg02><%=rs("songhuo")%> </TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>买家信用限制：</FONT></TD>
    <TD height=20 id=bg02>
      <%=rs("limit")%>
    </TD>
    <TD align=right height=20 id=bg02></TD>
    <TD height=20 id=bg02></TD>
  </TR>
  <TR class=td> 
    <TD align=right height=20 id=bg02><FONT id=f4>新旧程度：</FONT></TD>
    <TD height=20 id=bg02>
      <%=rs("oldnew")%>
    </TD>
    <TD align=right height=20 id=bg02></TD>
    <TD height=20 id=bg02></TD>
  </TR>
  </TBODY>
</TABLE>

<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="760" class=tablebg><TBODY>
  <TR id=B1 class=titletd>
    <TD id=bg07 width=100% colspan="6"><NOBR><b>竞标过程：</b></NOBR></TD>
  </tr>
<!-- ---------竞价列表-------- -->
  <TR class=td>
    <TD colspan="6"><SPAN id=B1>
      <%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.bidid,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 class=titletd><TD width=10% align=center>ID</TD>
    <TD width=20% align=center>出价者</TD><TD width=20% align=center>买家出价</TD><TD width=20% align=center>出价时间</TD><TD width=20% align=center>获得数量</TD><TD width=10% align=center>状态</TD>
  </TR> 
  <%i=0
   while not rsbider.eof%>
  <TR class=td> 
    <TD align=center><% response.write rsbider("bidid") %></TD>
    <TD align=center><% response.write rsbider("regusername") %></TD>
    <TD align=center><% response.write rsbider("bidAmount") %></TD>
    <TD align=center><% response.write rsbider("biddate") %></TD>
    <TD align=center>
	   <%
	   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
	   %>
      </TD>
    <TD align=center>
     <% if i<cdbl(rs("aucnum")) and cdbl(rsbider("bidAmount"))>cdbl(rs("aucReservePrice")) then
	   response.write "领先"
	else
	   response.write "出局"
	end if
	%>
      </TD>
  </TR> 
  <%
  rsbider.movenext
  i=i+1
  wend
  else
%>
目前尚无买家出价!<br>
<%
end if
end if
%>
</TBODY></TABLE>

<!-- --------------------一口价竞价----------------------- -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="760" class=tablebg><TBODY>
  <TR id=B1 class=titletd>
    <TD id=bg07 width=100% colspan="6"><NOBR><b>一口价购买过程：</b></NOBR></TD>
  </tr>
  <TR class=td>
    <TD colspan="6"><SPAN id=B1>
      <%sqlfind="select * from ykjBids where ykjBidItemID="&id
	  set rsfd=conn.execute(sqlfind)
		if not rsfd.eof then
	  sql = "select count(*) as bnum1 from ykjBids where ykjBidItemID="&id
	  set rs2=conn.execute(sql)
	 response.write "共有"&rs2("bnum1")&"人购买"
	%>
      </SPAN></TD>
  </TR>
<%
  sqlbider="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(sqlbider),conn,1,1

  'sqlnum = "select count(*) as bnum from ykjBids where ykjBidItemID="&id&" and ykjBidAmount>"&cdbl(rs("aucReservePrice"))
	 ' set rsnum=conn.execute(sqlnum)
   
   
  %>
  <TR class=titletd>    <TD width=10% align=center>ID</TD>
    <TD width=20% align=center>出价者</TD><TD width=20% align=center>买家出价</TD><TD width=20% align=center>出价时间</TD><TD width=20% align=center>获得数量</TD><TD width=10% align=center>状态</TD>
  </TR> 
  <%i=0
   while not rsbider.eof%>
  <TR class=td> 
    <TD align=center><% response.write rsbider("ykjbidid") %></TD>
    <TD align=center><% response.write rsbider("regusername") %></TD>
    <TD align=center><% response.write rsbider("ykjBidAmount") %></TD>
    <TD align=center><% response.write rsbider("ykjBiddate") %></TD>
    <TD align=center><%=rsbider("ykjBidnum")%>
      </TD>
    <TD align=center>
     <% response.write "成功购买" %>
      </TD>
  </TR> 
  <%
  rsbider.movenext
  i=i+1
  wend
  else
%>
目前尚无买家出价!<br>
<%
end if
%>
</TBODY></TABLE>

<!-- -------------------留言列表---------------------- -->
<TABLE align=center border=0 cellPadding=0 cellSpacing=1 width="760" class=tablebg><TBODY>
  <TR id=B1 class=titletd>
    <TD align=middle id=bg07 width=88><NOBR><b>卖家留言列表：</b></NOBR></TD>
  </tr>
 <%sqlmsg="select content,reply from msg where aucid="&id
  set rsmsg=conn.execute(sqlmsg)
 if rsmsg.eof then
 response.write " <TR> " & _
    "<tr class=td><TD id=bg12>目前尚无买家留言！</TD></tr>"
 else
   while not rsmsg.eof 
  %>
  <TR class=td> 
    <TD id=bg12>问：<%=rsmsg("content")%></TD>
  </TR>
  <TR class=td> 
    <TD id=bg02>答：<%=rsmsg("reply")%></TD>
  </TR>
  <%
  rsmsg.movenext
  wend
  end if
  %>
  </TBODY>
</TABLE>
<TABLE align=center border=0 cellPadding=2 cellSpacing=1 width="760" class=tablebg>
  <TBODY>
  <TR>
    <TD align=right id=b2 class=td>
      <TABLE border=0 cellPadding=3 cellSpacing=0 id=b1>
        <TBODY>
        <TR align=middle>
          <TD width=120><A 
            href="askseller.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="vqqqauction_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>
<!-- -------------------------显示出价------------------------------- -->
123

⌨️ 快捷键说明

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