asp中用fso读写文本文件实例

<%
if request.Form("action")="edit" then
Set FSO = Server.CreateObject("Scripting.FileSystemObject") powered by 25175.net
File = Server.MapPath("config.asp")

If FSO.FileExists(File) = True Then '判断该文件是否存在
fso.DeleteFile (File)
End If
Set CTF = FSO.CreateTextFile(File,true, False) '新建文件

CTF.Writeline "<%"

CTF.WriteLine "OnliveUrl="""&request.Form("OnliveUrl")&""" '直播地址"
CTF.WriteLine "Url="""&request.Form("Url")&""" '直播地址"
CTF.WriteLine "jm="""&request.Form("jm")&""" '节目名称"
CTF.WriteLine "jmstr="""&request.Form("jmstr")&""" '节目介绍"
CTF.WriteLine "dbqq="""&request.Form("dbqq")&""" '导播qq"
CTF.WriteLine "jmlink="""&request.Form("jmlink")&""" '讨论连接"
CTF.WriteLine "live="&request.Form("live") '直播"
CTF.WriteLine "showmes="""&request.Form("showmes")&""" '非直播时信息"
CTF.WriteLine "%"&">"

Set ctf = Nothing
Set FSO = Nothing
response.Redirect("admin_manage.asp")
end if
%>