Asp常用通用函数之读取路径(服务器IP加路径和服务物理路径)

 '函数名：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