28,390
社区成员
发帖
与我相关
我的任务
分享文件未找到,错在哪里？
<%@LANGUAGE="VBSCRIPT"%>
<html>
<body>
<form action="<% =request.ServerVariables("SCRIPT_NAME")%>">
源文件<input type="file" name="filecopy" >
复制到<input type="file" name="destination" />
<input type="submit" value="复制">
</form>
<%
dim fsoObj,fObj,fObjdst
set fsoObj=server.CreateObject("scripting.FileSystemObject")
if request("filecopy")<>""then
set fObj=fsoObj.GetFile(request("filecopy"))
set fObjdst=fsoObj.GetFile(request("destination"))
fObj.copy fObjdst.ParentFolder&"\"&fObj.name &".bak"
end if
%>
</body>
</html>
<html>
<body>
<form action="<% =request.ServerVariables("SCRIPT_NAME")%>">
源文件<input type="file" name="filecopy" >
复制到<input type="file" name="destination" />
<input type="submit" value="复制">
</form>
<%
dim fsoObj,fObj,fObjdst
set fsoObj=server.CreateObject("scripting.FileSystemObject")
if request("filecopy")<>""then
set fObj=fsoObj.GetFile(request("filecopy"))
set fObjdst=fsoObj.GetFile(request("destination"))
fObj.copy fObjdst.ParentFolder&"\"&fObj.name &".bak"
end if
%>
</body>
</html>
...全文
请发表友善的回复…
发表回复
Jade 2007-09-03
- 打赏
- 举报
说得详细些,看不明白.
qq_13854514 2007-09-03
- 打赏
- 举报
就是要复制一个文件到指定文件夹，可是书上说这样就可以，但运行出错！为什么请高手指点！
孤剑 2007-09-02
- 打赏
- 举报
详细检查一下各个变量的值是否和期望的值相同就知道问题了。
