以下內容為程序代碼: 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里再把它替換回去就行了。我是為了讓編輯的添加工作簡化,所以才把復雜的事情交給程序員來做。
新聞熱點
疑難解答
圖片精選