Dim objDC, objRS

' Create and establish data connection

Set objDC = Server.CreateObject("ADODB.Connection") objDC.ConnectionTimeout = 15 objDC.CommandTimeout = 30

'Use this line to use Access

'objDC.Open "DBQ=" & Server.MapPath("database.mdb") & ";Driver= {Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "pas sword"

'Our SQL Server code - use above line to use sample on your server

objDC.Open　Application("SQLConnString"), Application("SQLUsername"), Application("SQLPassword")

' Create recordset and retrieve values using the open connection Set objRS = Server.CreateObject("ADODB.Recordset") ' Opening record set with a forward-only cursor (the 0) and in read- only mode (the 1)

' If a request for a specific id comes in, then do it o/w just show

pulldown If Len(Request.QueryString("id")) <> 0 Then ' request record for requested id objRS.Open "SELECT * FROM sample WHERE id=" & Request.QueryString("id"), objDC, 0, 1 ' Show selected record If Not objRS.EOF Then objRS.MoveFirst %>

ID Number	First Name	Last Name	Month's Sales
objRS.Fields("id") %>	("first_name") %>	("last_name") %>	objRS.Fields("sales") %>

End If objRS.Close End If

objRS.Open "sample", objDC, 0, 1

' Loop through recordset and display results If Not objRS.EOF Then objRS.MoveFirst ' the form below calls this file only this time with an id in the QueryString %>

' Continue until we get to the end of the recordset. Do While Not objRS.EOF ' For each record we create a option tag and set it's value to the employee id ' The text we set to the employees first name combined with a space and then their last name %> ">objRS.Fields("first_name") & " " & objRS.Fields("last_name") % > ' Get next record objRS.MoveNext Loop %> End If

' Close Data Access Objects and free DB variables

objRS.Close Set objRS =　Nothing objDC.Close Set objDC = Nothing %>

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10294527/viewspace-124475/，如需转载，请注明出处，否则将追究法律责任。