Display data From database into 2 Column

您的位置: 中国建站之家 -> 网站开发设计 -> ASP教程 -> Display data From database into 2 Column

Display data From database into 2 Column

作者：未知来源：转载发布时间：2005-9-15 20:24:48 发布人：acx

<%
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
%>


<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
%>


<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
%>

将本文收藏到QQ书签与更多好友分享

上一篇：SQL Server中单引号的两种处理技巧

下一篇：asp+ 如何跨站抓取页面

Display data From database into 2 Column

热门阅读 »

相关阅读 »