browse.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: browse.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:19:31
'Script Written by www.aspease.com 
'=========================================================
stats=easebrowsestats
header
call activeonline()
navigation
aspeasepage=aspeasetable01open
sql="select * from cat where depth=0 order by rootid,orders"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
dim j,CatCount
if not (rs.eof and rs.bof) then
	CatCount=rs.recordcount
else
	Catcount=0
end if
if rs.eof then 
	aspeasepage=aspeasepage & easecatnull
end if
aspeasepage=aspeasepage & trw 
aspeasepage=aspeasepage & tdrc("",bigclassnum,"d","<a href=""alllist.asp""><b>" & easeallliststats & "</b></a>")
aspeasepage=aspeasepage & ctr
aspeasepage=aspeasepage & trw 
if not rs.eof then
	for i = 1 to showbigclassnum
		aspeasepage=aspeasepage & td(round(760/bigclassnum),"","","t","d") & "  <a href=""cat.asp?catid=" & fval(rs("catID")) & """><b>" & rs("catname") & "</b></a>"
		If rs("child")>0 Then
			aspeasepage=aspeasepage & "<br>"
			sqls="select * from cat where ParentStr like '%"&rs("catid")&"%' and depth<2"
			set rs1=server.createobject("adodb.recordset")
			rs1.open sqls,conn,1,1
			if not rs1.eof then		
				for n=1 to showchildclassnum
					aspeasepage=aspeasepage & "<a href=""cat.asp?catid=" & fval(rs1("catID")) & """>" & rs1("catname") & "</a>&nbsp;&nbsp;"
					if n mod childclasnum = 0 then aspeasepage=aspeasepage & "<br>"			
					rs1.movenext
					if rs1.eof then exit for			
				next
			end if
		End If	
		aspeasepage=aspeasepage & ctd("d")
		if i=showbigclassnum and i mod bigclassnum >0 then
			for j=1 to (bigclassnum-(i mod bigclassnum))
				aspeasepage=aspeasepage & td(round(760/bigclassnum),"","","t","d") & ctd("") 
			next
			exit for
		end if
	rs.movenext			
		if rs.eof then
			if i mod bigclassnum >0 then
				for j=1 to (bigclassnum-(i mod bigclassnum))
					aspeasepage=aspeasepage & td(round(760/bigclassnum),"","","t","d") & ctd("") 
				next
			end if	
			exit for		
		end if
		if i mod bigclassnum = 0 and i<>showbigclassnum then aspeasepage=aspeasepage & ctr & trw 
	next
end if
aspeasepage=aspeasepage & ctr & aspeasetableclose
response.write(aspeasepage)
rs.close
set rs=nothing
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: browse.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:19:31
'Script Written by www.aspease.com 
'=========================================================%>