读取路径

2010-1-31 08:04| 发布者: admin| 查看: 51| 评论: 0|原作者: 云忆

'函数ID：0004[读取两种路径]
'函数名：Readsyspath
'作用：读取路径
'参数：lx ---- 0:服务器IP加路径 1:服务物理路径
'返回值：路径字串
'**************************************************
Public Function Readsyspath(ByVal lx)
Dim templj,aryTemp,newpath
templj=""
newpath=""
If lx=0 Then
templj="http://"&Request("SERVER_NAME")&Request("PATH_INFO")
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

收藏分享邀请

		自动登录	找回密码
密码			注册

读取路径

最新评论

相关分类