Sub Fsofile(Dimfileparameter,fileparameter,MapPaths)
'函数：利用FSO向文件写内容
'==================================================
'作者:飞飞
'网址:www.ffasp.com
'QQ:276230416
'邮箱:rabbit25132008@gmail.com
'==================================================
'参数说明
'fileparameter: 要写入的信息
'Dimfileparameter 要写入的信息变量
'MapPaths 文件路径
Dim Fso,Fs
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fs=Fso.CreateTextFile(Server.MapPath(MapPaths),true)
Fs.WriteLine("<"&"%")
Fs.writeLine("Const "&Dimfileparameter&"= "&chr(34)&fileparameter&chr(34))
Fs.WriteLine("%"&">")
Set Fs=Nothing
End Sub