<% Call opendata(1) Set rs=server.CreateObject("adodb.recordset") xmlfile=server.mappath("content.xml") Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile(xmlfile,True,-1) MyFile.WriteLine("") MyFile.WriteLine("rs.open "select * from detail where classid=268 order by updatetime desc",conn,1,1 if not rs.eof then do while not rs.eof MyFile.WriteLine("MyFile.WriteLine("xx竹立方竹艺臻品馆开馆") MyFile.WriteLine("2010/05/01") MyFile.WriteLine("") MyFile.WriteLine("") MyFile.WriteLine("") MyFile.WriteLine("
") rs.movenext loop end if rs.close MyFile.WriteLine("") MyFile.Close %>