myshop.asp

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

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!--#include file="inc/info.asp" -->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/myinc.asp" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: myShop.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:05:38
'Script Written by www.aspease.com 
'=========================================================
stats=easemyshopstats
header
activeonline
sqln="select * from shops where shopownerid="&userid&""
set rsn=server.createobject("adodb.recordset")
rsn.open sqln,conn,1,1
if rsn.eof and rsn.bof then
response.Write("<script language=javascript>{alert( '" & easemyshopnoshop & "');location.href='Shopreg.asp';}</script>")
response.end
end if
sql2="select * from shopshelf where shopshelf_owner="&sqlval(userid)
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,1,1
action=rst("action")
if action="all" or action="" then
sql ="select * from upshelf,auctions where up_aucid=auc_id and up_shelfowner="&sqlval(userid)&" order by up_id desc"
else
	if isnumeric(action) then
	sql ="select * from upshelf,auctions where up_aucid=auc_id and up_shelfid="&sqlval(action)
	else
	response.Write("<script language=javascript>{alert( '" & easeerrpage & "');location.href='myshop.asp?action=all';}</script>")
	response.End()	
	end if
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop
mynavtop easemyshopstats
myrighttop "100%","0","0","b1","margin-top:0px"
	allcatlist=""
	while not rs2.eof
		allcatlist=allcatlist & "<a href=myShop.asp?action="& FVal(rs2("shopshelf_id")) &">"& rs2("shopshelf_name") &"</a> "
		rs2.movenext
	wend
myrighttr "66,*,80|<a href=myShop.asp?action=all>"& easeallcats &"</a> :," & allcatlist & ",<a href=usershop.asp?shopid=" & rsn("shopid") &" target=_blank>" & easemyshopview & "</a>"
myrightfoot
mycontenttop "28%,*,32%,27%|" & easemyshopcontenttoplist
if rs.eof then 
	response.write "<tr align=""center"" class=tdbg2> <td colspan=""4"">" & easenorecord & ctdr
else
auction_page=easemyshoppage
%><!--#include file="inc/libt.inc"--><%
response.Write("<tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write(">")
response.Write("                <td><a href=""viewitem.asp?aucid=" & FVal(rs("auc_id")) & """ target=""_blank"">" & rs("auc_itemtitle") & "</a></td>")
response.Write("                <td>" & FVal(rs("auc_Bidtimes")) & "</td>")
response.Write("                <td>" & sqldate(rs("auc_CloseDate")) & "</td>")
response.Write("                <td>")
set rs3=conn.execute("select tj_aucid from tuijian where tj_aucid="&SQLVal(rs("auc_id")))
if rs3.eof then
response.Write("<a href=""tuijian.asp?aucid=" & FVal(rs("auc_id")) & """>" & easemyshoptj & "</a>")
Else
response.Write(easemyshoptj2)
End If 
response.Write(ctdr)
%><!--#include file="inc/libf.inc"--><%
end if
Mycontentfoot
MyFPage "myshop.asp",rst("action")
mynavfoot
mytablefoot
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: myShop.asp
'Version:2.0
'UpdateTime: 2004-10-4 13:05:38
'Script Written by www.aspease.com 
'=========================================================%>