如何用asp添加文件夹-花衣燕子别来

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

我想做个多用户相册BLOG系统

语言我只会ASP

用户上传的照片我想把他们分别存在/upload/用户名的文件夹里

也就是说每个用户上传的图片都在他自己的文件夹里

现在我的思路就是用户申请注册的时候，可不可以用asp语句在upload中建立一个以用户名命名的文件夹？

要有相关的代码语句

谢谢

解析:

使用FSO新建文件夹

Dim objFSO

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

path = Server.MapPath("\upload\user")

If objFSO.FolderExists(path) Then

Response.Write path&"文件夹已经存在！"

Else

objFSO.CreateFolder(path)

Response.Write "新建文件夹的位置为"&path

End If

Set objFSO = Nothing

花衣燕子这下出名了

'VBS/ASP 使用Adodb.Stream追加数据

Set dr = Server.CreateObject("Adodb.Stream")

dr.Type = adTypeBinary '二进制adTypeBinary 或文本 adTypeText

dr.Open

dr.LoadFromFile "C:\data.bin" '打开文件

dr.Position = dr.Size '指定往文件尾写入

'Stream.position = 0 '指定从其它Stream开始拷贝的位置

'Stream.copyto dr, size '从其它Stream拷贝相应长度的内容

dr.Write data '或直接写入相应数据

dr.SaveToFile "C:\data.bin", 2 '写入文件自身

dr.Close

Set dr = Nothing

---