newasp中main类(47)

        End If
        sExtName = Split(url, ".")
        ExtName = sExtName(UBound(sExtName))
        If LCase(ExtName) = "swf" Then
            strTemp = "<embed src=""" & url & """" & strWidth & strHeight & ">"
        Else
            strTemp = "<img src=""" & url & """" & strWidth & strHeight & " border=0>"
        End If
        GetFlashAndPic = strTemp
    End Function
    '================================================
    '函数名：ReadFileUrl
    '作  用：读取文件URL
    '================================================
    Public Function ReadFileUrl(url)
        On Error Resume Next
        ReadFileUrl = ""
        If url = "" Then Exit Function
        Dim strTemp
        If CheckUrl(url) = 1 Then
            strTemp = Trim(url)
        ElseIf CheckUrl(url) = 2 Then
            strTemp = Trim(url)
        Else
            strTemp = Replace(url, "../", "")
            strTemp = Trim(InstallDir & strTemp)
        End If
        ReadFileUrl = strTemp
    End Function
    Public Function CheckUrl(ByVal url)
        Dim strUrl
        If Left(url, 1) = "/" Then
            CheckUrl = 1
            Exit Function