getserverdata.asp

基于用友开发的报表代码

<script language="VBSCRIPT" runat=server>

	 strOrderId=Request("OrderId")  '接收单据ID
		set rst=server.CreateObject("adodb.Recordset")'创建记录集
		rst.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("Data\Data.mdb")&";Persist Security Info=False"
		rst.CursorLocation = 1
		rst.LockType = 3
		rst.CursorType = 3
		rst.Source = "select * from WipeOrder where nOrderId='" & strOrderId & "'"
		rst.Open   '打开记录集
		
		 set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")'创建XML文档对象
		'set xmlHead=xmlDoc.createProcessingInstruction("xml","version=""1.0"" encoding=""gb2312""")
		'Response.Write "<? version=""1.0"" encoding=""gb2312"" ?>"
	   'xmlDoc.AppendChild  xmlHead
	     
	     set xmlEle=xmlDoc.CreateElement("实施报销单")   '创建子节点
	      set xmlParentNode=xmlDoc.CreateElement("表头") '表头节点
	      
	    Response.ContentType = "text/xml; charset=gb2312"
	    
	   '组织表头数据
	If rst.EOF = False Then
			     '表头			     
			     for i=0 to rst.Fields.Count-1
			         set xmlChildNode=xmlDoc.CreateElement(rst.Fields(i).Name)'以字段名为表头子节点名
			         strValue=rst.Fields(i).Value
			        if isnull(rst.Fields(i).Value) then
			            strValue=""           
			         end if
			         
			         xmlChildNode.setAttribute "DataType",rst.Fields(i).Type '添加字段类型属性
			         xmlChildNode.text=CStr(strValue)                        '添加节点值
			         xmlParentNode.AppendChild xmlChildNode                 '添加到"表头"节点
			     next
	            rst.Close
	            
			  xmlEle.AppendChild xmlParentNode                              '将"表头"节点添加至"实施报销单"节点中                          
			  
			  	
				'组织表体数据
				rst.Source="select * from WipeOrders where nOrderId='" +strOrderId + "'"
				rst.Open 
   
				while not rst.EOF 
				  set xmlParentNode=xmlDoc.CreateElement("表体")'创建"表体"结点,每一行记录生成一个表体节点
				   for i=0 to rst.Fields.Count-1
				     set xmlChildNode=xmlDoc.CreateElement(rst.Fields(i).Name) '以字段名为表头子节点名	        
				         strValue=rst.Fields(i).Value
				        if isnull(rst.Fields(i).Value) then
				            strValue=""           
				         end if
				         xmlChildNode.setAttribute "DataType",rst.Fields(i).Type ''添加字段类型属性
				         xmlChildNode.text=CStr(strValue)                        '添加节点值
				         xmlParentNode.AppendChild xmlChildNode                   '添加到"表体"节点中
				   next
				    xmlEle.AppendChild xmlParentNode                             '将"表体"添加至"实施报销单"节点中
				   rst.MoveNext
				wend
				rst.Close 
				set rst=nothing
    
   
				   xmlDoc.AppendChild xmlEle    '将"实施报销单"节点添加至XML文档中                                                               
					' "<?xml version=""1.0"" encoding=""gb2312""?>" & 
					Response.Write  "<?xml version=""1.0"" encoding=""gb2312""?>" & xmlDoc.Xml '发送XML数据
					Response.End 
					set xmlDoc=nothing
		else
			Response.Write "[error]查询无此记录!"  '没有查询出记录
			Response.End 
	 End If
		
</script>