code 13.1.7.asp

来自「开发web_xml」· ASP 代码 · 共 19 行

<%@ LANGUAGE=VBScript%>
	<%
	title=Request.QueryString(“title”)
	price= Request.QueryString(“price”)
	bidder= Request.QueryString(“bidder”)
	
	set BidRS=Server.CreateObject(“ADODB.Recordset”)
	Connect=”data sourse=Auction;user id =sa ;password=’’;”
	BidRS.CursorType=2
	BidRS.Open ”Bids”, Connect
	
	BidRS.AddNew
	BidRS(“item”)=title
	BidRS(“price”)=price
	BidRS(“bidder”)=bidder
	BidRS.Update
	BidRS.Close
%>