newasp中main类(49)

        Else
            strExtName = Trim(ExtName)
        End If
        Select Case Trim(HtmlForm)
            Case "1"
                strFileName = Trim(id)
            Case "2"
                strFileName = Trim(PrefixStr) & Trim(Supplemental(id, 3))
            Case "3"
                strFileName = Left(strname, 8)
                strFileName = strFileName & Trim(Supplemental(id, 3))
            Case "4"
                strFileName = Right(strname, 7)
                strFileName = strFileName & Trim(Supplemental(id, 3))
            Case Else
                strFileName = strname
        End Select
        strFileName = Replace(strFileName & CurrentPage & strExtName, " ", "")
        ReadFileName = CStr(strFileName)
    End Function
    '================================================
    '过程名：HtmlRndFileName
    '作  用：取HTML的随机文件名
    '================================================
    Function HtmlRndFileName()
        Dim sRnd
        Randomize
        sRnd = Int(90 * Rnd) + 10
        HtmlRndFileName = Replace(Replace(Replace(FormatDate(Now(), 1), "-", ""), ":", ""), " ", "") & sRnd
    End Function