 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我们可以用SQL使记录按顺序显示： 我们想显示"Companyname" 和 "Contactname" 字段的内容，并且按"Companyname"进行排序显示： <html> <body> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "e:/webjx/webjx.mdb" set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Companyname, Contactname FROM Customers ORDER BY CompanyName" rs.Open sql, conn %> <table border="1" width="100%"> <tr> <%for each x in rs.Fields response.write("<th>" & x.name & "</th>") next%> </tr> <%do until rs.EOF%> <tr> <%for each x in rs.Fields%> <td><%Response.Write(x.value)%></td> <%next rs.MoveNext%> </tr> <%loop rs.close conn.close%> </table> </body> </html> 我们想显示"Companyname" 和 "Contactname" 字段的内容，并且按"Companyname"进行倒序显示： <html> <body> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("e:/webjx/webjx.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Companyname, Contactname FROM Customers ORDER BY CompanyName DESC" rs.Open sql, conn %> <table border="1" width="100%"> <tr> <%for each x in rs.Fields response.write("<th>" & x.name & "</th>") next%> </tr> <%do until rs.EOF%> <tr> <%for each x in rs.Fields%> <td><%Response.Write(x.value)%> </td> <%next rs.MoveNext%> </tr> <%loop rs.close conn.close %> </table> </body> </html> 按用户的需求自己选择排序方法，比如按公司名称或联系人排序：（把下面文件保存为demo_sort.asp ） <html> <body> <table border="1" width="100%" bgcolor="#fff5ee"> <tr> <th align="left" bgcolor="#b0c4de"> <a href="demo_sort.asp?sort=companyname">公司名</a> </th> <th align="left" bgcolor="#b0c4de"> <a href="demo_sort.asp?sort=contactname">联系人</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("e:/webjx/webjx.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> 返回类别: 教程 上一教程: 用ASP实现号码转变 下一教程: ASP判定文件地址是否有效 您可以阅读与"菜鸟学ADO实例教程之ADO 排序数据"相关的教程: · 菜鸟学ADO实例教程之ADO 查询数据 · 菜鸟学ADO实例教程之ADO 显示数据 · 菜鸟学ADO实例教程之ADO概述 · 菜鸟学ADO实例教程之ADO 添加新记录 · 菜鸟学ADO实例教程之ADO 删除记录 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
