'***函数名  : GetFileContent
'***函数说明: 获取指定路径的文件内容
'***参数    : sFilePath:  文件路径
'***返回值  : 指定路径的文件内容
Function GetFileContent(sFilePath)
    Dim Stream
    Set Stream = Server.CreateObject("ADODB.Stream")
    Stream.Type = 1        '二进制
    Stream.Mode = 3
    Stream.Open
    Stream.LoadFromFile sFilePath
    Stream.Position = 0
    Stream.Type = 2        '文本数据
    Stream.Charset = "utf-8"
    GetFileContent = Stream.ReadText
    Stream.Close
    Set Stream = Nothing
End Function