newasp中main类(46)

                strImageUrl = Trim(url)
            ElseIf CheckUrl(url) = 2 Then
                strImageUrl = url
            Else
                strImageUrl = Replace(url, "../", "")
                strImageUrl = Trim(strTempUrl & strImageUrl)
            End If
        Else
            strImageUrl = InstallDir & "images/no_pic.gif"
        End If
        GetImageUrl = strImageUrl
    End Function
    '-----------------------------------------------------------------
    '================================================
    '作  用：读取图片或者FLASH
    '参  数：url ----文件URL
    '        height ----高度
    '        width ----宽度
    '================================================
    Function GetFlashAndPic(ByVal url, ByVal height, ByVal width)
        On Error Resume Next
        Dim sExtName, ExtName, strTemp
        Dim strHeight, strWidth

        If Not IsNumeric(height) Or height < 1 Then
            strHeight = ""
        Else
            strHeight = " height=" & height
        End If
        If Not IsNumeric(width) Or width < 1 Then
            strWidth = ""
        Else
            strWidth = " width=" & width