制作我们自己的Ebay(拍卖系统)(6)
Resolving Bids - Page 6
Chris Payne
September 11, 2000
Function ResolveBids(ItemID)
'Set variables and create objects
dim monIncrement, monHighPrice, intAvailable, intTotItems, flgQuit
dim blnResolved
'Assume bids are resolved
blnResolved = True
strConnectionString = "DSN=MyAuction;UID=username;PWD=password;Database=MyAuctionDB"
set rst = Server.CreateObject("ADODB.Recordset")
'Get information from items table
strSQL = "SELECT Increment, Available FROM tblAuctio...[ 查看全文 ]
2016-01-29
标签:
