FileSystemObject相关
Sub WriteFile1(Text,FileSavePath)
Dim Fso
Text=GetHttpPage(Text)
Set Fso = Server.CreateObject("ADODB.Stream")
Fso.Open
Fso.Charset = "GB2312"
Fso.Position = Fso.Size
Fso.WriteText Text
Fso.SaveToFile Server.mappath(FileSavePath),2
Fso.close:Set Fso=Nothing
End Sub