cat.asp

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

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: cat.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:29:31
'Script Written by www.aspease.com 
'=========================================================
catid=fval(rst("catid"))
Mycache.name="catstats"&catid
if mycache.valid then
	stats=mycache.value
else
	dim statsrs,catstats
	set statsrs=conn.execute("select catname from cat where catid="&catid)
	if statsrs.eof then
	catstats=easeerrmsgname
	err_msg=easeerrpage	
	header
	aspease_err
	footer	
	response.end
	else
	catstats=statsrs(0)
	statsrs.close
	set statsrs=nothing
	end if
	mycache.add catstats,dateadd("n",60,now)
	stats=catstats
end if
header
response.Write nav(catid)
myCache.name="shownews_list"&catid
if myCache.valid then
	response.write myCache.value
else 	
	dim shownews_list
	shownews_list=""
	sqlnew="select top 5 newsid,newstitle from news where newscatid="&catid&" order by newsid desc"
	set rsnews=conn.execute(sqlnew)
	if rsnews.eof and rsnews.bof then
		shownews_list=shownews_list&""
	else
		shownews_list=shownews_list& aspeasetable1bopen & tr2
		shownews_list=shownews_list& td("50","","c","","d") & easenewstitle & ctd("d")
		shownews_list=shownews_list& td("382","","","","d")
		shownews_list=shownews_list&"<marquee scrolldelay=150 width=700 scrollamount=4 onmouseout=""if (document.all!=null){this.start()}"" onmouseover=""if (document.all!=null){this.stop()}"">"
		while not rsnews.eof
			shownews_list=shownews_list&"<a href=news.asp?newsid="&rsnews(0)&" target=_blank>"&rsnews(1)&"</a>&nbsp;"
		rsnews.movenext
		wend
		shownews_list=shownews_list& "</marquee>"
		shownews_list=shownews_list& ctdr & aspeasetableclose	
		end if
	set rsnews=nothing
	myCache.add shownews_list,dateadd("n",10,now)
	response.write shownews_list
end if
response.write auctopnav("cat.asp",catid,"","")
strsql = "select * FROM Auctions,cat WHERE auc_catid=catid and (auc_catid ="&sqlval(catid)&" or cat.parentstr like '%"&cstr(catid)&"%')"
set rs=server.createobject("adodb.recordset")
pvaction=rst("action")
select case pvaction
case "closing"
strsql = strsql&" and datediff('d',Now(),auc_CloseDate)<=1 and auc_Ended='N' order by auc_CloseDate"
case "new"
strsql = strsql&" and auc_Ended='N' order by auc_AvailDate desc"
case "hot"
strsql = strsql&" and auc_Ended='N' order by auc_bidtimes desc"
case "all"
strsql = strsql&" and auc_Ended='N' order by auc_CloseDate"
case "end"
strsql = strsql&" and auc_Ended='Y' order by auc_id"
case "auc"
strsql = strsql&" and auc_Ended='N' and auc_Isbuygoods='0' order by auc_CloseDate"
case "buy"
strsql = strsql&" and auc_Ended='N' and auc_Isbuygoods='1' order by auc_CloseDate"
case else
strsql = strsql&" and auc_Ended='N' order by auc_CloseDate"
end select
rs.open strsql,conn,1,1
totalcs=rs.recordcount
response.write showallitems(fval(websetting(5)))
response.write fpage("cat.asp",pvaction,catid,"","")
myCache.name="AspeaseCatListNav" & catid
if myCache.valid then
	response.write myCache.value
else
dim aspeasecatlistnav
set rscatlistnav=server.createobject("adodb.recordset")
sql = "select catid,catname,depth from cat order by rootid,orders"
rscatlistnav.open sql,conn,1,1	
aspeasecatlistnav=aspeasetable1yopen&"<form name=""daohang""><tr align=center class=tdbg2><td><select name=curl size=1 onChange=""location=document.daohang.curl.options[document.daohang.curl.selectedIndex].value"">"
if rscatlistnav.eof and rscatlistnav.bof then
aspeasecatlistnav=aspeasecatlistnav&"<option selected value="""">"& easecatidnull &"</option>"
 Else 
rscatlistnav.movefirst
do while not rscatlistnav.eof
aspeasecatlistnav=aspeasecatlistnav&"<option value="""
aspeasecatlistnav=aspeasecatlistnav&"cat.asp?catid="&fval(rscatlistnav(0))&""
aspeasecatlistnav=aspeasecatlistnav&""""
 If rscatlistnav(0)=catid Then 
aspeasecatlistnav=aspeasecatlistnav&" selected "
 End If 
aspeasecatlistnav=aspeasecatlistnav&">"
 select case rscatlistnav(2)
case 0
str = "╋"
case 1
str ="&nbsp;&nbsp;├"
end select
if rscatlistnav(2)>1 then
for i=2 to rscatlistnav(2)
	str ="&nbsp;&nbsp;"
next
str =str&"&nbsp;&nbsp;├"
end if
aspeasecatlistnav=aspeasecatlistnav&str
aspeasecatlistnav=aspeasecatlistnav&rscatlistnav("catname")
aspeasecatlistnav=aspeasecatlistnav&"</option>"
	rscatlistnav.movenext
	loop
end if
	rscatlistnav.close
aspeasecatlistnav=aspeasecatlistnav&"</select> " & ctdr &"</form>"& aspeasetableclose
myCache.add aspeasecatlistnav,dateadd("n",60,now)
response.write aspeasecatlistnav
end if
activeonline
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: cat.asp
'Version:2.0
'UpdateTime: 2004-10-5 13:29:31
'Script Written by www.aspease.com 
'=========================================================%>