 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("link.mdb") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open Conn_String sql = "select * from cat order by ID" set rs = Conn.Execute (sql) \\\'Connect to database %> <table border="0" width="300"> <% Do while NOT rs.EOF ColNum = 1 Do while ColNum < 3 %> <!-- First column--> <TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showlink.asp?CatID=<%=rs("id")%>"><%=rs("cat")%> </a></TD> <% if NOT rs.EOF then rs.MoveNext end if ColNum = ColNum + 1 if NOT rs.EOF then %> <!-- second column--> <TD ALIGN=LEFT VALIGN=middle WIDTH="150"><a href="showlink.asp?CatID=<%=rs("id")%>"><%=rs("cat")%></a></TD> <% end if ColNum = ColNum + 1 Loop %> </TR> <% if NOT rs.EOF then rs.MoveNext end if Loop %> </TABLE> <% rs.close Conn.Close set Conn = nothing %> 返回类别: 教程 上一教程: WEB环境下办公自动化文档修改痕迹保留的实现 下一教程: 发送带附件的HTML格式邮件例程可以带附件 您可以阅读与"DISPLAY DATA FROM DATABASE INTO 2 COLUMN"相关的教程: · DATA SHAPING技术-访问分级 RECORDSET 中的行 · 从ASP迁移至ASP+--进入DataSet · 将HTML表格转变为ASP+数据列表（DataList） · 从ASP迁移至ASP+ --进入DataSet · 用PRERENDER解决DATAGRID分页最后一页行数不满的排版问题 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
