代码如下: <% set js = server.CreateObject(“ADODB.RecordSet”) sql=”select top 10 * from article order by id desc” set js = conn.Execute (Sql) do while not js.eof title=js(“title”) addate=js(“addate”) foolcat = foolcat + “” &title
首先在服务器端先创建一个程序可以生成XML文件，以返回客户端，（getfolder.asp）
<%
‘written by Linzhang Chen ,2003-4-20
‘ 转载请注明出处和保留此版权信息
response.write &chr(13)
response.write &chr(13)
folders=request(folder)
if folders=/ then
folders=
end if
dim count
count=0
folders
<% Set fso= Server.CreateObject(“scr ipting.FileSystemObject”) set fd=fso.createtextfile(server.MapPath(“../category.js”),true) ‘开始操作 set rs=server.CreateObject(“adodb.recordset”) rs.Open “select * from dept_category”,conn,1,1 str=”var onecount;
