下载频道添加了快车和迅雷下载的完美方法-动易CMS教程

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

使用下载频道的朋友，一般都会选择快车或者迅雷下载，今天修改了下载频道代码，增加了下载地址判定，站外连接直接下载，站内资源则自动选择快车下载和迅雷下载。在此非凡感谢雨哲提供的思路！

主要修改文件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.再把下面代码

代码如下：
'方法二可以使用“目标另存为”，但会有中文乱码问题
Response.Redirect DownloadUrl

改为 代码如下：
'方法二可以使用“目标另存为”，但会有中文乱码问题
if DownloadUrlLink <> \"\" Then
Response.Redirect DownloadUrl
Else
%>