shopshelf_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" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopshelf_manage.asp
'Version:2.0
'UpdateTime: 2004-10-5 22:43:24
'Script Written by www.aspease.com 
'=========================================================
sql="select * from shops left join shopshelf on shopshelf.shopshelf_owner=shops.shopownerid where shopownerid="&sqlval(userid)
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
totalcs=rs.recordcount
if rs.eof then
	stats=easeerrmsgname
	header
	err_msg="<b><li>"&easemyshopnotopen&"</b>"
	aspease_err
	footer
	response.End()
end if
select case request("cmd")
case easedodel
	set rschk=conn.execute("select * from upshelf where up_shelfid="&sqlval(request("r1"))&" and up_shelfowner="&sqlval(userid))
	if rschk.eof then
		conn.execute("delete from shopshelf where shopshelf_id="&sqlval(request("r1")))
		stats=easesucmsgname
		header
		suc_msg="<b><li>"&easeshopshelfokstr2&"</a></b>"
		aspease_suc
		footer
		response.End()
	else
		stats=easeerrmsgname
		header
		err_msg="<b><li>"&easeshopshelferrstr1&"</a></b>"
		aspease_err
		footer
		response.End()
	end if
case easeshopshelfrenamestr
	if trim(request("re"))="" then
		stats=easeerrmsgname
		header
		err_msg="<b><li>"&easeshopshelfnamestr& easenotnullname &"</a></b>"
		aspease_err
		footer
		response.End()
	else
		stats=easesucmsgname
		header
		conn.execute("update shopshelf set shopshelf_name="&sqlstr(request("re"))&" where shopshelf_owner="&sqlval(userid)&" and shopshelf_id="&sqlval(request("select"))&"")
		suc_msg="<b><li>"&easeshopshelfokstr3&"</a></b>"
		aspease_suc
		footer
		response.End()
	end if
case easeshopshelfaddstr
	if trim(request("shopshelf_name"))="" then
		stats=easeerrmsgname
		header
		err_msg="<b><li>"&easeshopshelfnamestr& easenotnullname &"</b>"
		aspease_err
		footer
		response.End()
	else
		stats=easesucmsgname
		header
		conn.execute("insert into shopshelf(shopshelf_name,shopshelf_owner) values("&sqlstr(request("shopshelf_name"))&","&sqlval(userid)&")")
		suc_msg="<b><li>"&easeshopshelfokstr1&"</a></b>"
		aspease_suc
		footer
		response.End()
	end if
case else
	call main()
end select
sub main()
stats=easeshopshelfstats
call header()
mytabletop
mynavtop easeshopshelfstats
myrighttop "100%","0","0","b1","margin-top:0px"
myrighttr "33%,33%,*|<a href=""ShopShelf_manage.asp?action=add"">"&easeshopshelfaddshelf&"</a>,<a href=""ShopShelf_manage.asp?action=del"">"&easeshopshelfdelshelf&"</a>,<a href=""ShopShelf_manage.asp?action=rename"">"&easeshopshelfrenameshelf&"</a>"
myrightfoot
mycontenttop "100%|"&easeshopshelfnamestr
response.Write("<form name=""frmShop"" action=""ShopShelf_manage.asp"" method=""post"">")
If request("action")="add" Then
auction_page=10%><!--#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 height=""18""> ")
response.Write( rs("shopshelf_name") )
response.Write("  </td>")
response.Write("          </tr>")%><!--#include file="inc/libf.inc"--><%
response.Write("<tr align=center class=tdbg2>")
response.Write("            <td height=""18""><input name= ""shopshelf_name"" type=""text"" size=""15""></td>")
response.Write("          </tr> ")
response.Write("          <tr align=center class=tdbg2>")
response.Write("            <td height=""18""> <input type=submit name=cmd value="""&easeshopshelfaddstr&"""></td>")
response.Write("          </tr> ")
MyFPage "shopshelf_manage.asp",rst("action")
End If
If request("action")="del" Then
auction_page=10 %><!--#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 height=""18""><input name= ""r1"" type=""radio"" value=""")
response.Write( FVal(rs("shopshelf_id")) )
response.Write("""> ")
response.Write( rs("shopshelf_name") )
response.Write("              </td>")
response.Write("          </tr>")%><!--#include file="inc/libf.inc"--><%
response.Write(" <tr align=center class=tdbg2>")
response.Write("            <td height=""18""> <input type=submit name=cmd onclick=""{if(confirm('"&easeshopshelfconfirm1&"')){this.document.frmShop.submit();return true;}return false;}"" value="""&easedodel&"""></td>")
response.Write("          </tr> ")
MyFPage "shopshelf_manage.asp",rst("action")
End If
If request("action")="rename" Then
response.Write("    <tr align=center class=tdbg2> ")
response.Write("<td height=""18""><select name=""select"">")
 while not rs.eof 
response.Write("<option value=""")
response.Write( FVal(rs("shopshelf_id")) )
response.Write(""">")
response.Write( rs("shopshelf_name") )
response.Write("</option>")
 rs.movenext
response.Write("")
 wend 
response.Write("</select><input type=""text"" name=""re"">")
response.Write("         <input type=submit name=cmd onclick=""{if(confirm('"&easeshopshelfconfirm2&"')){this.document.frmShop.submit();return true;}return false;}"" value="""&easeshopshelfrenamestr&"""></td>")
response.Write("          </tr> ")
End If
response.Write("</form>    ")
mycontentfoot
mynavfoot
mytablefoot
call activeonline()
footer
end sub
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: shopshelf_manage.asp
'Version:2.0
'UpdateTime: 2004-10-5 22:43:24
'Script Written by www.aspease.com 
'=========================================================%>