📄 aucinfo.asp
字号:
else
k=FormatNumber(j,2,-1)
end if
.Write" <input type=""text"" name=""BidPrice"" value="""& k &""" size=""20""> 元"& Vbcrlf
.Write" </td>"& Vbcrlf
.Write" <tr height=""28"">"& Vbcrlf
.Write" <td align=right>物品配送方式：</td>"& Vbcrlf
.Write" <td align=left>"& Vbcrlf
.Write" <select name=AucTM>"& Vbcrlf
if Rs("BBR_AucTM1")=0 and Rs("BBR_AucTM2")=0 then .Write" <option value=1>卖家承担邮费</option>"& Vbcrlf
if Rs("BBR_AucTM1")>0 then .Write" <option value=1>平邮："& Rs("BBR_AucTM1") &" 元</option>"& Vbcrlf
if Rs("BBR_AucTM2")>0 then .Write" <option value=2>快递："& Rs("BBR_AucTM2") &" 元</option>"& Vbcrlf
.Write" </select>"& Vbcrlf
.Write" </td>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" <tr height=""8"">"& Vbcrlf
.Write" <td width=""100%"" colspan=2></td>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" <tr>"& Vbcrlf
.Write" <td width=""100%"" colspan=2 class=fontcolor_2>"& Vbcrlf
.Write" <table width=98% cellpadding=0 cellspacing=0 border=0 align=center>"& Vbcrlf
.Write" <tr>"& Vbcrlf
.Write" <td width=72 align=right valign=top> <span class=fontcolor_2><strong>提醒：</strong></span> </td>"& Vbcrlf
.Write" <td align=left>"& Vbcrlf
.Write" <Ul>"& Vbcrlf
.Write" <li> 现有可购数量为 <span class=fontcolor_2><b>"& rs("aucnum") &"</b></span> 件</li>"& Vbcrlf
if Clng(CurrentAucType)=2 then
.Write" <li> 你可以使用一口价 <span class=fontcolor_2><B>"& FormatNumber(Rs("AucBuyPrice"),2,-1) &"</B></Span> 元立即购买此商品</li>"& Vbcrlf
else
.Write" <li> 竞拍价格必须不低于现价 <span class=fontcolor_2><b>"& FormatNumber(rs("aucCurrentBid"),2,-1) &"</b></span> 元</li>"& Vbcrlf
if Rs("AucBuyPrice")>0 then .Write "<li> 另外你还可以使用一口价 <span class=fontcolor_2><B>"& FormatNumber(Rs("AucBuyPrice"),2,-1) &"</B></Span> 元立即购买此商品</li>"& Vbcrlf
end if
.Write" </Ul>"& Vbcrlf
.Write" </td>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" </table>"& Vbcrlf
.Write" </td>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" <tr>"& Vbcrlf
.Write" <td height=""25"" colspan=2 align=""center"">"& Vbcrlf
.Write" <input type=hidden name=AucID value="""& Rs("aucid") &""">"& Vbcrlf
if CurrentAucType=1 then .Write" <input name=""bid_x"" type=""image"" src=""Images/Bid.Jpg"" OnClick=""document.bid1.action='SaveAucBid.asp?AucID="& ID &"&Act=0'; document.bid1.submit(); return false;"" style=""border:0px;"">"& Vbcrlf
if Rs("AucBuyPrice")>0 then .Write" <input name=""bid_ykj"" type=""image"" src=""Images/BuyNow.Jpg"" OnClick=""document.bid1.action='SaveAucBid.asp?AucID="& ID &"&Act=1'; document.bid1.submit(); return false;"" style=""border:0px;"">"& Vbcrlf
Randomize
Dim rndbbrcnbbr1
rndbbrcnbbr1=chr(int(26*rnd)+65)
Session("rndbbrcnbbr")=rndbbrcnbbr1
.Write "<input type=""hidden"" name=""rndbbrcnbbr"" value=""cnbbrrnd"&rndbbrcnbbr1&""">"
.Write" </td>"& Vbcrlf
.Write" </tr>"& Vbcrlf
.Write" <tr>"& Vbcrlf
.Write" <td colspan=""2"">"& Vbcrlf
.Write" <TABLE cellSpacing=0 cellPadding=0 width=""98%"" align=center border=0>"& 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" </form>"& Vbcrlf
.Write"</table>"& Vbcrlf
End If
End With
%>
<DIV align=center><BR>请遵守<A href="help.asp" target=_blank><%=SYS_WEBNAME%>服务协议</A>诚信出价购买，谢谢你的合作！<BR><BR>请点击<A href="help.asp" target="_blank">诚信与安全</A>了解更多安全交易的信息<BR></DIV>
</TD>
<TD vAlign=top width=300 class=td>
<TABLE class=td border=0 cellPadding=0 cellSpacing=1 width="300"><TBODY>
<TR>
<TD>
<TABLE border=0 cellPadding=2 cellSpacing=1 width="300" style="border-collapse: collapse">
<TBODY>
<TR class=td>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
<TR>
<td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
</TR>
<TR>
<td colspan=3 width=100% height=23 align=center background="SKINS/<%=SKINS_FOLDER%>/GrayBg.Gif"> <b>交易提醒</b> </td>
</TR>
<TR height=1>
<td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
</TR>
</Table>
</TD></TR>
<TR class=td>
<TD vAlign=top width=12>·</TD>
<TD><STRONG>对卖家不放心？</STRONG>--参考卖家信用记录能帮助你作出正确的决定，来看看别的买家对卖家的信用评价，另外，你还也可以通过查看卖家是否进行真实身份认证来提高信用度。</TD>
</TR>
<TR class=td>
<TD vAlign=top width=12>·</TD>
<TD><STRONG>怎样才算竞价成功？</STRONG>--到商品截标时，您的出价状态是领先的话，您竞价就成功了。</TD></TR>
<TR class=td>
<TD vAlign=top width=12>·</TD>
<TD><STRONG>出价成功了，然后呢？</STRONG>--请主动与卖家联系，进行线下交易。联系方式会被发送到您的注册邮箱，您也可到<A
href=BBR_Buy_Success.asp target=_blank> 我的宝贝>>已买入的商品 </A>中查询。</TD>
</TR>
<TR class=td>
<TD vAlign=top width=12>·</TD>
<TD><STRONG>如何付款拿货？</STRONG>--
一般有三类方式：a.款到发货 b.货到付款 c.见面交易。具体请与卖家协商。
</TD></TR>
<TR class=td>
<TD colSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TR height=1>
<td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
</TR>
<TR>
<td colspan=3 width=100% height=23 align=center class=menufont_1 background="SKINS/<%=SKINS_FOLDER%>/GrayBg_bottom.Gif"> <a href="help.asp" target="_blank">更多帮助</a> </td>
</TR>
<TR>
<td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
</TR>
</Table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<tr>
<td colspan=2 width=100% class=td> </td>
</tr>
</TBODY>
</TABLE>
<!-- -----------显示大图片------------- -->
<div align="center" id="bphoto">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=<%=SYS_BodyCenterWidth%> class=td style="border-collapse: collapse">
<TBODY>
<TR>
<TD class=menufont_2>
<table width=100% cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<TD width=97% class=menufont_2><img src="skins/<%=Skins_Folder%>/ring.gif" border="0" alt=""> <B>商品图片：</B></TD>
<TD width=3% class=menufont_2 align=right><a href="#top"><img src="skins/<%=Skins_Folder%>/GoTop.gif" border="0" alt="转至顶部"></a></TD>
</tr>
</table>
</TD>
</TR>
<TR>
<TD width=100% height=2 background=skins/<%=Skins_Folder%>/Dot.gif></TD>
</TR>
</TBODY>
</TABLE>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=<%=SYS_BodyCenterWidth%> style="border-collapse: collapse">
<TBODY>
<TR>
<TD class=td align=center><BR>
<%
i=1
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
response.write "<img src=""skins/"& Skins_Folder &"/nopic.gif"" border=""0""><br>"
else
Do While Not rs_img.eof
response.write "<a href="& rs_img("img_url") &"><img src="& rs_img("img_url") &" border=""0"" id=aucimg"& i &" onload=""javascript: if(this.width>728){this.width=728;}""></a><br>"
Rs_img.Movenext
i=i+1
Loop
end if
rs_img.close
set rs_img=nothing
%>
<BR>
</TD>
</TR>
</TBODY>
</TABLE>
</div>
<!-- --------其他商品列表------- -->
<TABLE cellSpacing=0 cellPadding=0 width=<%=SYS_BodyCenterWidth%> align=center border=0>
<TR>
<td colspan=3 width=100% height=2 align=center class=menutdbg_1> </td>
</TR>
<TR>
<td colspan=3 width=100% height=23 align=center background="SKINS/<%=SKINS_FOLDER%>/GrayBg.Gif"> ☆<b>卖家正在出售的商品情况(共 <%=rsselling("sellnum")%> 件)</b> </td>
</TR>
<TR height=1>
<td width=10% align=center></td><td width=80% align=center class=menutdbg_2> </td><td width=10% align=center></td>
</TR>
</Table>
<%
response.write"<TABLE border=""0"" width="""& SYS_BodyCenterWidth &""" cellpadding=""0"" cellspacing=""0"" align=""center"" style=""border-collapse: collapse"">" & vbcrlf
response.write" <TBODY>" & vbcrlf
sql="select * from Auctions where aucItemOwner="&rs("aucItemOwner")&" and aucended='N'"
set rs2=conn.execute(sql)
CnbbrConnTimes
if rs.eof then
response.write "<tr><td width=98% align=center class=td>该用户没有正在竞拍的商品</td></tr>" & vbcrlf
else
response.write" <TR Height=28 bgcolor=""#F8F8F8"">" & vbcrlf
response.write" <td width=312 align=center>商品名称</td>" & vbcrlf
response.write" <td width=91 align=center>现价</td>" & vbcrlf
response.write" <td width=81 align=center>竞标次数</td>" & vbcrlf
response.write" <td width=167 align=center>剩余时间</td>" & vbcrlf
response.write" </tr>" & vbcrlf
Response.Write" <TR>" & vbcrlf
Response.Write" <TD colspan=4 width=100% height=2 background=skins/"& Skins_Folder &"/Dot.gif></TD>" & vbcrlf
Response.Write" </TR>" & vbcrlf
dim tempc
tempc=0
do while not rs2.eof
if tempc<8 then
response.write"<TR class=""td"">" & vbcrlf
response.write"<TD height=20> ★<A href=aucinfo.asp?aucid="&rs2("aucId")&" target=""_blank"">"&rs2("aucItemTitle")&"</A></TD>" & vbcrlf
response.write"<TD align=right height=20 width=69>￥"&FormatNumber(rs2("aucCurrentBid"),2,-1)&"</TD>" & vbcrlf
response.write"<TD align=center height=20 width=69>"
response.write rs2("ykjbidtimes")+rs2("bidtimes")
response.write"</TD>" & vbcrlf
response.write"<TD height=20 width=167 align=center>"
call displaytime(rs2("aucclosedate"))
response.write"</TD>" & vbcrlf
response.write"</TR>" & vbcrlf
Response.Write" <TR>" & vbcrlf
Response.Write" <TD colspan=4 width=100% height=2 background=skins/"& Skins_Folder &"/Dot.gif></TD>" & vbcrlf
Response.Write" </TR>" & vbcrlf
tempc=tempc+1
else
exit do
end if
rs2.movenext
loop
response.write" </TBODY>" & vbcrlf
response.write"</TABLE>" & vbcrlf
end if
rs2.close
Set Rs2=nothing
%>
<TABLE border=0 cellPadding=5 cellSpacing=0 width=<%=SYS_BodyCenterWidth%> class=td style="border-collapse: collapse" align="center">
<TBODY>
<TR>
<TD colspan=2 width=100% height=2 background=skins/<%=Skins_Folder%>/Dot.gif></TD>
</TR>
<TR>
<TD><IMG height=43 src="skins/<%=Skins_Folder%>/chenxin.gif" width=20></TD>
<TD><%=SYS_WEBNAME%>是一个诚信、公开、公平、公正的交易平台。在这里，我们相信每个卖家、买家都是诚实可信的。<BR>
如果您发现有任何违反诚信交易原则的行为，请<A href="MAILTO:<%=SYS_WEBEMAIL%>">联系</A><%=SYS_WEBNAME%>诚信部门。
</TD>
</TR>
</TBODY>
</TABLE>
<!-- ---底部--- -->
<%
Response.Write Cnbbr_Bottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -