手机发送代码投放参考之新云网站管理系统

手机发送代码投放参考之新云网站管理系统 本次示例版本为v3.0.0.928，其他版本可参考修改。 ?站长的联盟ID； ?站点LOGO地址； ?后台管理帐号以便修改模板文件(后台默认地址 )； ?inc/cls_main.asp，修改预览图代码，如果站点资源没有预览图可不要此文件 修改之前得查看"软件频道模板管理?下载信息页面模板?修改模板基本设置 ?26、是否新开下载页面"的值，下边的修改步骤会因为这个值的不同而有所不 同。当是否新开下载页面的值为0时采用方法一进行，当值为1时采用方法二进 行。 方法一： ?打开"软件频道模板管理?下载信息页面模板?修改模板基本设置?21、显示 下载地址"，修改如下(红色新增)： 程序代码 {$DownLoadName}
?打开"软件频道模板管理?下载信息页面模板?编辑模板界面风格"，找到 "{$DownAddress}"，在其前面增加下边代码： 程序代码 发送 到手机
方法二： ?打开"软件频道模板管理?软件下载页面模板?修改模板基本设置?3、显示下 载地址"，修改如下(红色新增)： 程序代码 {$DownLoadName}
?打开"软件频道模板管理?软件下载页面模板?编辑模板界面风格"，找到 "{$ShowDownAddress}"，在其前面增加下边代码： 程序代码 发送 到手机
资源图片参数(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 = "" Else strTemp = "" End If GetFlashAndPic = strTemp End Function 然后设置imgUrl = GetDownloadImg()； 如果站点资源没有预览图则直接把LOGO地址赋值给imgUrl。 在页面(静态页修改后得重新生成)上点击"发送到手机"，在弹出的窗口中用右键点击空白部分选择属性，并复制出地址，应和下边地址类似： 程序代码 ;title=aa&fileu rl=http%3A//www.mzwu.com/ebook/aa.rar&imgurl= es/logo.gif 主要看下uid是否正确，fileurl必须为绝对地址并且可以直接下载到资源(不 能有防盗链、要求安装迅雷、快车等)！