care_auc.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_auc.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:13:24
'Script Written by www.aspease.com 
'=========================================================
stats=easecareaucstats
header
call activeonline()
if request("id")<>"" then
		sql="select * from auctions where auc_id="&sqlVal(request("id"))
		set rs=conn.execute(sql)
	if not rs.eof then
			set chkrs=conn.execute("select * from careauc where careitemid="&sqlVal(request("id"))&" and careownerid="&sqlval(userid)&"")
		if chkrs.eof then				
				sql1="insert into careauc (careitemid,careownerid) values("&sqlval(request("id"))&","&sqlval(userid)&")"
				conn.execute(sql1)
				response.Write("<script language=javascript>{alert( '" & easecareaucokmsg & "');location.href='mycare.asp?action=auc';}</script>")
		else
		err_msg="<b><li>"&easecareauchadcaremsg&"</B>"
		aspease_err
	footer
	response.end				
		 end if
	else
	err_msg="<b><li>"&easeerrpage&"</B>"
	aspease_err
			footer
			response.end
	end if
else
err_msg="<b><li>"&easeerrpage&"</B>"
aspease_err
footer
response.end
end if
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: care_auc.asp
'Version:2.0
'UpdateTime: 2004-10-3 23:13:24
'Script Written by www.aspease.com 
'=========================================================%>