newasp中main类(48)

        End If
        strUrl = LCase(Left(url, 6))
        Select Case Trim(strUrl)
        Case "http:/", "https:", "ftp://", "rtsp:/", "mms://"
            CheckUrl = 2
            Exit Function
        Case Else
            CheckUrl = 0
        End Select
    End Function
    '================================================
    '函数名：ReadFileName
    '作  用：读取HTML文件名
    '参  数：strname ----文件名称
    '        id ----数据ID
    '        ExtName ----HTML扩展名
    '        PrefixStr ----HTML名称前缀
    '        HtmlForm ----HTML文件格式
    '        n ----HTML分页
    '================================================
    Public Function ReadFileName(ByVal strname, ByVal id, ByVal ExtName, ByVal PrefixStr, ByVal HtmlForm, ByVal n)

        Dim strFileName, strExtName, CurrentPage
        If Trim(strname) = "" Then Exit Function
        If Trim(ExtName) = "" Then ExtName = ".html"
        If Not IsNumeric(n) Then n = 0
        On Error Resume Next
        If CInt(n) <= 1 Then
            CurrentPage = ""
        Else
            CurrentPage = "_" & n
        End If
        If Left(ExtName, 1) <> "." Then
            strExtName = "." & Trim(ExtName)