.asp页面上文件下载代码

谁有asp页面上的文件下载代码？
就是在页面里写代码。
我学jsp的。让我弄asp真有点晕啊。。
我自己也在网上荡了个。但是有问题：erp.asp页面 <a href="../erp_xz.asp">产品帮助说明文档下载</a>erp_xz.asp页面
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head><body>
<%
Const ForReading=1
Const TristateTrue=-1 'Unicode
Const FILE_TRANSFER_SIZE=16384 '16k 'Use the following line for IIS4/PWS - this is the default for IIS5
Response.Buffer = True Function TransferFile(path, mimeType, filename)
Dim objFileSystem, objFile, objStream
Dim char
Dim sent
send=0
TransferFile = True Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFileSystem.GetFile(Path)//就是这里有问题path路径不对
Set objStream = objFile.OpenAsTextStream(ForReading, TristateTrue) Response.AddHeader "content-type", mimeType
response.AddHeader "Content-Disposition","attachment;filename="&filename 
Response.AddHeader "content-length", objFile.Size Do While Not objStream.AtEndOfStream
    char = objStream.Read(1)
    Response.BinaryWrite(char)
    sent = sent + 1
    If (sent MOD FILE_TRANSFER_SIZE) = 0 Then
        Response.Flush
        If Not Response.IsClientConnected Then
            TransferFile = False
            Exit Do
        End If
    End If
Loop Response.Flush
If Not Response.IsClientConnected Then TransferFile = False objStream.Close
Set objStream = Nothing
Set objFileSystem = Nothing
End Function Dim path, mimeType, sucess
'Server.MapPath(path)
path = "D:/公司网站/公司网站/upload/"
mimeType = "application/x-msdownload" 
sucess = TransferFile(path, mimeType,"ERP.pdf")
Response.End
%>
</body>
</html>