下载地址显示方式（横排、竖排）、字体大小怎么修改，如何控制，需要修改那里的代码

我找到代码啦，大家帮帮忙啊 我不会改啊，下载地址字体太大，效果请看这里http://www.lequ123.cn/soft1/rising/56088478388.html

 '下载地址
     If InStr(FileContent, "{$GetDownAddress}") <> 0 Then
   Dim UrlArr, I, TotalNum, AUrl, UrlStr, DownShowNum
   DownShowNum = s(2)
   
   If RefreshRS("FlagUrl") = 0 Then
    UrlArr = Split(RefreshRS("DownUrls"), "|||")
    TotalNum = UBound(UrlArr)
     UrlStr = "<table border=""0"">" & vbCrLf
     UrlStr = UrlStr & "<tr>" & vbCrLf
    For I = 0 To TotalNum
       AUrl = Split(UrlArr(I), "|")
    UrlStr = UrlStr & "<td><img src="""& domainstr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & DownLoadDir & "DownLoad.asp?flag=1&ID=" & RefreshRS("ID") & "&DownID=" & I+1 & """ target=""_blank"">迅雷专用高速下载</a>&nbsp;&nbsp;<img src="""& domainstr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & DownLoadDir & "DownLoad.asp?ID=" & RefreshRS("ID") & "&DownID=" & I+1 & """ target=""_blank"">" & AUrl(0) & "</a></td>" & vbCrLf
     If (I+1) Mod DownShowNum=0 Then UrlStr = UrlStr & "</tr><tr>" & vbCrLf
    Next
    UrlStr = UrlStr & "</table>" & vbCrLf
   Else
     Dim DS :Set DS=Server.CreateObject("ADODB.Recordset")
     Dim ShowServerFlag, ImgSrcStr
    
     ShowServerFlag = s(3)
     DS.Open "select ServerName,ServerUrl,ServerLogo,ID From KS_DownServer where hidden=0", Conn, 1, 1
     If Not DS.EOF Then
    N = 0
    UrlStr = "<table  border=""0"">" & vbCrLf
    UrlStr = UrlStr & "<tr>" & vbCrLf
    Do While Not DS.EOF
      N = N + 1
      If ShowServerFlag = 0 Then
     UrlStr = UrlStr & "<td><img src="""& domainstr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & DownLoadDir & "DownLoad.asp?flag=1&ID=" & RefreshRS("ID") & "&DownID=" & DS(3) & """ target=""_blank"">迅雷专用高速下载</a>&nbsp;&nbsp;<img src="""& domainstr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & DownLoadDir & "DownLoad.asp?ID=" & RefreshRS("ID") & "&DownID=" & DS(3) & """ target=""_blank"">" & DS(0) & "</a></td>" & vbCrLf
      Else
     If LCase(Left(DS(2), 4)) = "http" Then
      ImgSrcStr = DS(2)
     Else
      ImgSrcStr = Domain & DS(2)
     End If
      UrlStr = UrlStr & "<td><a href=""" & DownLoadDir & "DownLoad.asp?ID=" & RefreshRS("ID") & "&DownID=" & DS(3) & """ onclick=""return false""><img src=""" & ImgSrcStr & """ border=""0"" title=""" & DS(0) & """></a></td>" & vbCrLf
      End If
    
     If N Mod DownShowNum=0 Then UrlStr = UrlStr & "</tr><tr>" & vbCrLf
    ' If N <> DS.RecordCount Then UrlStr = UrlStr & "</tr>"
     DS.MoveNext
    Loop
    UrlStr = UrlStr & "</tr></table>" & vbCrLf
     Else

[此贴子已经被作者于2007-6-6 8:21:23编辑过]

顶顶顶

顶到问题解决

好急啊 没人回答 晕

教程里没有啊 没有人知道吗 下载地址的字体大小如何控制啊

去看最新的3.2视频教程！