这是公司的网站http://www.qqfx.com/indexa.asp
其中新闻速递每条新闻的间距太大，如何才能缩小呢？请牛人指教！！！
下面是文件的源代码：
<!--#include file="web_new/_inc/Fun.inc.asa"-->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="10" >
<style type="text/css">
<!--
a:link {
color: #333333;
}
a:visited {
color: #333333;
}
a:active {
color: #FA7701;
}
a:hover {
color: #FA7701;
}
body,td,th {
font-family: 宋体;
}
-->
</style><BODY>
<style>
td,a,body{font-size:12;text-decoration: none}
</style>
<%
Dim SqlDatabaseName, SqlPassword, SqlUsername, SqlLocalName
SqlDatabaseName = "qqfx"
SqlPassword = "qqfx0716"
SqlUsername = "qqfx"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Set conn = Server.CreateObject("ADODB.Connection"
conn.open ConnStr
Set rs = conn.execute("SELECT id,date1,title,src from forum..jrandGg UNION ALL SELECT oldID,date1,title,src from news_shcx UNION ALL SELECT id,date1,title,src from mynews order by date1 DESC"
Dim show_list,i
for i=1 to 6
'show_list =""
show_list = show_list & "<table width=" & Chr(34) & "400" & Chr(34) & "><tr><td height=" & Chr(34) & "10" & Chr(34) & " width=" & Chr(34) & "350" & Chr(34)
show_list = show_list & "><a target=" & Chr(34) & "_blank" & Chr(34) & " "
Dim title2,date1,src2
title2 = Trim(rs("title"
)
If (Len(title2) > 25) Then title2 =ListNews(title2, 25) '& ".." '截断过长标题
src2 = Trim(rs("src"
)
date1 = left(right(trim(rs("date1"
),8),5)
'date1=trim(rs("date1"
)
If (src2 = "世华财讯"
Then
show_list = show_list & "href=" & Chr(34) & "http://www.go2fx.com/fxinfo/fxinfo_content.jsp?news_id=" & rs("id"
& Chr(34) & ">"
show_list = show_list & date1 & " " & title2 & "</a>"
show_list = show_list & "</td><td align=" & Chr(34) & "right" & Chr(34) & ">[世华]"
ElseIf (src2 = "Thomson"
Then
show_list = show_list & "href=" & Chr(34) & "news_content2.asp?id=" & rs("id"
& "&src=" & "Thomson" &chr(34)&">"
show_list = show_list & date1 & " " & title2 & "</a>"
show_list = show_list & "</td><td align=" & Chr(34) & "right" & Chr(34) & ">[汇讯]"
ElseIf (src2 = "国际汇讯"
Then
show_list = show_list & "href=" & Chr(34) & "news_content2.asp?id="&rs("id"
&"&src=" & "国际汇讯" & chr(34) &">"
show_list = show_list & date1 & " " & title2 & "</a>"
show_list = show_list & "</td><td align=" & Chr(34) & "right" & Chr(34) & ">[汇讯]"
End If
show_list = show_list & "</td></tr></table>"
'response.write show_list
rs.movenext
next
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
response.Write("<script>"&htm2js_div(show_list,"shihuanew"
&"</script>"
Function htm2js_div(Str, divid)
divid = Trim(divid)
If Str = "" Or IsNull(Str) Then Str = " "
htm2js_div = htm2js_div & "parent.document.getElementById('"&divid&"')" & ".innerHTML='" & Replace(Replace(Replace(Replace(Str, "\", "\\"
, "'", "\'"
, vbCrLf, "\n"
, Chr(13), ""
& "';"
End Function
%>
</BODY></HTML>
