SiteWeaver 内容管理系统解决中文名乱码问题第三种方法

'方法一可以解决下载地址中的中文名在另存为对框中的乱码问题，但只能直接点击下载
'Response.write "<meta http-equiv='refresh' content=""0;url='" & DownloadUrl & "'"">"

'方法二可以使用“目标另存为”，但会有中文乱码问题
Response.Redirect DownloadUrl

Dim DownloadUrl, FileExt
DownloadUrl = PE_Content.GetDownloadUrl()
DownloadUrl = Replace(DownloadUrl,  " ", " ")
[color=Red]Dim NewDownloadUrl
NewDownloadUrl = DownloadUrl[/color]
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 "<meta http-equiv='refresh' content=""0;url='" & DownloadUrl & "'"">"
    
    '方法二可以使用“目标另存为”，但会有中文乱码问题
    'Response.Redirect DownloadUrl
	
	[color=Red]'方法三可以解决下载地址中的中文名在另存为对框中的乱码问题，可以使用“目标另存为”，站内资源有效
	'服务器必须安装 AspUpload 上传组件 下载地址：http://down.chinaz.com/soft/9228.htm
	If InStr(NewDownloadUrl, "://") <= 0 Then
		Dim Upload
		Set Upload = Server.CreateObject("Persits.Upload")
		Upload.SendBinary Server.MapPath(NewDownloadUrl),True,"application/octet-binary",True
	Else
		Response.Redirect DownloadUrl
	End If[/color]
End Select