读取两种路径代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】读取两种路径

作者: / 发布于2011/1/5/ 601

<div>'************************************************** 
 '函数ID：0004[读取两种路径] 
 '函数名：Readsyspath 
 '作 用：读取路径 
 '参 数：lx ---- 0:服务器IP加路径 1:服务物理路径 
 '返回值：路径字串 
 '************************************************** 
 Public Function Readsyspath(ByVal lx) 
 Dim templj,aryTemp,newpath 
 templj="" 
 newpath="" 
 If lx=0 Then 
 templj="<a href="http://"&Request("SERVER_NAME")&Request("PATH_INFO">http://"&Request("SERVER_NAME")&Request("PATH_INFO</a>") 
 aryTemp = Split(templj,"/") 
 Else 
 templj=Request("PATH_TRANSLATED") 
 aryTemp = Split(templj,"\") 
 End If 
 For i = LBound(aryTemp) To UBound(aryTemp)-1 
 If lx=0 Then 
 newpath=newpath&aryTemp(i)&"/" 
 Else 
 newpath=newpath&aryTemp(i)&"\" 
 End If 
 Next 
 Readsyspath=newpath 
 End Function 
 '************************************************** 
 '函数ID：0005[测试某个文件存在否] 
 '函数名：CheckFile 
 '作 用：测试某个文件存在否 
 '参 数：ckFilename ---- 被测试的文件名（包括路径） 
 '返回值：文件存在返回True,否则False 
 '************************************************** 
 Public Function CheckFile(ByVal ckFilename) 
 Dim M_fso 
 CheckFile=False 
 Set M_fso = CreateObject("Scripting.FileSystemObject") 
 If M_fso.FileExists(ckFilename) Then 
 CheckFile=True 
 End If 
 Set M_fso = Nothing 
 End Function 
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　读取路径　

同语言下

可能有用的

贡献的其它代码Label