mycare.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: mycare.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:32:38
'Script Written by www.aspease.com 
'=========================================================
if rst("submit")<>"" and rst("checkbox")<>"" then
	select case rst("stype")
	case "auc"
		sid=split(replace(rst("checkbox"),"'",""),",")
		blnchk=true
		for i=0 to ubound(sid)
			set chkt=conn.execute("select * from careauc where careitemid="&sid(i)&" and careownerid="& userid)
			if not chkt.eof then
				sqld="delete from careauc where careitemid ="&sid(i)&" and careownerid=" & userid
				conn.execute(sqld)
			else
				blnchk=false
				exit for
			end if
		next
		if not blnchk then
			response.Write("<script language=javascript>{alert( '"&easemycareerrmsg1&"');location.href='mycare.asp?action=auc';}</script>")
		else
			response.Write("<script language=javascript>{alert( '"&easemycareokmsg1&"');location.href='mycare.asp?action=auc';}</script>")
		end if		
	case "shop"
		sid=split(replace(rst("checkbox"),"'",""),",")
		blnchk=true
		for i=0 to ubound(sid)
			set chkt=conn.execute("select * from careshop where careshopid="&sid(i)&" and careownerid="& userid)
			if not chkt.eof then
				sqld="delete from careshop where careshopid ="&sid(i)&" and careownerid=" & userid
				conn.execute(sqld)
			else
				blnchk=false
				exit for
			end if
		next
		if not blnchk then
			response.Write("<script language=javascript>{alert( '"&easemycareerrmsg1&"');location.href='mycare.asp?action=shop';}</script>")
		else
			response.Write("<script language=javascript>{alert( '"&easemycareokmsg2&"');location.href='mycare.asp?action=shop';}</script>")
		end if		
	case else
		response.Write("<script language=javascript>{alert( '"&easemycareerrmsg3&"');location.href='mycare.asp?action=auc';}</script>")
	end select	
chkt.close
response.end
end if

action=rst("action")
if action="auc" then
	stats=easemycarestats1
	sql="select * from careauc left join users on careauc.careownerid=users.regID where regUsername='"&user&"'"
else
	stats=easemycarestats2
	sql="select * from careshop left join users on careshop.careownerid=users.regID where regUsername='"&user&"'"
end if

header
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop
if action="auc" then
	mynavtop easemycarestats1
else
	mynavtop easemycarestats2
end if
myrighttop "100%","0","0","b1","style=margin-top:3px"
myrighttr "50%,*|<a href=?action=auc>"&easemycarestats1&"</a>,<a href=?action=shop>"&easemycarestats2&"</a>"
myrightfoot
if action="auc" then
	mycontenttop "25%,25%,25%,*|"&easemycaretoplist1
else
	mycontenttop "33%,33%,*|"&easemycaretoplist2
end if
response.Write("<form name=""form1"" method=""post"" action=""""> ")
if rs.eof then
	if action="auc" then
		Response.Write("<tr bgcolor=""#FFFFFF"" class=tdbg1><td width=""100%"" colspan=4> "&easemycarenull1&"</td></tr>")
	else
		Response.Write("<tr bgcolor=""#FFFFFF"" class=tdbg1><td width=""100%"" colspan=3> "&easemycarenull2&"</td></tr>")
	end if
else	
auction_page=10
%><!--#include file="inc/libt.inc"-->
<%	if action="auc" then		
		sql1="select * from auctions where auc_id = "&sqlval(rs("careitemid"))
	else
		sql1="select * from shops where shopid = "&rs("careshopid")
	end if
	set rs1=conn.execute(sql1)				
	if action="auc" then
		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("careitemid")) & "  target=_blank>")
		if not rs1.eof then response.write rs1("auc_ItemTitle")
		response.Write("</a></td>")
        response.Write("  <td>")
		if not rs1.eof then response.write sqldate(rs1("auc_CloseDate"))
		response.Write("</td>")
        response.Write("  <td>" & rs("regusername") & "</td>")
        response.Write("  <td><input type=""checkbox"" name=""checkbox"" value=""" & fval(rs("careitemid")) & """></td>")
        response.Write("</tr>")
	else
		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=""usershop.asp?shopid=" & FVal(rs1("shopID")) & """ target=""_blank"">" & rs1("shopname") & "</a></td>")
        response.Write("    <td><a href=""usercredit.asp?userid=" & FVal(rs1("shopownerid")) & """ target=""_blank"">" & aspeaseusername(rs1("shopownerid")) & "</a></td>")
        response.Write("    <td ><input type=""checkbox"" name=""checkbox"" value=""" & FVal(rs("careshopid")) & """></td>")
        response.Write("</tr>")
	end if%>
<!--#include file="inc/libf.inc"-->
<%end if
if action="auc" then
	response.Write("     <tr align=center class=tdbg2> ")
	response.Write("          <td><input type=""hidden"" name =""stype"" value=""auc""><input type=""submit"" name=""submit"" value=""" & easemycarebtn & """")
	if rs.eof and rs.bof then
		response.Write(" disabled")
	end if
	response.Write("></td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr> ")
else
	response.Write("	<tr align=center class=tdbg2> ")
    response.Write("        <td><input type=""hidden"" name =""stype"" value=""shop""><input type=""submit"" name=""submit"" value=""" & easemycarebtn & """")
	if rs.eof and rs.bof then
		response.Write(" disabled")
	end if
	response.Write("></td><td>&nbsp;</td><td>&nbsp;</td></tr>")
end if
response.write "</form>"
mycontentfoot
MyFPage "mycare.asp",rst("action")
mynavfoot
mytablefoot
activeonline
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: mycare.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:32:38
'Script Written by www.aspease.com 
'=========================================================%>