教程之家 TIY Editor
教程之家
改变方向
暗黑模式
<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>