Function ThunderDownloadUrl(url,unionid)
Response.Write "<script src='http://pstatic.xunlei.com/js/webThunderDetect.js'></script>" & vbNewLine
Response.Write "<script>OnDownloadClick('" & url & "','',location.href,'" & UnionID & "',false)</script>" & vbNewLine
Response.Write "<script>window.setInterval(""window.close()"",3600);</script>" & vbCrLf
End Function

<!-- ASP专用链代码一 --> <!--#include file="base64.asp"-->
<SCRIPT src="http://pstatic.xunlei.com/js/webThunderSpecial.js"></SCRIPT>
<%
Dim thunderUrl
thunderUrl = ThunderEncode("http://资源实际下载地址")
%><A oncontextmenu=ThunderNetwork_SetHref(this) onclick="return OnDownloadClick_Simple(this,2)" href="#" thunderResTitle="下载资源名" thunderType="" thunderPid="18772" thunderHref="<%=thunderUrl%>">迅雷专用高速下载</A>

<!-- ASP专用链代码二 --> <!--#include file="base64.asp"-->
<SCRIPT src="http://pstatic.xunlei.com/js/webThunderSpecial.js"></SCRIPT>
<%
Dim thunderUrl
thunderUrl = ThunderEncode("http://资源实际下载地址")
Response.Write "<script>OnDownloadClick('" & thunderUrl & "','',location.href,'18772',2,'08',false)</script>"
%>

<!-- JavaScript专用链代码 -->

<script src="http://pstatic.xunlei.com/js/webThunderSpecial.js"></script>
<script src="http://pstatic.xunlei.com/js/base64.js"></script>
<script language="javascript">
    var thunder_url = "http://你的资源的实际下载地址";
    var thunder_pid = "18772";
    var restitle = "";
    document.write('<a href="#" thunderHref="' + ThunderEncode(thunder_url) + '" thunderPid="' + thunder_pid + '" thunderResTitle="' + restitle + '" onClick="return OnDownloadClick_Simple(this,2)" oncontextmenu="ThunderNetwork_SetHref(this)">迅雷专用高速下载</a> ');
</script>