Display data From database into 2 Column
创建日期：2007年12月28日 来自：knowsky 浏览：526次 作者：匿名
<%
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
%>
责编：aoaob
相关搜索：
Display data From database into 2 Column ASP技巧
嗷嗷毙技术网版权申明：大家可以自由转载我站点的文章，但原作者和来自我站的链接必须保留（非我站原创的，按照原来链接，自行链接）。文章版权归作者所有。
特别注意：本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有，文章若有侵犯作者版权，请与我们联系，我们将立即删除修改。