案例:ASP/ADO/VBScript案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<html>
2
<body>
3
4
<%
5
set conn=Server.CreateObject("ADODB.Connection")
6
conn.Provider="Microsoft.Jet.OLEDB.4.0"
7
conn.Open(Server.Mappath("/db/northwind.mdb"))
8
9
set rs=Server.CreateObject("ADODB.recordset")
10
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
11
rs.Open sql,conn
12
13
country=request.form("country")
14
15
%>
16
17
<form method="post">
18
Choose Country <select name="country">
19
<%  do until rs.EOF
20
    response.write("<option")
21
    if rs.fields("country")=country then
22
      response.write(" selected")
23
    end if
24
    response.write(">")
25
    response.write(rs.fields("Country"))
26
    rs.MoveNext
27
loop
28
rs.Close
29
set rs=Nothing %>
30
</select>
31
<input type="submit" value="Show customers">
32
</form>
33
34
<%
35
if country<>"" then
36
   sql="SELECT Companyname,Contactname,Country FROM Customers WHERE country='" & country & "'"
37
   set rs=Server.CreateObject("ADODB.Recordset")
38
   rs.Open sql,conn
39
%>
40
   <table width="100%" cellspacing="0" cellpadding="2" border="1">
41
   <tr>
42
     <th>Companyname</th>
43
     <th>Contactname</th>
44
     <th>Country</th>
45
   </tr>
46
<%
47
do until rs.EOF
48
   response.write("<tr>")