care_shop.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" -->
<%
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: care_shop.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:09:51
'Script Written by www.aspease.com 
'=========================================================
stats=easecareshopstats
header
activeonline
if request("ownerid")<>"" then
		set shopID=conn.execute("select shopID from shops where shopownerid="&sqlval(request("ownerid")))
	if shopID.eof then
	err_msg="<b><li>"&easecareshoperr1msg&"</b>"
	aspease_err			
	footer
		response.end
	else		
			sql="select * from shops where shopownerid="&sqlval(request("ownerid"))
			set rs=conn.execute(sql)
		if not rs.eof then
				sql1="select * from careshop where careshopid= "&sqlval(shopid("shopid"))& "and careownerid="&sqlval(userid)
				set rs1=conn.execute(sql1)
			if rs1.eof then
					sql1="insert into careshop (careshopid,careownerid) values("&sqlval(shopid("shopid"))&","&sqlval(userid)&")"
					conn.execute(sql1)
					response.Write("<script language=javascript>{alert( '" & easecareshopokmsg & "');location.href='mycare.asp?action=shop';}</script>")	
					footer
				response.End()
			else
				err_msg="<B><li>"&easecareshophadcaremsg&"</B>"
				
		aspease_err
				footer
				response.End()
			end if
	    else				
				err_msg="<B><LI>"&easeerrpage&"</B>"
				aspease_err
				footer
				response.End()
		  end if
	end if
	else 'owner=""
	err_msg="<B><LI>"&easeerrpage&"</b>"
 footer
end if
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: care_shop.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:09:51
'Script Written by www.aspease.com 
'=========================================================%>