请教一段关于下载统计的代码!清高手指点一!

[newsp]

ASP+ACC环境下实现点击一下下载链接数据库里面的count字段就加1
我的目录是这样的:
__________________________________________
downloads/ep609/ '放的是要下载的文件
ep609/ '这下面放的是主页面和redirect.asp等文件
actone/#tone.mdb '放的是数据库
__________________________________________
代码如下
<a href="redirect.asp?filename=<%=rs(jzb)%>">下载</a>
redirect.asp:
redirect.asp:

cn.execute "update acc set count=count+1 "

response.redirect "/..download/ep609/" & request("filename")
不知道正确吗?不正确的话我该怎么改!如果那位朋友有更好的实现方法麻烦告诉我一下.
谢谢!!

[hookee]

思路是可以。
如果知道downloads/ep609/就可以直接下载了，不用访问redirect.asp。
如果将文件放到非web路径：

<%
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)
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
path = "C:\download\xxxx.xxx"
mimeType = "application/x-msdownload"
sucess = TransferFile(path, mimeType,"help.gif")
Response.End
%>