alllist.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: alllist.asp
'Version:2.0
'UpdateTime: 2004-10-3 22:36:22
'Script Written by www.aspease.com 
'=========================================================
stats=easeallliststats
header
aspeasepage=nav(catid)
myCache.name="shownews_list"
if myCache.valid then
	aspeasepage=aspeasepage & myCache.value
else 	
	dim shownews_list
	shownews_list=""
	sqlnew="select top 5 newsid,newstitle from news where newscatid=0 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& aspeasetable1yopen & 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>" & ctdr & aspeasetableclose 		
		end if
	set rsnews=nothing
	myCache.add shownews_list,dateadd("n",10,now)
	aspeasepage=aspeasepage & shownews_list
end if
mycache.makeempty
aspeasepage=aspeasepage & auctopnav("alllist.asp","","","")
select case rst("action")
case "closing"
strsql = "select * FROM Auctions where datediff('d',now(),auc_CloseDate)<=1 and auc_Ended='N' order by auc_CloseDate"
case "new"
strsql = "select * FROM Auctions where auc_Ended='N' order by auc_AvailDate desc"
case "hot"
strsql = "select * FROM Auctions where auc_Ended='N' and auc_bidtimes>1 order by auc_bidtimes desc"
case "all"
strsql = "select * FROM auctions where auc_Ended='N' order by auc_CloseDate"
case "end"
strsql = "select * FROM auctions where auc_Ended='Y' order by auc_id"
case "auc"
strsql = "select * FROM auctions where auc_Ended='N' and auc_Isbuygoods='0' order by auc_CloseDate"
case "buy"
strsql = "select * FROM auctions where auc_Ended='N' and auc_Isbuygoods='1' order by auc_CloseDate"
case else
strsql = "select * FROM auctions where auc_Ended='N' order by auc_CloseDate"
end select
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,1
totalcs=rs.recordcount
aspeasepage=aspeasepage & showallitems(fval(websetting(6)))
aspeasepage=aspeasepage & fpage("alllist.asp",rst("action"),"","","")
aspeasepage=aspeasepage & aspeasetable1yopen 
aspeasepage=aspeasepage & tr2 
aspeasepage=aspeasepage & td("695","","","m","d") & ctd("d")
aspeasepage=aspeasepage & TD("65","","","m","d") & "&nbsp;<a href=""#top"">"
aspeasepage=aspeasepage & easetoptag
aspeasepage=aspeasepage & "</a>" & ctd("d")
aspeasepage=aspeasepage & ctr & aspeasetableclose
response.write aspeasepage
activeonline
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: alllist.asp
'Version:2.0
'UpdateTime: 2004-10-3 22:36:22
'Script Written by www.aspease.com 
'=========================================================%>