web学习吧　2007-01-06　来源:　收藏本文

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

• ·使用组件封装数据库操作(一)
• ·一个查看ASP的JavaScript程序
• ·表单递交内容检测脚本-这里只接受数字
• ·个人经验：使用asp尽量减少服务器端的工作
• ·建立自己的WEB平台
• ·用XML数据岛解决用户界面问题 - 1
• ·ASP用Server.Transfer实现博客永久链接
• ·如何读出空格
• ·ASP日期和时间函数示例
• ·ASP提高数据显示效率-缓存探幽
• ·实用的ASP连接数据库的函数
• ·整站二进制数据库文件还原
• ·对ASP动态包含文件方法的改进
• ·PRB：ASP 返回“Operation Must Use an Upd
• ·支持多风格变换的ASP分页类
• ·ASP实现可显示和隐藏的树型菜单