求高手给我加句代码 ASP的加一个输入框和一个按钮谢谢大家 - ASP.NET技术论坛

已结贴√ 问题点数：20 回复次数：2

求高手给我加句代码 ASP的加一个输入框和一个按钮谢谢大家

这是一个复制文件夹代码，是将文件夹2006复制生成一个2008文件夹。不想让它只默认生成2008文件夹，要复制生成更多名称的文件夹。
我的设想是在这个代码程序上加一个输入框和一个按钮，在输入框里输入数字点确认按钮就复制生成一个输入框里数字命名的文件夹。
希望大家能办小弟下，我对网页制作不是很会，照葫芦画瓢弄了几个月都没有弄好谢谢大家了
<%
Function CopyMyFolder(FolderName,FolderPath)
sFolder=server.mappath(FolderName)
oFolder=server.mappath(FolderPath)
set fso=server.createobject("scripting.filesystemobject")
if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在
fso.copyfolder sFolder,oFolder
Else '目标文件夹如果不存在就创建
CreateNewFolder = Server.Mappath(FolderPath)
fso.CreateFolder(CreateNewFolder)
fso.copyfolder sFolder,oFolder
End if
CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"
Else
CopyMyFolder="错误,原文件夹["&sFolde&"]不存在!"
End If
set fso=nothing
End Function
FolderName="2006" '原文件夹
FolderPath="2008" '目标文件夹
response.write""&CopyMyFolder(FolderName,FolderPath)&"" '复制文件夹2006下的所有内容到2008文件夹下并返回结果
%>

搜索更多相关主题的帖子: 网页制作　文件夹　命名　

第 2 楼

得分:20

<html>
<head>
   <title>abc</title>
   <script language="javascript">
   function submit_click()
    {
         if(document.getElementById("folderName").value=="")
         {
              alert('文件夹名称不能为空');
              return false;
         }
         doucment.form1.action=self.location.href;
         document.form1.submit();
    }
   </script>
</head>
<body>
<%
Function CopyMyFolder(FolderName,FolderPath)
  sFolder=server.mappath(FolderName)
  oFolder=server.mappath(FolderPath)
  set fso=server.createobject("scripting.filesystemobject")
   if fso.folderexists(server.mappath(FolderName)) Then'检查原文件夹是否存在
      if fso.folderexists(server.mappath(FolderPath)) Then'检查目标文件夹是否存在
         fso.copyfolder sFolder,oFolder
      Else '目标文件夹如果不存在就创建
         CreateNewFolder = Server.Mappath(FolderPath)
         fso.CreateFolder(CreateNewFolder)
         fso.copyfolder sFolder,oFolder
      End if
     CopyMyFolder="复制文件夹["&server.mappath(FolderName)&"]到["&server.mappath(FolderPath)&"]成功!"
  Else
     CopyMyFolder="错误,原文件夹["&sFolde&"]不存在!"
  End If
  set fso=nothing
End Function
if  Request.Form("folderName")<>"" Then
     FolderName="2006" '原文件夹
     FolderPath=Request.Form("folderName") '目标文件夹
     response.write""&CopyMyFolder(FolderName,FolderPath)&"" '复制文件夹2006下的所有内容到2008文件夹下并返回结果
end if
%>
  <form name="form1" method="post" >
    <input type="text" id="folderName" />
    <input type="button" id="submit" onclick="submit_click();" />
  </form>
</body>
</html>

第 3 楼

得分:0

学习，学习