怎样让图片竖排

最新推荐文章于 2022-03-31 16:06:23 发布

jumin8890

最新推荐文章于 2022-03-31 16:06:23 发布

阅读量761

点赞数

本文链接：https://blog.csdn.net/jumin8890/article/details/54234735

版权

function TopFriendSite()
  dim rs,sql
  dim i,SiteFace
  set rs = server.createobject("adodb.recordset")
  sql="select * from Ameav_FriendSite where ViewFlag order by id desc"
  rs.open sql,conn,1,1
  if not (rs.bof and rs.eof) then
    response.write "<table border='0' cellspacing='0' cellpadding='0' >" &_
       "</tr>" &_
   "<tr height='40'>"
    for i=1 to 1
      if rs.eof then exit for
      response.write "<td width='124' align=center height='40' >"
  if rs("LinkType") then
        SiteFace="<img src="&rs("SiteFace")&" width=110 height=34  border=0 >"
  else
    SiteFace=rs("SiteFace")
    if len(SiteFace)>8 then SiteFace=left(SiteFace,8)
  end if
      response.write "<table  border='0' cellpadding='0' cellspacing='0' bgcolor='#FFFFFF'>" &_
                 "<tr><td align='center'  width='110' height='34'>" &_
         "<a target='_blank' href='"&rs("SiteUrl")&"' target='_blank' title="&rs("SiteName")&">"&SiteFace&"</a>" &_
"</td></tr></table>"
      rs.movenext
     next
    response.write "</td></tr></table>"
  end if
  rs.Close
  set rs=nothing
end function