ASP创建文本文件的函数

'[创建文本文件]
'函数名：WritTextFile
'作 用：创建文本文件
'参 数：Fname ---- 文本文件名称（包括路径）
'参 数：WritString ---- 写入的内容
'返回值：创建成功返回True，否则False
'**************************************************
Public Function WritTextFile(ByVal Fname,ByVal WritString)
Dim M_fso,FnameN
WritTextFile=False
Set M_fso = CreateObject("Scripting.FileSystemObject")
Set FnameN= M_fso.OpenTextFile(Fname,2,True)
FnameN.Write WritString
FnameN.Close
Set M_fso = Nothing
WritTextFile=True
End Function