随笔-75  评论-74  文章-35  trackbacks-1
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 影子 阅读(132) 评论(0)  编辑  收藏 所属分类: 学习笔记