KS_Cls\KS_RefreshCls.asp

将那几个target=""_blank""修改成onclick=""return false""

     '下载地址
     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?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?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) & """ target=""_blank""><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
      UrlStr = "<li>暂不提供镜像下载"
     End If
     DS.Close
     Set DS = Nothing
   End If
   FileContent = Replace(FileContent, "{$GetDownAddress}", UrlStr)
     End If

[此贴子已经被作者于2007-5-4 18:10:17编辑过]