| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 601 人关注过本帖
标题:asp中fso复制文件夹问题请教
只看楼主 加入收藏
skyspace
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-7-25
收藏
 问题点数:0 回复次数:0 
asp中fso复制文件夹问题请教

我想注册一个用户,然后在网站的根目录下自动创建一个以注册名为名字的文件夹(这个已经解决),然后将网站根目录下的page文件夹复制到刚创建的文件夹中(需要各位解决).
谢谢!!


<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from users"
rs.open sql,conn,3,3

username=Request("username")

url=replace(Request.ServerVariables("script_name"),"config.asp","")
fullpath=server.MapPath(".")&"\"&username&"\"
userurl="http://"&Request.ServerVariables("server_name")&""&left(url,instrRev(url,"/",len(url)-1))&""
'以上三行代码不要修改

rs.addnew
rs("username") =Request("username")
rs("userpwd") =Request("userpwd")
rs("url") =userurl&username
rs("blogname") =Request("blogname")
rs("blogdom") =Request("blogdom")
rs("date") =date()
rs.update

session("username")=request("username")

Set fso = Server.CreateObject("Scripting.FileSystemObject")
userpath=fullpath&username

if fso.FolderExists(userpath) then
response.redirect("error.asp?error=userfolder")
response.end
else
set fso=CreateObject("Scripting.FileSystemObject")
fso.createfolder(fullpath)
end if

'我想把 fullpath 目录下的page文件夹复制到刚建立的那个文件夹下
'这里怎么写语句?
'谢谢!

rs.close
set rs=nothing
Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
Response.Write "alert('恭喜您!您已经成功提交了信息,\n请单击确定返回!');"
Response.Write "window.location='"
Response.Write (userurl&username)
Response.Write "'</SCRIPT>"
%>

搜索更多相关主题的帖子: fso asp 文件 
2007-07-27 08:47
快速回复:asp中fso复制文件夹问题请教
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060840 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved