download.asp

现在的病毒是越来越多了,几乎每上一回电脑都要杀毒,所以杀毒软件是必不可少的

<%strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../Database/bgxt.mdb") '## MS Access 2000 using virtual path
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.open strConnString
Set my_rs= Server.CreateObject("ADODB.Recordset") 
    filename=Request("file")
    set my_rs=server.createobject("adodb.recordset")
   sqlstr="select * from 系统日志信息"
   my_rs.open sqlstr,my_Conn,1,3
   my_rs.addnew
   my_rs("使用者名称")=session("username")
   my_rs("所做事件")="下载文件，文件名是"&filename
   my_rs.update
   my_rs.close

call downloadFile(replace(replace(filename,"\",""),"/",""))  
Function downloadFile(strFile)  
' make sure you are on the latest MDAC version for this to work  
 ' -------------------------------------------------------------  
 ' get full path of specified file  
 strFilename = server.MapPath(strFile)  
 ' clear the buffer  
 Response.Buffer = True  
 Response.Clear  
 ' create stream  
 Set s = Server.CreateObject("ADODB.Stream")  
 s.Open  
 ' Set as binary  
 s.Type = 1  
 ' load in the file  
 on error resume next  
 ' check the file exists  
 Set fso = Server.CreateObject("Scripting.FileSystemObject")  
 if not fso.FileExists(strFilename) then  
 Response.Write("<h1>Error:</h1>" & strFilename & " does not exist<p>")  
 Response.End  
 end if  
 ' get length of file  
 Set f = fso.GetFile(strFilename)  
 intFilelength = f.size  
 s.LoadFromFile(strFilename)  
 if err then  
 Response.Write("<h1>Error: </h1>" & err.Description & "<p>")  
 Response.End  
 end if  
 ' send the headers to the users browser  
 Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name  
 Response.AddHeader "Content-Length", intFilelength  
 Response.CharSet = "UTF-8"  
 Response.ContentType = "application/octet-stream"  
  
 ' output the file to the browser  
 Response.BinaryWrite s.Read  
 Response.Flush  
 ' tidy up  
 s.Close  
 Set s = Nothing  
 End Function  
 %>