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