|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般functionFindFile(pfilePath)
onerrorresumenext
dimfs
Setfs=CreateObject("Scripting.FileSystemObject")
remresponse.write"filePath="&pfilePath&"<BR>"
FindFile=fs.FileExists(pfilePath)
iferr>0then
err.clear
findFile=false
endif
endfunction
functionCopyFile(fileFrom,fileTo)
onerrorresumenext
dimfs
Setfs=CreateObject("Scripting.FileSystemObject")
remresponse.write"Checkfileexist("&fileFrom&")="&cstr(fs.FileExists(FileFrom))&"<BR>"
remresponse.write"fileFrom="&fileFrom&"<br>fileTo="&fileTo&"<BR>"
fs.CopyFilefileFrom,fileTo,true
iferr>0then
err.clear
CopyFile=false
else
CopyFile=True
endif
endfunction
functionDeleteFile(fileDel)
onerrorresumenext
dimfs
Setfs=CreateObject("Scripting.FileSystemObject")
remresponse.write"Checkfileexist("&fileDel&")="&cstr(fs.FileExists(fileDel))&"<BR>"
iffs.FileExists(fileDel)then
fs.DeleteFilefileDel,true
endif
iferr>0then
err.clear
DeleteFile=false
else
DeleteFile=True
endif
endfunction
</p>专业性的服务。有的ASP商提供垂直型的应用服务,针对某一特定行业提供应用服务。 |
|