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

📄 vqqq_ sell.asp

📁 一个不错的竞价程序
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->

<%'on error resume next
  header
  dim strsql,id
id=rst("aucid")
if id ="" then id =1
strsql = "SELECT aucid,aucEnded,aucbuyprice,aucEmailsSent,aucItemOwner,aucItemTitle,aucImageURL,catid,catsonid," & _
            "aucAvailDate,aucCloseDate,aucStartingBid,aucReservePrice,aucMinimumIncrement,aucCurrentBid," & _
	    "aucCurrentBidder,aucDescription,aucnum,oldnew,yunfei,zhifu,songhuo,fapiao,baoxiu,limit," & _
            "regID,regUserName, regEmail, regCity, regState, regCountry,regtime ,haoping,credit " & _
            "FROM Auctions LEFT JOIN users on Auctions.aucItemOwner = users.regID " & _
            "WHERE aucID = " & id
     set rs=conn.execute(strsql)
if not rs.eof then

%>
<table border=0 cellpadding=0 cellspacing=1 id=bg01 width="100%">
  <tbody> 
  <tr> 
    <td bgcolor=#ffffff> 
      <table border=0 cellpadding=2 cellspacing=0 width="100%">
        <tbody> 
        <tr> 
          <td width=90>&nbsp;</td>
          <td colspan=2 id=bg01><strong> 
<%
if rs("aucended")="Y" then
response.write " <font color=red>该商品"&rs("aucItemTitle")&"已经结束 </font></strong></td>"
else
response.write " ███"&rs("aucItemTitle")&"███ </strong></td>"
end if
%>
        </tr>
        <tr> 
          <td></td>
          <td height=1 id=bg03 valign=top></td>
          <td id=bg03></td>
        </tr>
        <tr> 
          <td align=middle valign=top><br>
            <%
	  			if rs("aucImageURL")="" then
	  				response.write "没有图片"
	  			else%>
            <img src="<%=rs("aucImageURL")%>" width="72" height="72"> 
            	<%end if%>
            
          </td>
          <td id=bg02 valign=top> 
            <table border=0 cellpadding=1 cellspacing=0 width="100%">
              <tbody> 
              <tr> 
                <td id=b2> 
                  <table border=0 cellpadding=1 cellspacing=0>
                    <tr>
                      <td id=b2><nobr><font id=f4>    现价:</font> <%=rs("aucCurrentBid")%> 
                        元/件</nobr></td>
                    </tr>
                    <tbody> 
                    <tr> 
                      <td id=b2><nobr><font id=f4>  一口价:</font> 
                        <%=rs("aucbuyprice")%>
                        元/件</nobr></td>
                    </tr>
                    <tr> 
                      <td id=b2><nobr><font id=f4>  起始价:</font> <%=rs("aucStartingBid")%> 
                        元/件</nobr></td>
                    </tr>
                    <tr> 
                      <td id=b2><nobr><font id=f4> 可购数量:</font><%=rs("aucnum")%>  </nobr></td>
                    </tr>
                    <tr> 
                      <td id=b2><nobr><font id=f4> 剩余时间:</font> <%
date2 = rs("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 '余数
if sDate3>=0 then
response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
end if
if sDate3 < 0 then
response.write ""
end if

%></nobr></td>
                    </tr>
                    <tr> 
                      <td id=b2><nobr><font id=f4>  所在地:</font> <%=rs("regState")%><%=rs("regCity")%></nobr></td>
                    </tr>
                    <tr> 
                      <td id=b2><nobr><font id=f4> 交易情况:</font> 最后出价:
					  <%
					
					  if rs("aucCurrentBidder") <> ""  then
					 		  sqllast="select regusername from users where regid="&rs("aucCurrentBidder")
					 
					  		  set rslast=conn.execute(sqllast)
							  sqltimes="select count(*) as times from bids where bidItemID="&id
					  		set rstimes=conn.execute(sqltimes)
							 		response.write rslast("regusername")
									response.write "出价"&rstimes("times")&"次"
					
						else
						
					  'if rs("aucCurrentBidder") = ""  then		
								    response.write "无人出价"
					   				response.write "出价0次"
					 end if%>
					  </nobr></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
                <td id=b1 valign=top> 
                  <table border=0 cellpadding=0 cellspacing=0 width=100>
                    <tbody> 
                    <tr> 
                      <td height=10></td>
                    </tr>
                    </tbody>
                  </table>
                  <table 
                  background=img/bg_botton_2.gif 
                  border=0 cellpadding=0 cellspacing=0 id=b2 width=90 
                    bgid="f3">
                    <tbody> 
                    <tr> 
                      <td align=middle height=26><a 
                        href="#chujia"><strong><font 
                        color=#ffffff>出价</font></strong></a> </td>
                    </tr>
                    </tbody>
                  </table>
                  <br>
                </td>
              </tr>
              </tbody>
            </table>
          </td>
          <td id=bg04 valign=top> 
            <table border=0 cellpadding=1 cellspacing=0 width="100%">
              <tbody> 
              <tr> 
                <td id=bg02><span id=b2>卖家信息</span></td>
                <td align=right id=bg02></td>
              </tr>
              <tr> 
                <td colspan=2 id=b2>卖家: <%=rs("regUsername")%> 
                  <%dim a
				  a=rs("credit")
				  select case a
				  case 0
				  response.write "&nbsp;&nbsp;新会员"
				  case 1
				  response.write "<a href=usercredit.asp?user_id="&rs("aucItemOwner")&"><img alt=""会员信用级别"":建议您出价前点击其星级查看信用详情。 border=0 src=""img/1star.gif""></a>"
				  case 2
				  response.write "<a href=usercredit.asp?user_id="&rs("aucItemOwner")&"><img alt=""会员信用级别"":建议您出价前点击其星级查看信用详情。 border=0 src=""img/2star.gif""></a>"
				  case 3
				  response.write "<a href=usercredit.asp?user_id="&rs("aucItemOwner")&"><img alt=""会员信用级别"":建议您出价前点击其星级查看信用详情。 border=0 src=""img/3star.gif""></a>"
				  case 4
				  response.write "<a href=usercredit.asp?user_id="&rs("aucItemOwner")&"><img alt=""会员信用级别"":建议您出价前点击其星级查看信用详情。 border=0 src=""img/4star.gif""></a>"
				  case default
				  response.write "新会员"
				  end select
				  %>
                  &nbsp; </td>
              </tr>
              <tr> 
                <td colspan=2 id=b2><nobr>    <strong>信用度:<%=rs("credit")%></strong> <span 
                  id=b1>好评率:<%=rs("haoping")%></span></nobr></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><nobr>    <font 
                  color=#666666>注册时间:<%=rs("regTime")%></font></nobr></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><a 
                  href=usercredit.asp?user_id=<%=rs("regID")%> 
                  target=_blank>查看信用详情</a></td>
              </tr>
              <tr> 
                <td colspan=2 id=b1><a 
                  href=ask.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=selling.asp?user_id=<%=rs("regID")%> 
                  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>

  

<br>
<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><a 
      href1="<%=weburl%>">商品描述</a></nobr></td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  </tbody> 
</table>
<br>

<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 border=0 cellPadding=0 cellSpacing=0 width="95%">
  <TBODY>
     <TD><%=replace(rs("aucDescription"),chr(10),"<br>")%><BR></TD></TR>
  <TR>
    <TD bgColor=#d7d7d7><IMG height=1 
      src="img/trans1p.gif" 
    width=1></TD></TR>
  <TR>
    <TD height=3></TD></TR></TBODY></TABLE><br>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="95%">
  <TBODY>
  <TR align=right>
    <TD colSpan=4 height=20 id=B1><A 
      href="sell.asp?catid=<%=RS("catid")%>&cats=<%=rs("catsonid")%>">我有此类商品要卖</A> 
      <A 
      href="http://www.vqqq.com">将此商品告诉朋友</A> 
    </TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="95%" 
dwcopytype="CopyTableRow">
  <TBODY> 
  <TR> 
    <TD colSpan=4 height=20 id=b2><B><FONT id=f4>附属信息:</FONT></B></TD>
  </TR>
  <TR> 
    <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> 
    <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> 
    <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> 
    <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> 
    <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> 
    <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> 
    <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=0 id=b1 width="95%">
  <TBODY>
  <TR>
    <TD align=right><A 
      href="<%=weburl%>" 
      target=_blank>我想找卖家了解商品怎么办?</A></TD></TR></TBODY></TABLE><!-- ---------------------------一口价过程 ----------------------------------------------------------------------------- --><A 
name=bid></A><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=20 
  width="95%"><TBODY>
  <TR id=B1>
    <TD align=middle id=bg07 width=90><NOBR>竞标过程</NOBR></TD>

⌨️ 快捷键说明

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