Function getfulltext(ByVal full_filename, errortips)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(full_filename) Then
Set objCountFile = objFSO.OpenTextFile(full_filename, 1, True)
If Not objCountFile.AtEndOfStream Then getfulltext = objCountFile.ReadAll
Set objCountFile = Nothing
Else
getfulltext = errortips
End If
Set objFSO = Nothing
End Function
Function getfulltext(ByVal full_filename, errortips)
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(full_filename) Then
Set objCountFile = objFSO.OpenTextFile(full_filename, 1, True)
If Not objCountFile.AtEndOfStream Then getfulltext = objCountFile.ReadAll
Set objCountFile = Nothing
Else
getfulltext = errortips
End If
Set objFSO = Nothing
End Function