Private Function GetDownloadUrlList(ShowModule)
    Dim DownloadUrls, arrDownloadUrls, arrUrls, iTemp, strUrls
    Dim rsDownServer, sqlDownServer, ShowServerName, iShowModule, iCols
    iShowModule = PE_CLng(ShowModule)
    DownloadUrls = rsSoft("DownloadUrl")
    If DownloadUrls = "" Then
        GetDownloadUrlList = ""
        Exit Function
    End If
    strUrls = ""
    If InStr(DownloadUrls, "@@@") > 0 Then
    '构建镜像服务器下载地址列表
        arrDownloadUrls = Trim(Replace(DownloadUrls, "@@@", "")) '得PE_Soft中的Url地址
        sqlDownServer = "select * from PE_DownServer where ChannelID=" & ChannelID
        Set rsDownServer = Server.CreateObject("adodb.recordset")
        rsDownServer.Open sqlDownServer, Conn, 1, 3
        If rsDownServer.BOF or rsDownServer.EOF Then
           strUrls = "对不起，未找到任何镜像服务器信息！"
        End If
        iCols = 1

        Do While Not rsDownServer.EOF
            If rsDownServer("ShowType") = 0 Then
               ShowServerName = rsDownServer("ServerName")
            Else
               ShowServerName = "<img src='" & rsDownServer("ServerLogo") & "' border=0>"
            End If
            '设置了下载点数的处理（PE_DownServer中有收费相关字段）
            'If EnableProtect = True or ClassPurview > 0 or rsSoft("InfoPoint") > 0 or rsDownServer("InfoPoint") > 0 Then
                strUrls = strUrls & "<a href='" & ChannelUrl_ASPFile & "/ShowSoftDown.asp?UrlID=" & rsDownServer("ServerID") & "&SoftID=" & rsSoft("SoftID") & "' target='_blank' name='unionsoftlinks'>" & ShowServerName & "</a>"
            'Else
            '    strUrls = strUrls & "<a href='" & rsDownServer("ServerUrl") & arrDownloadUrls & "' target='_blank'>" & ShowServerName & "</a>"
            'End If
            If iShowModule = 0 Then
                strUrls = strUrls & "  "
            Else
                If (iCols Mod iShowModule) <> 0 Then
                    strUrls = strUrls & "  "
                Else
                    strUrls = strUrls & "<br>"
                End If
            End If
            iCols = iCols + 1
            rsDownServer.MoveNext
        Loop
        GetDownloadUrlList = strUrls
        rsDownServer.Close
        Set rsDownServer = Nothing
    Else
        iCols = 0
        arrDownloadUrls = Split(DownloadUrls, "$$$")
        For iTemp = 0 To UBound(arrDownloadUrls)
            iCols = iCols + 1
            arrUrls = Split(arrDownloadUrls(iTemp), "|")
            If UBound(arrUrls) >= 1 Then
                If arrUrls(1) <> "" And arrUrls(1) <> "http://" Then
                    'If EnableProtect = True or ClassPurview > 0 or rsSoft("InfoPoint") > 0 Then
                        strUrls = strUrls & "<a href='" & ChannelUrl_ASPFile & "/ShowSoftDown.asp?UrlID=" & iTemp + 1 & "&SoftID=" & rsSoft("SoftID") & "' target='_blank' name='unionsoftlinks'>" & arrUrls(0) & "</a>"
                    'Else
                    '    If Left(arrUrls(1), 1) <> "/" And InStr(arrUrls(1), "://") <= 0 Then
                    '        strUrls = strUrls & "<a href='" & ChannelUrl & "/" & UploadDir & "/" & arrUrls(1) & "' target='_blank'>" & arrUrls(0) & "</a>"
                    '    Else
                    '        strUrls = strUrls & "<a href='" & GetFirstSeparatorToEnd(arrDownloadUrls(iTemp), "|") & "' target='_blank'>" & arrUrls(0) & "</a>"
                    '    End If
                    'End If
                    If iShowModule = 0 Then
                        strUrls = strUrls & "  "
                    Else
                        If (iCols Mod iShowModule) <> 0 Then
                            strUrls = strUrls & "  "
                        Else
                            strUrls = strUrls & "<br>"
                        End If
                    End If
                End If
            End If
        Next
        GetDownloadUrlList = strUrls
    End If
End Function

Private Function GetSoftPicUrl(SoftPicUrl, SoftPicWidth, SoftPicHeight)
    Dim strSoftPicUrl, FileType, strPicUrl

    If SoftPicUrl = "" Then
        strSoftPicUrl = strSoftPicUrl & "<img src='" & strPicUrl & strInstallDir & "images/nopic.gif' "
        If SoftPicWidth > 0 Then strSoftPicUrl = strSoftPicUrl & " width='" & SoftPicWidth & "'"
        If SoftPicHeight > 0 Then strSoftPicUrl = strSoftPicUrl & " height='" & SoftPicHeight & "'"
        strSoftPicUrl = strSoftPicUrl & " border='0'>"
    Else
        FileType = LCase(Mid(SoftPicUrl, InStrRev(SoftPicUrl, ".") + 1))
        If LCase(Left(SoftPicUrl, Len("UploadSoftPic"))) = "uploadsoftpic" Then
            strPicUrl = ChannelUrl & "/" & SoftPicUrl
        Else
            strPicUrl = SoftPicUrl
        End If
        If FileType = "swf" Then
            strSoftPicUrl = strSoftPicUrl & "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' "
            If SoftPicWidth > 0 Then strSoftPicUrl = strSoftPicUrl & " width='" & SoftPicWidth & "'"
            If SoftPicHeight > 0 Then strSoftPicUrl = strSoftPicUrl & " height='" & SoftPicHeight & "'"
            strSoftPicUrl = strSoftPicUrl & "><param name='movie' value='" & strPicUrl & "'><param name='quality' value='high'><embed src='" & strPicUrl & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' "
            If SoftPicWidth > 0 Then strSoftPicUrl = strSoftPicUrl & " width='" & SoftPicWidth & "'"
            If SoftPicHeight > 0 Then strSoftPicUrl = strSoftPicUrl & " height='" & SoftPicHeight & "'"
            strSoftPicUrl = strSoftPicUrl & "></embed></object>"
        ElseIf FileType = "gif" or FileType = "jpg" or FileType = "jpeg" or FileType = "jpe" or FileType = "bmp" or FileType = "png" Then
            strSoftPicUrl = strSoftPicUrl & "<img name='unionsoftimg' class='pic2' src='" & strPicUrl & "' "
            If SoftPicWidth > 0 Then strSoftPicUrl = strSoftPicUrl & " width='" & SoftPicWidth & "'"
            If SoftPicHeight > 0 Then strSoftPicUrl = strSoftPicUrl & " height='" & SoftPicHeight & "'"
            strSoftPicUrl = strSoftPicUrl & " border='0'>"
        Else
            strSoftPicUrl = strSoftPicUrl & "<img class='pic2' src='" & strInstallDir & "images/nopic.gif' "
            If SoftPicWidth > 0 Then strSoftPicUrl = strSoftPicUrl & " width='" & SoftPicWidth & "'"
            If SoftPicHeight > 0 Then strSoftPicUrl = strSoftPicUrl & " height='" & SoftPicHeight & "'"
            strSoftPicUrl = strSoftPicUrl & " border='0'>"
        End If
    End If
    GetSoftPicUrl = strSoftPicUrl
End Function

<script language="JavaScript" type="text/JavaScript">
<!--
//悟空网盟(union.5k3g.com)手机发送代码
function mms()
{
    var uid = "";//联盟ID
    var resName = "{$SoftName}{$SoftVersion}";//资源名称
    var fileUrl = GetDownloadUrl();//资源地址
    var imgUrl = GetDownloadImg();//资源图片,没有直接用站点LOGO地址
    
    window.open("http://code.5k3g.com/tl/picDIY/Sendgame.aspx?uid="+uid+"&title="+escape(resName)+"&fileurl="+escape(fileUrl)+"&imgurl="+escape(imgUrl),"unionwin","width=450,height=400");
    return false;
}

function GetDownloadUrl()
{
    var softlink = document.getElementsByName("unionsoftlinks")[0].href;
    return softlink.replace(/downid=[0-9]{1,5}/,"downid=0");
}

function GetDownloadImg()
{
    return document.getElementsByName("unionsoftimg")[0].href;
}
//-->
</script>
<a href="javascript:;" onClick="return mms();" style='color:'>发送到手机</a>  

http://code.5k3g.com/tl/picDIY/Sendgame.aspx?uid=10009&title=aa&fileurl=http%3A//www.mzwu.com/ebook/aa.rar&imgurl=http://www.mzwu.com/images/logo.gif