UC知道ASP中将图片横向排列改为纵向排列的方法？
来源：百度知道 编辑：UC知道 时间：2024/05/15 00:29:59
<%
'===================================================================
'友情链接
'===================================================================
sub listlinkto()
Response.Write("<table border='0' align='center' cellpadding='0' cellspacing='0' >"&chr(13))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select linkpic,linkurl,linkreadme from weblinkto a where (not a.delmark)and(a.ishome) order by a.sort desc"
rs.open sql,conn,1,1
Response.Write( "<tr >")
do while not (rs.eof or rs.bof)
Response.Write("<td>"&chr(13))
hint=filter_str(rs("linkreadme"))
Response.Write("<a href='"&rs("linkurl")&"' target='_blank' title ='" &hint&"'>")
Response.Write("<img src='"&weburl&rs(&qu
'===================================================================
'友情链接
'===================================================================
sub listlinkto()
Response.Write("<table border='0' align='center' cellpadding='0' cellspacing='0' >"&chr(13))
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select linkpic,linkurl,linkreadme from weblinkto a where (not a.delmark)and(a.ishome) order by a.sort desc"
rs.open sql,conn,1,1
Response.Write( "<tr >")
do while not (rs.eof or rs.bof)
Response.Write("<td>"&chr(13))
hint=filter_str(rs("linkreadme"))
Response.Write("<a href='"&rs("linkurl")&"' target='_blank' title ='" &hint&"'>")
Response.Write("<img src='"&weburl&rs(&qu
只需要把<tr></tr>进行循环就可以了
这样就是多行一列 也就是你要的竖排：
do while not (rs.eof or rs.bof)
'把<tr></tr>这句写到do while 里面来
Response.Write( "<tr >")
……
Response.Write( "</tr >")
loop
'下面这句不再书写</tr>：
Response.Write("</table>")
那你就循环列 ！