shop.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shop.asp
'Version:2.0
'UpdateTime: 2004-10-6 18:30:13
'Script Written by www.aspease.com 
'=========================================================
stats=easeshopstats
header
call activeonline()
sql="select * from shops,cat where shopcat=catid order by shopopendate desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn
response.Write(aspeasetable1yopen & "  <tr valign=""middle""> ")
response.Write("    <th width=""759"" colspan=""")
response.Write(easeshowshopnumrow)
response.Write(""" height=""25"">"&easeshopnewshops&"</th>")
response.Write("        </tr>")
if rs.eof and rs.bof then
response.Write("  <tr valign=""middle""> ")
response.Write("    <td colspan=""")
response.Write(easeshowshopnumrow)
response.Write(""" class=tdbg2>"&easeshopnoshops&"</td>"&ctr)
else
response.Write(tr2)
i=0
rs.movefirst
do while not rs.eof
response.Write("   <td valign=""top"" width=")
response.Write(round(760/easeshowshopnumrow))
response.Write("><a href=usershop.asp?shopid=")
response.Write(FVal(rs("shopid")))
response.Write(" target=""_blank"">")
response.Write(rs("shopname"))
response.Write("</a></td>")
rs.movenext
i=i+1
	if rs.eof and i mod easeshowshopnumrow <> 0 then
		for m=1 to easeshowshopnumrow-(i mod easeshowshopnumrow)
			response.write("<td width="&round(760/easeshowshopnumrow)&">&nbsp;</td>")
		next
		response.write(ctr)
		exit do
	end if
	if i mod easeshowshopnumrow=0 then
		if not rs.eof then
			response.Write ctr&tr2
		end if
	end if
loop
end if
response.Write(aspeasetableclose)
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shop.asp
'Version:2.0
'UpdateTime: 2004-10-6 18:30:13
'Script Written by www.aspease.com 
'=========================================================%>