制作我们自己的Ebay拍卖系统4 -pc6资讯

您的位置：首页 → 网页设计 → ASP实例 → 制作我们自己的Ebay拍卖系统4

制作我们自己的Ebay拍卖系统4 时间：2004/11/7 2:52:00来源：本站整理作者：蓝点我要评论(0): First, we'll discuss the easy part. You'll have to create a few forms - one for the users to register (that is, get themselves into our AuctionUsers table), and one for sellers to post their info. These forms should be easy to create if you know how to handle forms (check out this WDVL article for more information). Basically, you should collect all the information from the forms and update the appropriate tables:

'Set variables and create object

strConnectionString = "DSN=MyAuction;UID=username;PWD=password;Database=MyAuctionDB"

set rst = Server.CreateObject("ADODB.Recordset")

'Insert info into auction table

strSQL = "INSERT INTO tblAuctions (StartDate, EndDate, SellerID)

VALUES ('" & Request.Form("StartDate") & "', '" & Request.Form("EndDate")

& "', " & SellerID & ")"

rst.open strSQL, strConnectionString

'Get the ID of the auction we just entered

strSQL = "SELECT max(AID) as AID FROM tblAuctions"

rst.open strSQL, strConnectionString

intAID = rst(0)

rst.close

'Insert item info

strSQL = "INSERT INTO tblAuctionItems (AID, Name, Description, " & _

　　　　　　"MinPrice, Increment, Available)" & _

　　　　　　"VALUES (" & intAID & ", '" & Request.Form("ItemName") & _

　　　　　　"', '" & Request.Form("ItemDescription") & "', '" & _

　　　　　　Request.Form("MinPrice") & "', '" & Request.Form("Increment")

& _

　　　　　　"', " & Request.Form("Available") & ")"

rst.open strSQL, strConnectionString

'Clean up

set rst = nothing

The bids are a bit harder to manage. Let's look at these in more detail.

文章评论

查看所有0条评论>>

热门文章 没有查询到任何记录。