del_auc.asp

实用的拍卖源码。适合个人建站学习使用。仅供学习参考

<!-- #include file="inc/char.asp" -->
<!-- #include file="chksession.asp" -->
<%
call chk(rst("aid"),"id")
%>
<!-- #include file="conn.asp" -->
<%
response.buffer=true

sqlget = "select regid,regvalidated,regusername,regadmin from users where regValidated='Y' and regusername='" &session("user")&"'"
set rsget =conn.execute(sqlget)

'--------判断是否注册了详细资料或者是否通过资料审核---------
if rsget.eof then
response.write "<script language=javascript>alert('你还没有填写详细信息或者你注册的资料还没有通过审核！');this.location.href='vqqqinfo_change.asp';</script>"
response.end
'--------判断帐号是否被锁定---------
elseif rsget("regadmin")="Y" then
response.write "<script language=javascript>alert('你的帐号已经被管理员锁定，请联系管理员！');this.location.href='index.asp';</script>"
response.end
'---------------------------------------------------------
else
set rs=server.createobject("adodb.recordset")
sql="select * from auctions where aucid="&rst("aid")
rs.open sql,conn,1,3
if rs.eof then
response.write "<script language=javascript>alert('没有找到此商品信息！');this.location.href='index.asp';</script>"
response.end
elseif rs("aucitemowner")<>rsget("regid") then
response.write "<script language=javascript>alert('你不是此商品的发布人无权删除商品信息！');this.location.href='index.asp';</script>"
response.end
elseif rs("auccurrentbidder")<>0 then
response.write "<script language=javascript>alert('此商品已经有人出价，不允许删除此商品信息！');this.location.href='index.asp';</script>"
response.end
else
rs.delete
rs.update
rs.close
set rs=nothing
end if
rsget.close
set rsget=nothing
end if
%>