ASP读取数据库内容,生成XML

 

数据库部分:

建立一个表gg

在创建表项:id (自动);title(文本);data(时间日期);content(文本);   //括号中内容为设置类型

ASP部分:

<%
'建立数据库连接
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("data/guest.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
'打开数据库GG表
exec="select * from gg"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3

'生成xml
xmlfile=server.mappath("../xml/news.xml")
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(xmlfile,True)
MyFile.WriteLine("<?xml version=""1.0"" encoding=""gb2312""?>")
MyFile.WriteLine("<news>")

rs.movefirst   '记录指针移至第一条记录上

while not rs.eof    '当指针未到结尾时执行此循环

MyFile.WriteLine("<item title='"&rs("title")&"' data='"&rs("data")&"'>"&rs("content")&"</item>")  

' 输出到文件

rs.movenext   '指针移至下一条记录

wend
rs.close
Set rs = Nothing
conn.close
set conn=Nothing

MyFile.WriteLine("</news>")
MyFile.Close
%>

<script language="JavaScript">
alert(':::更新成功:::');
</script>
<script language="javascript">
<!--
function clock(){i=i-1
if(i>0)setTimeout("clock();",1000);
else self.close();}
var i=0.5
clock();
//-->
</script>

生成xml部分

<?xml version="1.0" encoding="gb2312"?>
<news>
<item title='测试' data='2008-12-3'>测试以下啊</item>
<item title='再试一下' data='2008-12-3'>再试一下</item>
</news>

为小站公告,添加一个后台管理做的(其中也请教了高手)