首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > asp.net >

请问ASP友情链接不自动换行有关问题

2013-01-02 
请教ASP友情链接不自动换行问题如题友情链接只能有一行 怎么改成自动换行div classindexyqz%Friend

请教ASP友情链接不自动换行问题
如题友情链接只能有一行 怎么改成自动换行
请问ASP友情链接不自动换行有关问题

<div class="indexyqz">
<%=FriendLinks(2,20)%>
</div>
<div class="indexyqx"></div>
</div>
<div class="footzs"></div>
<div class="foot">
<ul>
<li>CopyRight 2012 版权所有:<%=ComName%>  ICP:<%=IcpNumber%> Email:<%=Email%> 站长统计 | <a target="_blank" href="http://www.wcsm.cn/adminlogin/Admin_Login.Asp">后台管理</a> </li>
<li>地   址:<%=Address%> &nbsp; 邮   编:<%=ZipCode%> &nbsp; 电   话:<%=Telephone%> &nbsp; 传   真:<%=Fax%></li>
</ul>
</div>
  <%
  Function FriendLinks(trs, tds)
    Dim rs, sql, tr, td, ProductName, SmallPicPath
    Set rs = server.CreateObject("adodb.recordset")
    sql = "select top "&trs * tds&" * from Qianbo_FriendLink where ViewFlag order by ID desc"
    rs.Open sql, conn, 1, 1
    If rs.EOF Then
        response.Write "暂无相关信息"
    Else
        Response.Write "<table cellpadding=""0"" cellspacing=""0"" align=""left"">"&vbCrLf
        For tr = 1 To trs
            Response.Write "  <tr>"&vbCrLf
            For td = 1 To tds
                If StrLen(rs("LinkFace"))<= 18 Then
                    LinkFace = rs("LinkFace")
                Else
                    LinkFace = StrLeft(rs("LinkFace"), 16)
                End If
                Response.Write "    <td><table cellpadding=""2"" cellspacing=""0"">"&vbCrLf
                Response.Write "        <tr>"&vbCrLf
                Response.Write "          <td align=""center"" height=""38"">"
                If rs("LinkType") = 0 Then
                    Response.Write "<a href="""&rs("LinkUrl")&""" title="""&rs("LinkName")&""">"&LinkFace&"</a>"
                Else


                    Response.Write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace")&""" alt="请问ASP友情链接不自动换行有关问题""&rs("LinkName")&""" width=""88"" height=""31"" /></a>"
                End If
                Response.Write "</td>"&vbCrLf
                Response.Write "        </tr>"&vbCrLf
                Response.Write "      </table></td>"&vbCrLf
                Response.Write "    <td width=""8""></td>"&vbCrLf
                rs.movenext
                If rs.EOF Then Exit For
            Next
            Response.Write "  </tr>"&vbCrLf
            If rs.EOF Then Exit For
        Next
        Response.Write "</table>"&vbCrLf
    End If
    rs.Close
    Set rs = Nothing
End Function
%>


下面是CSS
.indexyq{ width:1004px; overflow:hidden; margin-left:auto; margin-right:auto; margin-top:10px;}
.indexyqt{ width:1004px; height:30px; background:url(../images/yqt.jpg) top no-repeat; text-align:left; padding-top:6px;}
.indexyqz{ width:987px; overflow:hidden; height:64px; background:url(../images/ljbj.jpg) bottom repeat-x; border-left:1px solid #C6C6C6;border-right:1px solid #C6C6C6; margin-left:3px; margin-right:2px; text-align:left; padding-left:10px;}
.indexyqx{ width:1004px; height:15px; background:url(../images/yqx.jpg) top no-repeat;}

[解决办法]
   Response.Write "<a href="""&rs("LinkUrl")&""" title="""&rs("LinkName")&""">"&LinkFace&"</a>"
                Else
                    Response.Write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace")&""" alt="请问ASP友情链接不自动换行有关问题""&rs("LinkName")&""" width=""88"" height=""31"" /></a>"
            
后面再加个<br/>就可以换行了
[解决办法]
写到不同的tr里不就换行了
[解决办法]
tr td你自己看看加在哪里好? 反正是<br/>

热点排行