|
<!-- METADATA TYPE="TypeLib" UUID="00000200-0000-0010-8000-00AA006D2EA4" -->
<%
Class DataSet
Private Recordset
Public TableName, FieldCount
Public XmlString
Private TableMap
Private Sub Class_Initialize '''' 设置 Initialize 事件。
Set Recordset = Server.CreateObject("ADODB.RecordSet")
Recordset.ActiveConnection = "Provider=MSDAOSP; Data Source=Msxml2.DSOControl;"
End Sub
Private Sub Class_Terminate '''' 设置 Terminate 事件。
Set Recordset = Nothing
End Sub
Function ReadXml(Name, filespec)
TableName = Name
Recordset.Open(filespec)
End Function
Function GetXml()
Call GetTableMap()
Do While not Recordset.Eof
XmlString = XmlString + GetXmlRow(Recordset.Fields)
Recordset.MoveNext()
Loop
Recordset.Close
XmlString = XmlRow(TableName, XmlString)
GetXml = XmlString
End Function
Sub GetTableMap()
IF (not Recordset.Eof) Then
FieldCount = Recordset.Fields.Count - 2
Execute("ReDim TableMap("& FieldCount &")")
For i = 0 To FieldCount
TableMap(i) = Recordset.Fields.Item(i).Name
Next
End IF
End Sub
Function GetXmlRow(Item)
Dim XmlRowString
For i = 0 To FieldCount
XmlRowString = XmlRowString + XmlField(TableMap(i), Item(i).Value)
Next
GetXmlRow = XmlRow("Row", XmlRowString)
End Function
Function XMlEncode(XmlString)
XmlString = Replace(XmlString, "<", "<")
XmlString = Replace(XmlString, ">", ">")
XMlEnCode = XmlString
End Function
Function XmlField(NodeName, NodeValue)
XmlField = "<"+ NodeName +">"+ XMlEncode(NodeValue) +"</"+ NodeName +">"
End Function
Function XmlRow(NodeName, NodeValue)
XmlRow = "<"+ NodeName +">"+ NodeValue +"</"+ NodeName +">"
End Function
End Class
Dim ds : Set ds = new DataSet
Call ds.ReadXml( "News", Server.MapPath("news.xml") )
Response.ContentType = "text/xml"
Response.Write(ds.GetXml())
Set ds = Nothing
%>
[文书写作]日常行政应用文书写作格式分析 [办公软件]PowerPoint文件保存为PPS与PPT等格式的应用范围
[办公软件]演示文稿pps格式与ppt的区别 [办公软件]Word、Excel和PowerPoint文件格式兼容包(简体中文…
[办公软件]利用录制旁白功能在PowerPoint实现各种声音格式的… [办公软件]让Excel单元格数据不显示0值(单元格格式三部曲)
[操作系统]Fat32格式如何转换为NTFS格式 [Web开发]用ASP.NET把数据库中的记录按格式写入Word文档中
[Web开发]导出查询数据以word格式保存到客户端 [办公软件]利用Macromedia Flash Paper将Office文档转换为Fl…
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
