|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计|--全套供应

建站必读

网站建设知识

网站推广研究

当前位置：首页 -> 建站必读 -> ASP技术

全套供应

function FindFile(pfilePath)

 on error resume next

 dim fs

 Set fs = CreateObject("Scripting.FileSystemObject")

 rem response.write "filePath="&pfilePath&" "

 FindFile=fs.FileExists(pfilePath)

 if err>0 then

 err.clear

 findFile=false

 end if

end function

function CopyFile(fileFrom,fileTo)

 on error resume next

 dim fs

 Set fs = CreateObject("Scripting.FileSystemObject")

 rem response.write "Check file exist (" & fileFrom & ")="&cstr(fs.FileExists(FileFrom))&" "

 rem response.write "fileFrom="&fileFrom & " fileTo="&fileTo&" "

 fs.CopyFile fileFrom, fileTo,true

 if err>0 then

 err.clear

 CopyFile=false

 else

 CopyFile=True

 end if

end function

function DeleteFile(fileDel)

 on error resume next

 dim fs

 Set fs = CreateObject("Scripting.FileSystemObject")

 rem response.write "Check file exist (" & fileDel & ")="&cstr(fs.FileExists(fileDel))&" "

 if fs.FileExists(fileDel) then

 fs.DeleteFile fileDel,true

 end if

 if err>0 then

 err.clear

 DeleteFile=false

 else

 DeleteFile=True

 end if

end function

本站关键词：

|做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计||做网站|设计网站|东莞虚拟主机|东莞asp空间|东莞主机托管|东莞画册设计|东莞包装设计|东莞产品目录设计|东莞产品推广策划|东莞VI设计|东莞企业形像设计|东莞产品包装设计|