'***函数名  : GetFileContent
'***函数说明: 获取文件内容
'***参数    : sFilePath: 需获取的文件路径
'***返回值  : 获取的文件内容
Function GetFileContent(sFilePath)
    Dim fso, file, sFileContent
    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(sFilePath) Then
        Set file = fso.OpenTextFile(sFilePath)
        sFileContent = file.ReadAll()
        file.Close()
        Set file = Nothing
    End If
    GetFileContent = sFileContent
    Set fso = Nothing
End Function