|
|
|
7i24.Com不停为您服务 将数据库的内容放到下拉列表中
<%
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
%>
<TABLE BORDER=2>
<TR>
<TD><B>ID Number</B></TD>
<TD><B>First Name</B></TD>
<TD><B>Last Name</B></TD>
<TD><B>Month's Sales</B></TD>
</TR>
<TR>
<TD ALIGN="center"><%=
objRS.Fields("id") %></TD>
<TD ALIGN="left"><%= objRS.Fields
("first_name") %></TD>
<TD ALIGN="left"><%= objRS.Fields
("last_name") %></TD>
<TD ALIGN="right"><%=
objRS.Fields("sales") %></TD>
</TR>
</TABLE>
<%
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
%>
<FORM ACTION="./db_pulldown.asp" METHOD="get">
<SELECT NAME="id">
<OPTION></OPTION>
<%
' 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
%>
<OPTION VALUE="<%= objRS.Fields("id") %>"><%=
objRS.Fields("first_name") & " " & objRS.Fields("last_name") %
></OPTION>
<%
' Get next record
objRS.MoveNext
Loop
%>
</SELECT>
<INPUT type="submit" value="Submit">
</FORM>
<%
End If
' Close Data Access Objects and free DB variables
objRS.Close
Set objRS = Nothing
objDC.Close
Set objDC = Nothing
%>
|
|
|