hotauc.asp

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

<TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
        <TR>
          <TD bgcolor=<%=bgcolor%>>
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=2></TD></TR>
              <TR>
                <TD class=yellow_bg width=140>&nbsp;<font class=fblack><b>热门vqqq拍卖物品</b></font></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=22 src="images/conner.gif" width=20></TD>
                <TD align=middle vAlign=bottom class=huise_bg>
                <a href="searchprice.asp?pid=1"  class="blacklink">1元热推</a> 
                / <a href="searchprice.asp?pid=10" class="blacklink">10元热推</a> 
                / <a href="searchprice.asp?pid=100" class="blacklink">100元热推</a> 
                / <a href="searchprice.asp?pid=1000" class="blacklink">1000元热推</a></TD></TR>
		</TBODY></TABLE><BR>
            <TABLE align=right border=0 cellPadding=2 cellSpacing=0 width=500>
              <TBODY>
              <TR>
		<%sql = "SELECT * FROM auctions where aucended<>'Y' order by aucmoli desc,aucmoliupdate desc"    
		    set rshauc=server.createobject("adodb.recordset")
			rshauc.open sql,conn,1,1
			if rshauc.eof then 
			response.write "还没有商品！"
			else
			dim tj
			tj=1
			do while not rshauc.eof
		
		%>
                <TD width="160" align="center" valign="top">
<div id="Layer1" style="position:relative; left:1px; top:1px; z-index:2; width: 160; height: 120;"> 
 <table cellpadding=0 cellspacing=0 width=100% align=center background="images/hot_bg.gif" width="160" height="120"><tr><td width=1>&nbsp;</td><td align=center><%if rshauc("aucimageurl")="NULL" then%>无图片<%else%><img src="<%=rshauc("aucimageurl")%>" border="0" width=72 height=72><%end if%></td><td align=left width=75>星级：
<% if rshauc("aucmoli")=aucml*5 then %> <img src="images/5star.gif"> 
<% elseif rshauc("aucmoli")>=aucml*4 then %> <img src="images/4star.gif">
<% elseif rshauc("aucmoli")=aucml*3 then %> <img src="images/3star.gif">
<% elseif rshauc("aucmoli")=aucml*2 then %> <img src="images/2star.gif">
<% elseif rshauc("aucmoli")=aucml*1 then %> <img src="images/1star.gif">
<% elseif rshauc("aucclick")>10 then %> <img src="images/hotauc.gif">
<% else %> <img src="images/0star.gif">
<% end if%>

起价：<%=rshauc("aucstartingbid")%>元<br>现价：<%=rshauc("auccurrentbid")%>元<br>还剩：<%
date2 = rshauc("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 sDay>0 then
response.write sDay & "天"
elseif sHour>=0 then
response.write sHour & "小时"
elseif sMinute>=0 then
response.write sMinute & "分钟"
elseif sDate3>=0 then
response.write sDate3 & "秒"
end if
%>

</td></tr></table>
</div> 
<%
content=rshauc("aucitemtitle")
if len(content)>20 then 
   content=left(content,18)&"..."
end if
%>

			<table cellpadding=0 cellspacing=0 width=100% align=center><tr><td width=3>&nbsp;</td><td align=left width=140><a href="aucinfo.asp?aucid=<%=rshauc("aucID")%>"><%=content%></a><br>&nbsp;&nbsp;</td><td width=8>&nbsp;</td></tr></table>
                </TD>
			<%
			rshauc.movenext
			if rshauc.eof then exit do
			tj=tj+1
			if tj=4 then response.write "</tr><tr>"
			if tj>6 then exit do
			loop
			end if
			rshauc.close
			set rshauc = nothing
			%>
                </TR>
              </TBODY></TABLE>
              </TD></TR></TBODY></TABLE>