| <% 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 %> 注意：联系我时，请一定说明是从【S】看到的信息，谢谢。 |
 联系电话： 联系 QQ： 打电话给我、或者加QQ好友时，请一定说明来自（三亚上门维修电脑）谢谢您！ 三亚上门维修电脑 |