标题: 手机发送代码投放参考之新云网站管理系统
作者: dnawo
日期: 2008-01-08 10:10 AM
分类: 程序修改
内容: 本次示例版本为v3.0.0.928，其他版本可参考修改。
1.准备工作
·站长的联盟ID；
·站点LOGO地址；
·后台管理帐号以便修改模板文件(后台默认地址http://www.mzwu.com/admin/admin_login.asp)；
·inc/cls_main.asp，修改预览图代码，如果站点资源没有预览图可不要此文件
2.修改步骤
修改之前得查看"软件频道模板管理→下载信息页面模板→修改模板基本设置→26、是否新开下载页面"的值，下边的修改步骤会因为这个值的不同而有所不同。当是否新开下载页面的值为0时采用方法一进行，当值为1时采用方法二进行。
方法一：
①打开"软件频道模板管理→下载信息页面模板→修改模板基本设置→21、显示下载地址"，修改如下(红色新增)：
复制内容到剪贴板 程序代码<img src="{$InstallDir}{$SkinPath}icon_downloadserver.gif" border="0" /> <a href="{$DownLoadUrl}" class="downLinks" target="_blank" name="unionsoftlinks">{$DownLoadName}</a><br />
②打开"软件频道模板管理→下载信息页面模板→编辑模板界面风格"，找到"{$DownAddress}"，在其前面增加下边代码：
复制内容到剪贴板 程序代码<script language="JavaScript" type="text/JavaScript">
<!--
//悟空网盟(union.5k3g.com)手机发送代码
function mms()
{
var uid = "";//联盟ID
var resName = "{$SoftName}";//资源名称
var fileUrl = GetDownloadUrl();//资源地址
var imgUrl = "";//资源图片,没有直接用站点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()
{
return document.getElementsByName("unionsoftlinks")[0].href;
}
function GetDownloadImg()
{
return document.getElementsByName("unionsoftimg")[0].href;
}
//-->
</script>
<img src="{$InstallDir}{$SkinPath}icon_downloadserver.gif" border="0" /> <a href="javascript:;" onClick="return mms();" style='color:'>发送到手机</a><br/>
方法二：
①打开"软件频道模板管理→软件下载页面模板→修改模板基本设置→3、显示下载地址"，修改如下(红色新增)：
复制内容到剪贴板 程序代码<img src="{$InstallDir}{$SkinPath}icon_downloadserver.gif" border="0" /> <a href="{$DownLoadUrl}" class="downLinks" target="_blank" name="unionsoftlinks">{$DownLoadName}</a><br />
②打开"软件频道模板管理→软件下载页面模板→编辑模板界面风格"，找到"{$ShowDownAddress}"，在其前面增加下边代码：
复制内容到剪贴板 程序代码<script language="JavaScript" type="text/JavaScript">
<!--
//悟空网盟(union.5k3g.com)手机发送代码
function mms()
{
var uid = "";//联盟ID
var resName = "{$PageTitle}";//资源名称
var fileUrl = GetDownloadUrl();//资源地址
var imgUrl = "";//资源图片,没有直接用站点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()
{
return document.getElementsByName("unionsoftlinks")[0].href;
}
function GetDownloadImg()
{
return document.getElementsByName("unionsoftimg")[0].href;
}
//-->
</script>
<img src="{$InstallDir}{$SkinPath}icon_downloadserver.gif" border="0" /> <a href="javascript:;" onClick="return mms();" style='color:'>发送到手机</a><br/>
资源图片参数(imgUrl)设置说明：
如果站点资源有预览图时需修改cls_main.asp中的GetFlashAndPic函数，修改如下(红色新增)：
复制内容到剪贴板 程序代码Function GetFlashAndPic(ByVal url, ByVal height, ByVal width)
Dim sExtName, ExtName, strTemp
Dim strHeight, strWidth
If Not IsNumeric(height) or height < 1 Then
strHeight = ""
Else
strHeight = " height=""" & height & """"
End If
If Not IsNumeric(width) or width < 1 Then
strWidth = ""
Else
strWidth = " width=""" & width & """"
End If
sExtName = Split(url, ".")
ExtName = sExtName(UBound(sExtName))
If LCase(ExtName) = "swf" Then
strTemp = "<embed src=""" & url & """" & strWidth & strHeight & "/>"
Else
strTemp = "<img src=""" & url & """" & strWidth & strHeight & " border=""0"" name=""unionsoftimg"" />"
End If
GetFlashAndPic = strTemp
End Function
然后设置imgUrl = GetDownloadImg()；
如果站点资源没有预览图则直接把LOGO地址赋值给imgUrl。
3.检查结果
在页面(静态页修改后得重新生成)上点击"发送到手机"，在弹出的窗口中用右键点击空白部分选择属性，并复制出地址，应和下边地址类似：
复制内容到剪贴板 程序代码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
主要看下uid是否正确，fileurl必须为绝对地址并且可以直接下载到资源(不能有防盗链、要求安装迅雷、快车等)！
+ 查看当前日志评论 (0)
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.031 ms
你没有权限发表评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.031 ms
暂无评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.048 ms