请高手帮我改一段asp代码啊!把纵向显示改成横向的!
<%'//友情连接链接调用Functionzf11_links()response.write"<divalign=center>"response.write"<tab...
<%
'//友情连接链接调用
Function zf11_links()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=133 style='border:1px #ff0000 solid;'>"
response.write "<tr>"
response.write "<td height=30 background=images/1/index_44.gif> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=100 bgcolor=#ffffff>"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write"<MARQUEE direction='up' id=zf11_links onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=150>"
sql="select top 6 fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<div align=center>"
Response.Write "<TABLE cellPadding=3>"
do while not rs.eof
Response.Write "<TR>"
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' title='"&rs("fl_name")&"'></a>" & vbCrLf
Response.Write "</TD>"
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=middle><font color=""#666666"">当前没有链接</font></TD></TR>"
end if
Response.Write "</TABLE>"
Response.Write "</div>"
Response.Write "</MARQUEE>"
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%> 展开
'//友情连接链接调用
Function zf11_links()
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=133 style='border:1px #ff0000 solid;'>"
response.write "<tr>"
response.write "<td height=30 background=images/1/index_44.gif> </td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=100 bgcolor=#ffffff>"
response.write "<tr>"
response.write "<td>"
'------------主要内容开始
response.write"<MARQUEE direction='up' id=zf11_links onmouseover=this.stop(); onmouseout=this.start(); scrollAmount=1 scrollDelay=10 height=150>"
sql="select top 6 fl_id,fl_name,flcat_id,fl_logo,fl_date,fl_url,count,passed from friendlink where fl_logo<>'' and passed=0 and lk=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
Response.Write "<div align=center>"
Response.Write "<TABLE cellPadding=3>"
do while not rs.eof
Response.Write "<TR>"
Response.Write "<TD><a href='link.asp?action=go&fl_id="&rs("fl_id")&"' target='_blank'><img border=0 src='"&rs("fl_logo")&"' title='"&rs("fl_name")&"'></a>" & vbCrLf
Response.Write "</TD>"
Response.Write "</TR>"
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<TR><TD align=middle><font color=""#666666"">当前没有链接</font></TD></TR>"
end if
Response.Write "</TABLE>"
Response.Write "</div>"
Response.Write "</MARQUEE>"
'------------主要内容结束
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
response.write "<div align=center>"
response.write "<table border=0 cellpadding=0 cellspacing=0 width=197 height=10>"
response.write "<tr>"
response.write "<td></td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
End Function
%> 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询