下面开始:
数据库:
打开Data.mdb数据库.新建二个表.
表名分别为:
--------------------------------------------------
column
columnData
--------------------------------------------------
column表中:
输入三个字段:分别为:
--------------------------------------------------
columnID 自动编号
columnName 文本
columnIndex 数字
--------------------------------------------------
在 columnID 字段点右键-->主键,保存.
打开column表,分别在columnName,columnIndex字段输入五条数据,数据分别为:
--------------------------------------------------
columnName columnIndex
专题栏目-01 0
专题栏目-02 1
专题栏目-03 2
专题栏目-04 3
专题栏目-05 4
--------------------------------------------------
保存.
columnData表中:
输入四个字段,分别为:
--------------------------------------------------
cdID 自动编号
cdName 文本
cdURL 文本
columnIndex 数字
--------------------------------------------------
在 cdID 字段点右键-->主键,保存.
打开columnData表,分别在cdName,cdURL,columnIndex字段输入下面的数据:
--------------------------------------------------
cdName cdURL columnIndex
ChooseFlash-01.1 http://www.jzxue.com 0
ChooseFlash-01.2 http://www.jzxue.com 0
ChooseFlash-01.3 http://www.jzxue.com 0
ChooseFlash-01.4 http://www.jzxue.com 0
ChooseFlash-01.5 http://www.jzxue.com 0
ChooseFlash-02.1 http://www.jzxue.com 1
ChooseFlash-02.2 http://www.jzxue.com 1
ChooseFlash-02.3 http://www.jzxue.com 1
ChooseFlash-02.4 http://www.jzxue.com 1
ChooseFlash-02.5 http://www.jzxue.com 1
ChooseFlash-03.1 http://www.jzxue.com 2
ChooseFlash-03.2 http://www.jzxue.com 2
ChooseFlash-03.3 http://www.jzxue.com 2
ChooseFlash-03.4 http://www.jzxue.com 2
ChooseFlash-03.5 http://www.jzxue.com 2
ChooseFlash-04.1 http://www.jzxue.com 3
ChooseFlash-04.2 http://www.jzxue.com 3
ChooseFlash-04.3 http://www.jzxue.com 3
ChooseFlash-04.4 http://www.jzxue.com 3
ChooseFlash-04.5 http://www.jzxue.com 3
ChooseFlash-05.1 http://www.jzxue.com 4
ChooseFlash-05.2 http://www.jzxue.com 4
ChooseFlash-05.3 http://www.jzxue.com 4
ChooseFlash-05.4 http://www.jzxue.com 4
ChooseFlash-05.5 http://www.jzxue.com 4
ChooseFlash-05.6 http://www.happiness06.com 4
ChooseFlash-05.7 http://www.happiness07.com 4
--------------------------------------------------
保存.关闭数据库.
数据库到这可以了.下面是ASP:
打开记事本,输入下面的代码,然后保存为 xml-008.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'xml-008.asp
dim conn,rs,sqlcom,name_arr,index_arr
'设置文档类型.
Response.ContentType="text/xml"
'输出XML文档.
Response.Write("<?xml version='1.0' encoding='gb2312'?>")
Response.Write("<!--xml-008.asp-->")
Response.Write("<ColumnList>")
'创建连接对象.
Set conn=Server.CreateObject("Adodb.Connection")
'这里用字符串方法连接数据库.
'"Provider=Microsoft.Jet.OLEDB.4.0; 这个是数据库驱动.
'Data Source="Server.MapPath("Data.mdb") 数据库文件的相对路径.
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("Data.mdb")
'创建记录集对象.
Set rs=Server.CreateObject("Adodb.RecordSet")
'查询数据库的sql语句.column是SQL中的关键字.要用[]中括号括起来.
sqlcom="select * from [column]"
'执行sql语句.
'1,1 只读.
'1,3 可读可写.
rs.Open sqlcom,conn,1,1
'重定义数组.
'rs.RecordCount 记录集中总的记录数.
Redim name_arr(rs.RecordCount)
Redim index_arr(rs.RecordCount)
'用for语句将column表中的数据循环出来.
'Ubound数组的最大上标.
for i=1 to Ubound(name_arr)
'将column表中的columnName字段中的值存入数组name_arr.
name_arr(i)=rs("columnName")
'将column表中的columnIndex字段中的值存入数组index_arr.
index_arr(i)=rs("columnIndex")
'移到下一条数据.
rs.MoveNext
Next
'这里用了嵌套for语句,
'第一个for j是将name_arr和index_arr数组中的数据读出来.也就是column表中的数据.
'第二个for k是将columnData表中的数据读出来.
'用for语句将name_arr和index_arr数组中的数据循环出来.
for j=1 to Ubound(name_arr)
'关闭记录集.
rs.Close
'查询数据库的sql语句.
'根据index_arr(j)数组中的值为条件来重复执行sql语句.
sqlcom="select * from columnData where columnIndex="&index_arr(j)&""
'执行sql语句.
rs.Open sqlcom,conn,1,1
'输出XML节点.
Response.Write("<Column name='"&name_arr(j)&"'>")
'用for语句将column表中的数据循环出来.
for k=1 to rs.RecordCount
'输出XML节点.
Response.Write("<ColumnData name='"&rs("cdName")&"' url='"&rs("cdURL")&"' />")
'移到下一条数据.
rs.MoveNext
Next
'结束Column节点.
Response.Write("</Column>")
Next
'结束ColumnList节点.
Response.Write("</ColumnList>")
'释放记录信对象.
Set rs=nothing
'关闭连接.
conn.Close
'释放连接对象.
Set conn=nothing
%>
