下載頻道添加了快車和迅雷下載的完美方法_動易Cms教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      原帖:http://www.cherison.com.cn/Space/Showdiary.asp?ID=4
      http://bbs.powereasy.net/dispbbs.asp?boardID=67&ID=324785&page=1

      使用下載頻道的朋友,一般都會選擇快車或者迅雷下載,今天修改了下載頻道代碼,增加了下載地址判定,站外連接直接下載,站內(nèi)資源則自動選擇快車下載和迅雷下載。在此非凡感謝雨哲提供的思路!

      主要修改文件ShowSoftDown.asp,修改前建議自己做好備份:

      1.在<!--#include file="CommonCode.asp"-->下面增加:

      代碼如下:
      <script src="http://ufile.kuaiche.com/Flashget_union.php?fg_uid=1106"></script>
      <!--#include file="Flashget_base64.asp"-->
      <!--#include file="base64.asp"-->
      <script src="http://pstatic.xunlei.com/js/webThunderDetect.js"></script>


      如需要添加快車搜索,還需添加:

      <style type="text/css">
      .skuaicheForm{margin:0px 0px 0px 0px;} /*--Form css--*/
      .skuaicheImg{width:22px;height:22px;} /*--FlashgetLogo css--*/
      .skuaicheInput{border:1px solid #CCCCCC;color:#7C7C7C;width:200px;height:22px;padding:3px

      0px 0px 5px;border-left:none;}/*--searchText css--*/
      .skuaicheButton{background:none;width:64px;height:22px;border:1px solid #CCCCCC;border-

      left:none;padding:2px 0px 0px 2px;font-size:12px;color:#666666;cursor:pointer;}/*--

      submitButton css--*/
      </style>
      2.在Response.CacheControl = "no-cache"下面添加

      代碼如下:
      '雨哲在線-獲取軟件名稱和ID
      Dim rs, SoftID, SoftName
      SoftID = Trim(request("SoftID"))
      Call openconn
      Set rs = Conn.Execute("select SoftName from PE_Soft where SoftID = " & SoftID & " ")
      SoftName = rs("SoftName")
      Set rs = Nothing
      Call closeconn
      '雨哲在線-獲取軟件名稱和ID


      3.下面代碼增加紅色部分:

      代碼如下:
      Dim DownloadUrl, FileExt, flashgetUrl, thunderUrl, DownloadUrlLink
      DownloadUrlLink = ""
      DownloadUrl = PE_Soft.GetDownloadUrl()
      If DownloadUrl = "ErrorDownloadUrl" Then Response.End
      Set PE_Soft = Nothing
      FileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".") 1))
      If InStr(DownloadUrl, "://") <= 0 Then
      DownloadUrl = "http://" & Trim(Request.ServerVariables("HTTP_HOST")) & DownloadUrl
      flashgetUrl = FlashgetEncode(DownloadUrl,1106)
      thunderUrl = ThunderEncode(DownloadUrl)
      Else
      DownloadUrlLink = "1"
      End If


      4.再把下面代碼

      代碼如下:
      '方法二可以使用“目標(biāo)另存為”,但會有中文亂碼問題
      Response.Redirect DownloadUrl


      改為 代碼如下:
      '方法二可以使用“目標(biāo)另存為”,但會有中文亂碼問題
      if DownloadUrlLink <> "" Then
      Response.Redirect DownloadUrl
      Else
      %>

      查看更多 動易Cms教程  動易Cms模板

      共3頁上一頁123下一頁
      來源:模板無憂//所屬分類:動易Cms教程/更新時間:2007-06-18
      相關(guān)動易Cms教程