中国站长论坛

Function FSOFileRead(Template_Name)
Dim objFSO,objCountFile,FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
FSOFileRead = objCountFile.ReadAll
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
End Function 

Function LoadFile(Template_Name)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = 2
.Mode = 3
.Open
.LoadFromFile Server.MapPath(Template_Name)
.Charset = "UTF-8"
.Position = 2
LoadFile = .ReadText
.Close
End With
Set objStream = Nothing
End Function