文件转移后压缩并直接存进数据库后直接读出并解压完整代码
2007-12-21 09:42
906 查看
转移: Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") MyFileObject.CopyFile server.MapPath("NewsFile/"&sSaveFileName&""),server.MapPath(""&sTitle&"/"&sSaveFileName&"") ''第一个是源路径,第二是目标路径,可为虚拟路径和物理路径。 创建并写入.htm文件: Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTextStream = oFSO.CreateTextFile(server.MapPath(""&sTitle&"")&"/"&sTitle&".htm",true) oTextStream.Write sContenta oTextStream.Close 压缩文件: Dim CmdDirr,RarNameDirr,RarSourceDirr CmdDirr=Server.MapPath("dos")&"/" 'cmd.exe和rar.exe存放的路径 RarNameDirr=Server.MapPath("content")&"/"&sTitle&"" '压缩成rar的名字和路径 RarSourceDirr=Server.MapPath("" & sTitle & "")&"" '要压缩的文件路径和名字 Dim Cmd,Shell Cmd=CmdDirr&"cmd.exe /c "&CmdDirr&"Rar.exe a -ep1 -o+ " ' -ep1 -o+分别为两个开关命令具体可参考WinRar的帮助 Cmd=Cmd&RarNameDirr&" "&RarSourceDirr On Error Resume Next Set Shell = Server.CreateObject("WScript.Shell") If Err or IsObject(Shell)=False Then If Err Then Err.Clear Response.Write "没有操作Shell权限..." Response.End End If On Error Resume Next Shell.Run Cmd,1,True If Err Then Err.Clear Response.Write "压缩文件时出错,可能没有操作权限" Response.End End If 将压缩包写进数据库: szFilepath =""&server.MapPath("content")&"/"&sTitle&".rar" '压缩包的地址和名字 Set fso=Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists(szFilepath) Then '判断压缩文件是否存在 Set ffile=fso.GetFile(szFilepath) If ffile.size > 0 Then '压缩文件是否为空 Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 1 .Mode = 0 .Open .LoadFromFile szFilepath ors("D_jdpath").AppendChunk objStream.Read '写进数据库 .Close End With set objstream=nothing Else Response.Write "<script language='javascript'>alert('文件不存在!')</script>" End If Set ffile=Nothing end if 从数据库中读出: szFPath = server.MapPath("./")&"/"&title&".rar" '压缩文件存放的地址 Set fso=createObject("Scripting.FileSystemObject") IF fso.FileExists(szFPath) Then '判断压缩文件地址有没有冲突 fso.DeleteFile(szFPath) End IF Dim objStream Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Type = 1 .Mode = 0 .Open .Write(rs("D_jdpath")) '从数据库里直接读出来,这里的数据库字段类型在MYSQL中为IMG在ACCESS中为OLE .SaveToFile(szFPath) .Close End With Set objStream = Nothing 解压文件: dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso Mlpath=server.MapPath("dos")&"/" '存放RAR.EXE和CMD.EXE的路径 ylj=Server.mappath("data")&"/" '解压文件后所放的路径 ywj=Server.MapPath("data")&"/MMGG.rar" '要解压的RAR文件 Set Shell = Server.CreateObject("WScript.Shell") rarcomm=Mlpath&"cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " cmd=rarcomm&ywj&" "&ylj RetCode = Shell.Run(cmd,1, False) 这是我集中了大家所长的,拿出来回归社会!!! |
相关文章推荐
- 在程序中压缩sql server2000的数据库备份文件的代码
- 从MFC资源文件获取压缩文件内存地址然后直接解压内存中资源文件到物理内存
- 在mvc3中使用Telerik的upload控件上传Zip压缩文件,服务器端解压逐个上传到数据库,使用Ionic.Zip
- Swift实现文件压缩和解压示例代码
- 从数据库读出数据到excel完整代码
- java压缩解压文件(代码记录)
- java直接生成zip压缩文件精简代码(跳过txt文件)
- 数据库连接的两种实现方式(读取配置文件)——DBCP&C3P0;DBCP实现连接代码,C3P0实现连接代码——包含完整代码
- Java解压文件代码(相当于你在目录中选中压缩文件 右键解压)
- 通过C#代码 压缩/解压文件
- 用java代码实现文件的zip压缩与解压
- python代码:本地压缩文件,然后连接远端linux,上传文件,解压,安装
- java代码实现加密压缩文件解压
- 数据库连接的两种实现方式(读取配置文件)——DBCP&C3P0;DBCP实现连接代码,C3P0实现连接代码——包含完整代码
- java对zip文件的解压处理直接访问压缩文件
- 操作、压缩MDB文件;使用ADO读写Mysql数据库;建立数据库和表的VBS脚本代码(2013-08-26 11:39:34)
- Asp.net在线文件压缩与解压实例代码
- 解压ZIP压缩文件(PHP代码函数)
- 压缩文件上传,然后再解压。这是一段有bug的代码,供自己以后需求参考
- 在程序中压缩sql server2000的数据库备份文件的代码