sub creatXMLDoc
set fso=server.CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(server.MapPath(XMLfile)) then
set NewXMLfile=fso.CreateTextFile(server.MapPath(XMLfile),True)
NewXMLfile.writeline("<?xml version=""1.0"" encoding=""gb2312""?>")
NewXMLfile.writeline("<book></book>")
NewXMLfile.close
end if
end sub
posted on 2008-04-03 16:22
影子 阅读(134)
评论(0) 编辑 收藏 所属分类:
学习笔记