asp路径的问题

下面的代码是用asp来下载exe文件的，和直接下载exe的区别就是他保存的文件名是获取浏览器ID生成的。代码正常使用，但是我希望能把FileName改成物理路径，格式是：d:/web/down/a.exe 小弟菜菜，高手帮忙。
(另:我觉得代码有点臃肿，能帮我写个简单的吗？）
SQL code:
ID = Request.QueryString("ID")
Dim Stream
Dim Contents
Dim FileName
Dim FileNames
Dim FileExt
Const adTypeBinary = 1
FileName = "av_play.exe" '要下载的文件名 集成到程序里请自己用函数实现
ok=1 '设置保存文件的方式 0为默认名字 1为下面设置的名字
if ok=1 then
FileNames = ""&id&".exe" '要保存的文件名（当保存方式为0时，此设置无效）
else
FileNames = FileName
end if
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1)
Select Case UCase(FileExt)
Case "ASP", "ASA", "ASPX", "ASAX", "MDB"
Response.Write "受保护文件,不能下载."
Response.End
End Select
' 下载这个文件
Response.Clear
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "attachment; filename="&filenames&""
Set Stream = server.CreateObject("ADODB.Stream")
Stream.Type = adTypeBinary
Stream.Open
Stream.LoadfromFile Server.MapPath(FileName)
While Not Stream.EOS
Response.BinaryWrite Stream.Read(1024 * 64)
Wend
Stream.C