【 tulaoshi.com - ASP 】
<%
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
%
