以下内容为程序代码: Do While Not rsField.EOF Dim vtempStr vtempStr = rsSoft(Trim(rsField("FieldName"))) If Instr(vtempStr, "FlvUrl") > 0 Then vtempStr = Replace(vtempStr, "&", "$thand$") strHtml = PE_Replace(strHtml, rsField("LabelName"), PE_HTMLEncode(vtempStr)) rsField.MoveNext Loop |
www.cmsxx.com,http://%77%77%77.cmsxx.com
这样我们的Request.QueryString("flashUrl")就可以得到完整的flash地址了,我们在使用它之前再把“$thand$”替换成“&”,放到flash嵌入代码的"Movie"参数值里。
测试结果:效果很好,内嵌的flash播放器就是vlog提供的具有全屏、随意拖动、随意变换电影风格、可控制进度、可暂停、可调音量的flash播放器。视频源地址依然是隐藏(对大多数访问者而言)。
附1:还有另外一个问题——视频缩略图如果添加外部地址,还是会在前面被加上主站缩略图上传路径的URL。添加外部URL地址如果不是以http开头的,也一样会被加上。而缩略图地址即使以http开头,仍然会被加上。建议这里加一个判断,如果以“http://”打头的,就不要再引用完整的上传路径了。 附2:如果你是自己管理,那么有更简单的方式,添加视频地址的时候把“$$$”改成“$$”,在ShowDownload.asp里再把它替换回去就行了。我是为了让编辑的添加工作简化,所以才把复杂的事情交给程序员来做。
新闻热点
疑难解答
图片精选