saveaucinfo.asp

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

<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<%
sqlget = "select regvalidated,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
end if
rsget.close
set rsget=nothing


dim stitle,snum,scatid,scatsonid,sdays,sImageURL
dim sDesc,sStartBid,sIncrement,sReserve,sykj,limit
dim soldnew,sbaoxiu,sfapiao,syunfei,szhifu,ssonghuo
dim closedate,startdate,owner
stitle=trim(rst("stitle"))
snum=trim(rst("snum"))
stotalnum=trim(rst("stotalnum"))
scatid=rst("scatid")
scatsonid=rst("scatsonid")
sdays=rst("sdays")
if rst("sImageURL")<>"" then
 sImageURL=rst("sImageURL")
else
 sImageURL="NULL"
end if
sdesc=aspeasehtml(rst("sDesc"))
sstartbid=FVal(rst("sstartbid"))
sIncrement=FVal(rst("sIncrement"))
sReserve=trim(rst("sReserve"))
sykj=trim(rst("sykj"))
limit=rst("limit")
soldnew=rst("soldnew")
sbaoxiu=rst("sbaoxiu")
sfapiao=rst("sfapiao")
syunfei=rst("syunfei")
szhifu=rst("szhifu")
ssonghuo=rst("ssonghuo")
closedate=rst("closedate")
startdate=rst("startdate")
owner=rst("owner")    		
    sql="insert into Auctions (aucEnded,aucEmailsSent,aucItemOwner,aucItemTitle," & _
	 "aucImageURL,aucAvailDate,aucCloseDate,aucStartingBid,aucReservePrice," & _
	 "aucMinimumIncrement,aucCurrentBid,aucDescription,aucbuyprice,limit,catid,catsonid," & _
	 "oldnew,baoxiu,fapiao,yunfei,zhifu,songhuo,auctotalnum,aucnum,bidtimes,ykjbidtimes)" & _
	"values('N','0','"&owner&"','"&sTitle&"','"&sImageURL&"','"&startdate&"'," & _
	 "'"&closedate&"','"&sstartbid&"','"&sreserve&"','"&sIncrement&"','"&sstartbid&"'," & _
	 "'"&sdesc&"','"&sykj&"','"&limit&"','"&scatid&"','"&scatsonid&"','"&soldnew&"','"&sbaoxiu&"'," & _
	 "'"&sfapiao&"','"&syunfei&"','"&szhifu&"','"&ssonghuo&"','"&stotalnum&"','"&snum&"','0','0')"
set rs=conn.execute(sql)

response.write "<script language=javascript>alert('你已经成功发布了拍卖信息');this.location.href='cat.asp?action=new';</script>"
session("filep")=""
%>
<!--#include file="bottom.asp" -->