案例:ASP/ADO/VBScript案例     状态:不可编辑再运行    进入竖版
 运行结果 
x
 
1
<html>
2
<body>
3
4
<table border="1" width="100%" bgcolor="#fff5ee">
5
<tr>
6
<th align="left" bgcolor="#b0c4de">
7
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=companyname">Company</a>
8
</th>
9
<th align="left" bgcolor="#b0c4de">
10
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=contactname">Contact</a>
11
</th>
12
</tr>
13
<%
14
if request.querystring("sort")<>"" then
15
   sort=request.querystring("sort")
16
else
17
   sort="companyname"
18
end if
19
20
set conn=Server.CreateObject("ADODB.Connection")
21
conn.Provider="Microsoft.Jet.OLEDB.4.0"
22
conn.Open(Server.Mappath("/db/northwind.mdb"))
23
set rs=Server.CreateObject("ADODB.recordset")
24
sql="SELECT Companyname,Contactname FROM Customers ORDER BY " & sort
25
rs.Open sql,conn
26
27
do until rs.EOF
28
   response.write("<tr>")
29
   for each x in rs.Fields
30
     response.write("<td>" & x.value & "</td>")
31
   next
32
   rs.MoveNext
33
   response.write("</tr>")
34
loop
35
rs.close
36
conn.close
37
%>
38
</table>
39
40
</body>
41
</html>