UC知道急！asp隐藏下载地址的问题
来源：百度知道 编辑：UC知道 时间：2024/05/30 22:45:40
程序代码：
m_ID=trim(request.QueryString("mid"))
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from MTVsong where idget='"&m_ID&"'",conn,1,1
Dname=replace(replace(trim(rs("mtvrout")),":\","\"),"\","/")
rs.close
set rs=nothing
url=Server.MapPath(Dname)
Set fso=Server.CreateObject("Scripting.hnylifisoscri")
Set fl=fso.getfile(url)
flsize=fl.size
flName=Mid(Dname, InStrRev(Dname, "/")+1)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Select Case fso.GetExtensionName(Dname)
Case "avi"
ContentType = "video/avi"
Case "wav"
ContentType = "audio/wav"
Case "mpg","mpeg"
ContentType = "video/mpeg&q
m_ID=trim(request.QueryString("mid"))
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from MTVsong where idget='"&m_ID&"'",conn,1,1
Dname=replace(replace(trim(rs("mtvrout")),":\","\"),"\","/")
rs.close
set rs=nothing
url=Server.MapPath(Dname)
Set fso=Server.CreateObject("Scripting.hnylifisoscri")
Set fl=fso.getfile(url)
flsize=fl.size
flName=Mid(Dname, InStrRev(Dname, "/")+1)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile url
Select Case fso.GetExtensionName(Dname)
Case "avi"
ContentType = "video/avi"
Case "wav"
ContentType = "audio/wav"
Case "mpg","mpeg"
ContentType = "video/mpeg&q
Dname=replace(replace(trim(rs("mtvrout")),":\","\"),"\","/")
...
Select Case fso.GetExtensionName(Dname)
当你的记录集中*.WAV(大写)时,
fso.GetExtensionName()得到的将是 WAV
而在你的Case "wav" 不会匹配
用LCase(Dname)
Select Case fso.GetExtensionName(LCase(Dname))
处理大小写的问题，在上传模块中就应该解决，数据库应该存储统一的格式才对