<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