| 发表于：2007-03-06 19:21:244楼 得分:0 |
。。。。
我是用asp做的，没有.cs文件啊``
另外，我参考下面的例子做的。例子就可以正常获取。
<!--#include file= "commoncode.asp "-->
<link href= "../skin/defaultskin.css " rel= "stylesheet " type= "text/css ">
<%
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
response.buffer = true
response.expires = -1
response.expiresabsolute = now（) - 1
response.expires = 0
response.cachecontrol = "no-cache "
dim downloadurl, fileext
downloadurl = pe_soft.getdownloadurl（)
if downloadurl = "errordownloadurl " then response.end
set pe_soft = nothing
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 " <meta http-equiv= 'refresh ' content= " "0;url= ' " & downloadurl & " ' " "> "
'方法二可以使用“目标另存为”，但会有中文乱码问题
response.redirect downloadurl
end select
function showmediaplayer（strurl)
%>
<object id=mediaplayer1 codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#version=5,1,52,701standby=loading type=application/x-oleobject height=300 width=320 classid=clsid:6bf52a52-394a-11d3-b153-00c04f79faa6 viewastext>
<param name= "url " value= " <%=strurl%> ">
……
</object>
<%
end function
function showrealplayer（strurl)
%>
<object classid= 'clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa ' width= '300 ' height= '220 '>
<param name= 'controls ' value= 'imagewindow '>
<param name= 'console ' value= 'clip1 '>
<param name= 'autostart ' value= '-1 '>
<param name= 'src ' value= " <%=strurl%> ">
</object>
<br>
<object classid= 'clsid:cfcdaa03-8be4-11cf-b84b-0020afbbccfa ' width= '300 ' height= '60 '>
<param name= 'controls ' value= 'controlpanel,statusbar '>
<param name= 'console ' value= 'clip1 '>
</object>
<%
end function
%> | | |
|
