国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

Display data From database into 2 Column

2019-11-18 22:02:46
字體：大 中 小
來源：轉載
供稿：網友
<%
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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 旌德县| 巍山| 綦江县| 科技| 建阳市| 丹阳市| 涟源市| 洛宁县| 西藏| 砀山县| 绿春县| 肇东市| 延安市| 电白县| 静宁县| 商丘市| 敦煌市| 中卫市| 兰考县| 射洪县| 临夏市| 嘉峪关市| 五寨县| 皮山县| 安陆市| 宁陵县| 扶余县| 汉沽区| 页游| 仁怀市| 唐海县| 柯坪县| 高淳县| 凤山县| 塘沽区| 根河市| 崇信县| 原阳县| 延津县| 大同市| 固阳县|