%
Dim objDC, objRS
Set objDC = Server.CreateObject("ADODB.Connection")
objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30
' 創(chuàng)建數(shù)據(jù)庫(kù)連接
objDC.Open "DBQ=" Server.MapPath("database.mdb") ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "username", "password"
' 使用Access數(shù)據(jù)庫(kù)
objDC.Open Application("SQLConnString"), Application("SQLUsername"),
Application("SQLPassword")
Set objRS = Server.CreateObject("ADODB.Recordset")
' 創(chuàng)建記錄集并進(jìn)行檢索
' 使用前向游標(biāo)（0）和只讀模式（1）打開記錄集
' 如果特定的id請(qǐng)求被讀取，則顯示
If Len(Request.QueryString("id")) > 0 Then
' 根據(jù)id讀取相應(yīng)的記錄
objRS.Open "select * from intelsdb WHERE id=" Request.QueryString("id"), objDC, 0, 1
' 顯示已選擇的記錄
If Not objRS.EOF Then
objRS.MoveFirst
%>
TABLE BORDER=2>
tr>
td>B>ID /B>/td>
td>B>姓名/B>/td>
td>B>部門/B>/td>
td>B>月度銷售/B>/td>
/tr>
tr>
td ALIGN="center">%= objRS.Fields("id") %>/td>
td ALIGN="left">%= objRS.Fields("name") %>/td>
td ALIGN="left">%= objRS.Fields("department ") %>/td>
td ALIGN="right">%= objRS.Fields("sales") %>/td>
/tr>
/TABLE>
%
End If
objRS.Close
End If
objRS.Open "intelsdb", objDC, 0, 1
' 循環(huán)讀完記錄集并顯示結(jié)果
If Not objRS.EOF Then
objRS.MoveFirst
' 下面這個(gè)表格會(huì)調(diào)用本次在QueryString 里id的內(nèi)容
%>
FORM ACTION="./db_pulldown.asp" METHOD="get">
select NAME="id">
OPTION>/OPTION>
%
' 直到讀完記錄集.
Do While Not objRS.EOF
' 對(duì)每條記錄，為員工id創(chuàng)建一個(gè)選擇標(biāo)簽并設(shè)置相應(yīng)的值
%>
OPTION VALUE="%= objRS.Fields("id") %>">%= objRS.Fields("name") %>/OPTION>
%
' 獲取下一個(gè)記錄
objRS.MoveNext
Loop
%>
/select>
INPUT type="submit" value="Submit">
/FORM>
%
End If
' 關(guān)閉并清空
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>
