usershoplist.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

	<table width="100%" border="0" cellspacing="1" cellpadding="2" class=tablebg>
           <tbody> 
              <tr class=titletd> 
                <td colspan="2" align=center><font class=fblack><b>本店推荐商品</b></font></td>
              </tr>
              <tr class=td> 
                <td align=center>
<%
    	set rsshop=server.createobject("adodb.recordset") 
	sqlshop="select * from shops where shopid="&rst("sid")
	rsshop.open sqlshop,conn,1,1

    	set rsaucl=server.createobject("adodb.recordset") 
	sqlaucl="select * from auctions where aucitemowner="&rsshop("shopownerid")&" and aucended<>'Y' order by aucclosedate"
	rsaucl.open sqlaucl,conn,1,1
if rsaucl.eof then
 	response.write "此店还没有发布任何商品"
else
do while not rsaucl.eof
%> 
<table cellpadding=1 cellspacing=1 width=100% align=center class=tablebg>
<tr class=td>
<td width=88 align=center>
<%


if rsaucl("aucImageURL")="NULL" then
	response.write"无图片预览"
else
	response.write "<a href=aucinfo.asp?aucid="&rsaucl("aucid")&"><img src="&rsaucl("aucimageurl")&" border=0 width=72 height=72></a>"
end if
   dim content
if len(rsaucl("aucdescription"))>50 then
   content=left(rsaucl("aucdescription"),47)&"..."
else
   content=rsaucl("aucdescription")
end if
%>
</td>
<td>
<table align=center width=100%>
<tr><td align=left colspan="3">商品名称：<a href="aucinfo.asp?aucid=<%=rsaucl("aucid")%>"><%=rsaucl("aucitemtitle")%></a></td></tr>
<tr><td align=left colspan="3">商品描述：<%=content%></td></tr>
<tr><td align=left>商品现价：<%=rsaucl("auccurrentbid")%> 元</td><% if rsaucl("aucbuyprice")=0 then %><td>非一口价商品</td><%else%><td align=left>商品一口价：<%=rsaucl("aucbuyprice")%> 元</td><%end if%><td align=left>可购数量：<%=rsaucl("aucnum")%> 件</td></tr>
<tr><td align=right colspan="3"><nobr><font id=f4>　剩余时间：</font>
 <%
date2 = rsaucl("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 "<font color=#ff0000><b>竞价结束！</b></font>"
end if

%></nobr>
</td></tr>
</table>
</td>
</tr>
</table>
<%
rsaucl.movenext
loop
end if
%>
</td></tr></tbody></table>