shopgoods_manage.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" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopgoods_manage.asp
'Version:2.0
'UpdateTime: 2004-10-4 15:33:15
'Script Written by www.aspease.com 
'=========================================================
stats=easeshopgoodsstats
header
activeonline
sql="select shopownerid from shops where shopownerid="&userid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
err_msg="<b><li>" & easemyshopnotopen & "</b>"
aspease_err
footer
response.End()
end if
mytabletop
mynavtop easeshopgoodsstats
myrighttop "100%","0","0","b1","margin-top:0px"
myrighttr "50%,50%|<a href=""Shopgoods_manage.asp?action=add"">" & easegoodsup & "</a>,<a href=""Shopgoods_manage.asp?action=del"">" & easegoodsdown & "</a>"
myrightfoot
mycontenttop "33%,33%,*|"& easegoodscontenttop
if rst("submit")=easegoodsup then
aucid=FVal(rst("auc_id"))
shelfid=FVal(rst("shopshelf_id"))
	set rschk=conn.execute("select auc_upshelf from auctions where auc_id="&sqlval(aucid)&" and auc_ItemOwner="&sqlval(userid))
	if not rschk.eof then
		if rschk(0)="Y" then
			response.write easegoodshadupstr
		else				
			conn.execute("insert into upshelf(up_aucid,up_shelfid,up_shelfowner) values("&sqlval(aucid)&","&sqlval(shelfid)&","&sqlval(userid)&")")
			conn.execute("update auctions set auc_upshelf='Y' where auc_id="&sqlval(aucid)&"")
			response.Write(easegoodsokupstr)
		end if
	else 'not your's auction
		response.write easegoodsupnotyourserr
	end if
end if
if rst("submit")=easegoodsdown then
c1=rst("c1")
c1=replace(c1,"'","")
c1=replace(c1,";","")
c1=replace(c1,"--","")
c1=replace(c1,")","")
incept=split(c1,",")
for i=0 to ubound(incept)
	set rschk=conn.execute("select auc_upshelf from auctions where auc_id="&incept(i)&" and auc_ItemOwner="&sqlval(userid))
	if not rschk.eof then
		if rschk(0)="Y" then
			conn.execute("delete from upshelf where up_aucid in("&incept(i)&") and up_shelfowner="&sqlval(userid))
			conn.execute("update auctions set auc_upshelf='N' where auc_id in("&incept(i)&")")
		end if
	end if		
next
response.Write(easegoodsokdownstr)
end if
select case rst("action")
	case "add"
 		sql="select * from auctions where auc_ItemOwner="&sqlval(userid)&" and auc_ended='N' and auc_upshelf='N' order by auc_AvailDate desc"
	case "del"
		sql="select * from upshelf,auctions where up_aucid=auc_id and up_shelfowner="&FVal(userid)&" order by up_id"
	case else
		sql="select * from auctions where auc_ItemOwner="&sqlval(userid)&" and auc_ended='N' and auc_upshelf='N' order by auc_AvailDate desc"
end select
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
totalcs=rs.recordcount
if rs.eof then
response.write(" <tr><td align=""left"" colspan=""3"" class=tdbg2>")
if rst("action")="add" then
response.write(easegoodshadallupstr)
else
response.write(easegoodshadalldownstr)
end if
response.write("</td></tr>")
else
auction_page=10
%><!--#include file="inc/libt.inc"--><%
response.Write("<form name=""frmShop"" action=""Shopgoods_manage.asp?action=")
if rst("action")="add" then
response.Write("add")
else
response.Write("del")
end if
response.Write(""" method=""post"">")
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><input type=""hidden"" name=""auc_id"" value=""")
response.Write(FVal(rs("auc_id")))
response.Write("""> <a href=""viewitem.asp?aucid=")
response.Write(FVal(rs("auc_id")))
response.Write(""" target=""_blank"">")
response.Write(chkbadwords(rs("auc_itemtitle"),"goods"))
response.Write("</a></td>")
response.Write("<td>")
if rst("action")="add" then
    sql2="select * from shopshelf where shopshelf_owner="&sqlval(userid)
	set rs2=conn.execute(sql2)
	if not rs2.eof then
response.Write("<select name=""shopshelf_id"">")
while not rs2.eof
response.Write("<option value=""")
response.Write( FVal(rs2("shopshelf_id")) )
response.Write(""">")
response.Write( rs2("shopshelf_name") )
response.Write("</option>")
rs2.movenext
wend
response.Write("</select> </td>")
response.Write("			<td><input type=submit name=""submit""  value=""")
response.Write(easegoodsup)
response.Write(""">	")
else
response.write easegoodsnoshelfstr & "</td>	"
response.write "<td><input type=button name=""submit""  value=""" & easegoodsnoshelfbtn & """ onClick=""window.open('shopshelf_manage.asp?action=add')""></td>"
end if
response.write "</tr></form>"
rs2.close
else
	sql2="select * from shopshelf where shopshelf_id = "&sqlval(rs("up_shelfid"))	
	set rs2=conn.execute(sql2)
	response.write rs2("shopshelf_name")
	response.write "</td><td width=""183"" height=""18""><input name= ""c1"" type=""checkbox"" value=" & FVal(rs("auc_id")) &"></td>  </tr>"
end if
rs.movenext
i=i+1
if rst("action")="del" then
	if i = auction_page or rs.eof then
response.Write("<tr>")
response.Write("	<td height=""18"" colspan=""3"" class=tdbg2>")
response.Write("<input type=submit name=""submit"" onclick=""{if(confirm('" & easegoodsdownconfirmstr &"')){this.document.frmShop.submit();return true;}return false;}"" value=""" & easegoodsdown & """></td>")
response.Write("</tr>")
end if
end if
wend
end if
mycontentfoot	 
MyFpage "Shopgoods_manage.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: shopgoods_manage.asp
'Version:2.0
'UpdateTime: 2004-10-4 15:33:15
'Script Written by www.aspease.com 
'=========================================================%>