📄 finalizebid.asp

📁 电子投标系统
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="NetObjects ScriptBuilder 2.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>FinalizedBid</TITLE>
</HEAD>
<BODY BACKGROUND="FunkshowBackgr.gif" LINK="#99CCCC" VLINK="#CCCC99" TEXT="#FFFFCC" TOPMARGIN=2 LEFTMARGIN=2 MARGINWIDTH=2 MARGINHEIGHT=2>
<%
	server.execute "ValidateUser.asp"
	dim finalize_auction
	finalize_auction=Request.QueryString("finalbuy")
Dim dbconnFinal,dbRecFinal,SqlString,InsertString
set dbconnFinal=Server.CreateObject("ADODB.Connection")
set dbRecFinal=Server.CreateObject("ADODB.Recordset")
SqlString="Select a.member_buyer_login,a.auction_id,a.seller_login,quantity,auctionbid from waiting_auction_decision2 a,bidding b where a.auction_id="&finalize_auction&"and b.auction_id=a.auction_id"
'dbconnFinal.Trans()
dbconnFinal.mode=adModeReadWrite
dbconnFinal.open "BidBase","scott","tiger"
dbRecFinal.open SqlString,dbconnFinal
if dbRecFinal("seller_login")=Session("LoginName") then
	Dim dbRecSeller,dbRecBuyer
	Dim mail,EmailStringSeller,EmailStringBuyer
	set dbRecBuyer=Server.CreateObject("ADODB.Recordset")
	set dbRecSeller=Server.CreateObject("ADODB.Recordset")
	EmailStringSeller="select member_Last, member_email from member where member_login='"&dbRecFinal("Seller_Login")&"'"
	EmailStringBuyer="select member_Last, member_email from member where member_login='"&dbRecFinal("Member_buyer_login")&"'"
	dbRecSeller.open EmailStringSeller,dbconnFinal
	dbRecBuyer.open EmailStringBuyer,dbconnFinal
	
	set mail = Server.CreateObject("CDONTS.Newmail")
	mail.From = dbRecSeller("member_email")
	mail.To= dbRecBuyer("member_email")
	mail.Subject = "BidBase Auction Approved!"
	mail.Body= "I have finalized this auction through BidBase, please contact me. This mail is generated by BidBase"
	mail.Send
		
	InsertString="insert into finalizedbids values('"&dbRecFinal("member_buyer_login")&"',"&dbRecFinal("auction_id")&","&dbRecFinal("quantity")&","&dbRecFinal("auctionbid")&")"
	dbconnFinal.execute InsertString,,adCmdText
	Response.Write "The bid has been finalized, the buyer will contact you through e-mail soon"
	
	dbRecSeller.close
	dbRecBuyer.close
	dbRecFinal.close
	dbConnFinal.close
else
	Response.Write "you are not authorized for this auction"
	dbRecFinal.close
	dbconnFinal.close
	Response.end
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -