神马品牌网新版海盗港湾第8天困难:asp Server.CreateObject("ADODB.Stream") 的问题
来源：百度文库 编辑：神马品牌网 时间：2024/05/06 18:57:45
IF Session("xj58") = True THEN 'session验证
Response.buffer = True '开启缓存
Response.ContentType = "audio/x-pn-realaudio" '设置浏览器按照audio/x-pn-realaudio解析输出数据
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream") '创建ADODB.stream对象
objStream.Type = 1 '以二进制读取模式
objStream.Open
objStream.LoadFromFile server.mappath("wmdjnr.rm") '读取文件
Response.binarywrite objStream.Read '以二进制的方式输出至客户端浏览器
response.Flush() '边缓存边输出
Session("afon")=false '重新设置session为FALSE
objStream.Close
Set objStream = Nothing '关闭和销毁对象
else
response.write "地址不存在!"
end if
%>
上面的程序是防嗅探的,我现在想把server.mappath("wmdjnr.rm")改成外部的地址,有那位高手可以指点我,谢谢,本人qq446337790
在线等,非常感谢!
Response.buffer = True '开启缓存
Response.ContentType = "audio/x-pn-realaudio" '设置浏览器按照audio/x-pn-realaudio解析输出数据
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream") '创建ADODB.stream对象
objStream.Type = 1 '以二进制读取模式
objStream.Open
objStream.LoadFromFile server.mappath("wmdjnr.rm") '读取文件
Response.binarywrite objStream.Read '以二进制的方式输出至客户端浏览器
response.Flush() '边缓存边输出
Session("afon")=false '重新设置session为FALSE
objStream.Close
Set objStream = Nothing '关闭和销毁对象
else
response.write "地址不存在!"
end if
%>
上面的程序是防嗅探的,我现在想把server.mappath("wmdjnr.rm")改成外部的地址,有那位高手可以指点我,谢谢,本人qq446337790
在线等,非常感谢!