繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Display data From database into 2 Column
- ASP
- ASP讲座之六：ASP与数据库（一）
- ASP讲座之七：ASP与数据库（二）
- ASP讲座之八：ASP与数据库（三）
- ASP讲座之九：ASP与数据库（四）
- ASP讲座之十：自己动手编写组件
- ASP讲座之十一：结束语：给您一些建议
- ASP实用大全-ASP基础(1)
- ASP实用大全-ASP基础(2)
- ASP实用大全-ASP基础(3)
- ASP实用大全-ASP基础(4)
- ASP实用大全-ASP基础(5)
- ASP实用大全-ASP对象(1)
- ASP实用大全-ASP对象(2)
- ASP实用大全-ASP对象(3)
- ASP实用大全-ASP对象(4)
- ASP实用大全-ASP对象(5)
- ASP实用大全-ASP对象(6)
- ASP实用大全-ASP服务器组件(1)
- ASP实用大全-ASP服务器组件(2)
- ASP实用大全-ASP服务器组件(3)
ASP 中的 Display data From database into 2 Column
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 200 ::
收藏到网摘: n/a
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
%>
评论 (0) All
