路径未找到
/fun/fso.asp，行 123
'***********************************************
'函数名：MoveFileAs
'作 用：把原始文件移动到指定文件包并重命名
'参 数：FileUrl：原始文件路径/文件名，为网站下的相对路径
' FileUrlTo：目标文件路径/文件名，为网站下的相对路径
'返回值：MoveFileAs (0表示源文件不存在而移动失败，1表示移动成功)
'***********************************************
function MoveFileAs(FileUrl,FileUrlTo)
FiLePaTh = FileUrl
if instr(FileUrl,":/")=0 and instr(FileUrl,":\")=0 then FiLePaTh = Server.MapPath(trim(FileUrl))
FiLePaThTo =FileUrlTo
if instr(FileUrlTo,":/")=0 and instr(FileUrlTo,":\")=0 then FiLePaThTo = Server.MapPath(trim(FileUrlTo))
Set fso = CreateObject("Scripting.FileSystemObject")
MoveFileAs=0
If Fso.FileExists(FiLePaTh) = True Then
Set f2 = fso.GetFile(FiLePaTh)
f2.Move (FiLePaThTo) -----------------------------------------123 行
MoveFileAs=1
end if
set f2=nothing
set fso=nothing
End function
%>
------------------------
代码是别人给的。 应该是正确完整的。 到我服务器上就不可以用 。
我估计是 缺少了 什么插件。 或者 没有 写入权限 之类的。
那位大哥， 可以给与解答啊。
谢谢了
