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
相关问答：
当结束时间大于开始时间则显示未完成
当结束时间小于开始时间则显示未达到任务
没有时间则显示正在进行中
asp代码应该怎么写
如:开始时间 结束时间 & ......
我有一个asp源码，但是出现一个文件，我用asp解密都是乱码
请教
VBScript code:
??
% # , #&')*) -0-(0%()(?
(((((((((((((((((((((((((( ......
最近我通过学习，感觉自己学的还可以了，想做一网站，但是一直都找不到题材，不知道做什么，希望各位给我点意见，如果有需求文档就更好了！希望大家给我点意见，谢谢！
先做个企业网站吧，我感觉一个人做网站不适宜 ......
文件：folder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&qu ......
一段时间后 就不能用的那种
可以用组件写吗?
组件 是不是必须先在服务器安装 才能使用?
那用虚拟主机的 不就没戏了....
ewebeditor就是要注册才能用的
貌似是没啥用� ......
