|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;上传|是不是存在|同名文件|源代码功效:反省以后目次下是不是存在指定的文件,假如存在就从头定名
<%
functionJudgeFileExit(strFileName)
DimobjFSO,objFile,objFJ
DimstrFilePath
DimblFJ
DimintFlag
intFlag=0
setobjFSO=CreateObject("Scripting.FileSystemObject")
strFilePath=server.MapPath("./")
ifright(strFilePath,1)"/"orright(strFilePath,1)""then
strFilePath=strFilePath&""
endif
blFJ=objFSO.FileExists(strFilePath&strFileName)
dowhileblFJ=true
intFlag=intFlag+1
blFJ=objFSO.FileExists(strFilePath&intFlag&strFileName)
loop
ifintFlag=0then
JudgeFileExit=strFileName
else
JudgeFileExit=intFlag&strFileName
endif
setobjFSO=nothing
endfunction
Response.WriteJudgeFileExit("22.htm")
%>
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。 |
|