ASP/ADO/VBScript案例 - W3xue在线HTML/CSS/JS运行工具

<html>
<body>

<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<th align="left" bgcolor="#b0c4de">
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=companyname">Company</a>
</th>
<th align="left" bgcolor="#b0c4de">
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=contactname">Contact</a>
</th>
</tr>
<%
if request.querystring("sort")<>"" then
   sort=request.querystring("sort")
else
   sort="companyname"
end if

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname,Contactname FROM Customers ORDER BY " & sort
rs.Open sql,conn

do until rs.EOF
   response.write("<tr>")
   for each x in rs.Fields
     response.write("<td>" & x.value & "</td>")
   next
   rs.MoveNext
   response.write("</tr>")
loop
rs.close
conn.close
%>
</table>

</body>
</html>

​x
 
<html>
<body>
​
<table border="1" width="100%" bgcolor="#fff5ee">
<tr>
<th align="left" bgcolor="#b0c4de">
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=companyname">Company</a>
</th>
<th align="left" bgcolor="#b0c4de">
<a href="/example/adoe/demo_adoe_sort_3.asp?sort=contactname">Contact</a>
</th>
</tr>
<%
if request.querystring("sort")<>"" then
   sort=request.querystring("sort")
else
   sort="companyname"
end if
​
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname,Contactname FROM Customers ORDER BY " & sort

W3xueDotComlthtmlW3xueDotComgt W3xueDotComltbodyW3xueDotComgt W3xueDotComlttable border="1" width="100%" bgcolor="#fff5ee"W3xueDotComgt W3xueDotComlttrW3xueDotComgt W3xueDotComltth align="left" bgcolor="#b0c4de"W3xueDotComgt W3xueDotComlta href="/example/adoe/demo_adoe_sort_3.asp?sort=companyname"W3xueDotComgtCompanyW3xueDotComlt/aW3xueDotComgt W3xueDotComlt/thW3xueDotComgt W3xueDotComltth align="left" bgcolor="#b0c4de"W3xueDotComgt W3xueDotComlta href="/example/adoe/demo_adoe_sort_3.asp?sort=contactname"W3xueDotComgtContactW3xueDotComlt/aW3xueDotComgt W3xueDotComlt/thW3xueDotComgt W3xueDotComlt/trW3xueDotComgt W3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtApple Computer, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtSteven JobsW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtBAIDU, IncW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtLi YanHongW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtCanon USA, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtTsuneji UchidaW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtGoogle, Inc.W3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtLarry PageW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtNokia CorporationW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtOlli-Pekka KallasvuoW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgtW3xueDotComlttrW3xueDotComgtW3xueDotComlttdW3xueDotComgtSony Corporation of AmericaW3xueDotComlt/tdW3xueDotComgtW3xueDotComlttdW3xueDotComgtKazuo HiraiW3xueDotComlt/tdW3xueDotComgtW3xueDotComlt/trW3xueDotComgt W3xueDotComlt/tableW3xueDotComgt W3xueDotComlt/bodyW3xueDotComgt W3xueDotComlt/htmlW3xueDotComgt