急救~!!自动生成htm页面的方法~!

Question

'===========================================================
'创建文件同时写入内容自定义过程，
'使用方法:
'Call FileSub("路径+文夹名,内容")
'网络学子　2003年2月16日　Email:[email protected]
Function FileSub(addFile,Fcontent)
On Error Resume Next
dim Fname,OutContent
Fname = addFile
OutContent = Fcontent
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
Set Fout = fso.CreateTextFile(server.mappath(Fname))
Fout.Write(OutContent)
Fout.close
set FSO = Nothing
End Function