文件转移后压缩并直接存进数据库后直接读出并解压完整代码
来源:互联网 发布:linux五笔输入法下载 编辑:程序博客网 时间:2024/04/30 10:49
转移:
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)
这是我集中了大家所长的,拿出来回归社会!!!
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)
这是我集中了大家所长的,拿出来回归社会!!!
- 文件转移后压缩并直接存进数据库后直接读出并解压完整代码
- Asp.Net FileUpload选择图片后预览,并直接上传
- android解压zip到sdcard,并读取解压缩后文件中的xml特定信息,并保存到数据库
- 直接创建文件,并保存
- 读出一个文本文件,并在前面加上行号后,写入到另一个文件的简单例子
- C产生正态分布随机数写入文件并读出后用快速排序法排序
- ASE数据库大内存配置后服务进程直接down掉问题的解决
- SQLSERVER备份并压缩备份后的文件
- C#压缩解压文件并修改
- 文件上传压缩包并解压
- 直接修改Datagridview并保存到数据库
- 直接修改Datagridview并保存到数据库
- 直接修改Datagridview并保存到数据库
- 直接修改Datagridview并保存到数据库
- 不解压直接读取压缩包中的文件
- Java不解压直接读取压缩包文件
- Android程序解压缩zip文件,并加载显示解压后的文件内容
- href 后直接加?
- BIND 9 的高级配置
- 服装ERP应用(一) ERP帮助服装企业渠道扁平化
- ASP.NET2.0 HiddenField控件
- 将asp.net usercontrol(用户控件页)转变为普通控件
- IE弹出菜单
- 文件转移后压缩并直接存进数据库后直接读出并解压完整代码
- sqlserver简单示例
- use rpm to uninstall software
- B2B
- sql server 2005 T-SQL ALTER DATABASE (Transact-SQL)
- oracle数据类型分析
- 什么是动态链接库
- sql server 2005 T-SQL ALTER ENDPOINT (Transact-SQL)
- sql server 2005 T-SQL ALTER FULLTEXT CATALOG (Transact-SQL)