hotshop.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>推荐店铺</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="searchfreeshop.asp"  class="blacklink">免费店铺</a> 
                / <a href="searchshop.asp" class="blacklink">收费店铺</a> 
                / <a href="vqqqmoli.asp" class="blacklink">店铺道具</a> 
		</TD></TR>
		</TBODY></TABLE><BR>
            <TABLE align=center border=0 cellPadding=1 cellSpacing=1 width=500 class=tablebg>
              <TBODY>
		<tr class=titletd><td align=center width=200>店铺名称</td><td align=center>店主</td><td align=center width=60>现有商品</td><td align=center width=60>今日推荐</td><td align=center width=60>网络执照</td></tr>
		<%sql = "SELECT * FROM shops order by shopmoli desc,shopmoliupdate desc"    
		    set rshauc=server.createobject("adodb.recordset")
			rshauc.open sql,conn,1,1
			if rshauc.eof then 
			response.write "还没有用户申请商店！"
			else
			tj=6
			if rshauc.recordcount<tj then tj=rshauc.recordcount
			for i=1 to tj
			content=rshauc("shopname")
			if len(content)>12 then 
			   content=left(content,10)&"..."
			end if		
		%>

<tr class=td>
<td align=left><a href="usershop.asp?sid=<%=rshauc("shopID")%>"><%=content%> (<%=rshauc("shopclick")%>)</a></td>
<% set rsuser=conn.execute("select regusername,degrade from users where regid="&rshauc("shopownerid")) %>
<td align=center><a href="searchuser.asp?uid=<%=rshauc("shopownerID")%>"><%=rsuser("regusername")%></a></td>
<% set rsa=conn.execute("select count(aucid) as c from auctions where aucitemowner="&rshauc("shopownerid")) %>
<td align=center><%=rsa("c")%> 件</td>
<td align=center width=60>
<% if rshauc("shopmoli")=shopml*5 then %> <img src="images/5star.gif"> 
<% elseif rshauc("shopmoli")>=shopml*4 then %> <img src="images/4star.gif">
<% elseif rshauc("shopmoli")=shopml*3 then %> <img src="images/3star.gif">
<% elseif rshauc("shopmoli")=shopml*2 then %> <img src="images/2star.gif">
<% elseif rshauc("shopmoli")=shopml*1 then %> <img src="images/1star.gif">
<% elseif rshauc("shopclick")>100 then %> <img src="images/hotauc.gif">
<% else %> <img src="images/0star.gif">
<% end if%>
</td>
<td align=center width=60>
<% if rsuser("degrade")="身份证" then%>
<img src="images/yingyezhizhao.gif" border="0" alt="已通过真实身份认证">
<% else %>
未申请
<% end if %>
</td>
</tr>
			<%
			rshauc.movenext
			next
			end if
			rshauc.close
			set rshauc = nothing
			%>
              </TBODY></TABLE><br>
              </TD></TR></TBODY></TABLE>