<% '************************************************************** ' Software name: PowerEasy SiteWeaver ' Web: http://www.powereasy.net ' Copyright (C) 2005-2008 佛山市動易網絡科技有限公司 版權所有 '************************************************************** '強制瀏覽器重新訪問服務器下載頁面,而不是從緩存讀取頁面 Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Dim DownloadUrl, FileExt DownloadUrl = PE_Content.GetDownloadUrl() Set PE_Content = Nothing Call CloseConn If DownloadUrl = "ErrorDownloadUrl" Then Response.End FileExt = LCase(Mid(DownloadUrl, InStrRev(DownloadUrl, ".") + 1)) If InStr(DownloadUrl, "://") <= 0 Then DownloadUrl = "http://" & Trim(Request.ServerVariables("HTTP_HOST")) & DownloadUrl End If Select Case FileExt Case "wmv", "mpg", "asf", "mp3", "mpeg", "avi" ShowMediaPlayer (DownloadUrl) Case "rm", "ra", "ram" ShowRealPlayer (DownloadUrl) Case Else '方法一可以解決下載地址中的中文名在另存為對框中的亂碼問題,但只能直接點擊下載 'Response.write "" '方法二可以使用“目標另存為”,但會有中文亂碼問題 Response.Redirect DownloadUrl End Select Function ShowMediaPlayer(strUrl) %> <% End Function Function ShowRealPlayer(strUrl) %>
<% End Function %> 二十二世纪古墓奇兵百度云盘 博猫官方登录注册 河北时时11选五开奖结果查询结果 鼎丰国际怎么样 快乐时时官方网址 炸金花百人场技巧 二人斗地主规则及玩法 重庆欢乐生肖五星走势图 全天澳门时时彩 重庆时时彩APP安卓系统 aa国际动漫怎么样 彩八彩票com 领航智能计划软件pk10