//创建对象
function getDataXML() {var objTds = $("TEXTAREA");var count = objTds.length;var jsonData;var xmlDoc = new ActiveXObject("Microsoft.XMLDOM");//创建根元素var root = xmlDoc.createElement("DtCostRecollectOverView");xmlDoc.appendChild(root);for (var i = 0; i < count; i++) {var chatRoom = xmlDoc.createElement(objTds[i].name);chatRoom.text = objTds[i].value;root.appendChild(chatRoom);}return xmlDoc.xml;
}

DECLARE @params xmlDECLARE @customparams xml = null-- 0、解析输入参数DECLARE @filter nvarchar (max)  SET @filter = @params. value( '(/params/filter)[1]' , 'nvarchar(max)') -- 0.2、 (2=2)DECLARE @customfilter nvarchar (max)  SET @customfilter = @params. value ( '(/params/customfilter)[1]', 'nvarchar(max)')IF @customfilter = N''SET @customfilter = N'2=2'-- 0.3、每页显示记录数DECLARE @pagesize int  SET @pagesize = @params. value( '(/params/pagesize)[1]' , 'int') -- 0.4、页码DECLARE @pagenum int  SET @pagenum = @params. value( '(/params/pagenum)[1]' , 'int') -- 0.5、排序字段DECLARE @sortcol nvarchar (100)  SET @sortcol = @params. value( '(/params/sortcol)[1]' , 'nvarchar(100)') IF @sortcol IS NULL OR @sortcol = ''SET @sortcol = N' p_Provider.ProviderGUID' -- 注意：根据XML中的定义设置默认排序 !!!ELSESET @sortcol = @sortcol + N' ,p_Provider.ProviderGUID'    -- 注意：如果 XML中配置了实体主键，这里要拼接主键排序-- 0.6、当前公司DECLARE @buguid nvarchar (100)  SET @buguid = @customparams. value ( '(/params/BUGUID)[1]', 'nvarchar(100)') -- 注意：变量大小写与vb代码一致 !!!-- 0.7、当前产品服务 CodeDECLARE @productcode nvarchar (4000)  SET @productcode = @params. value ( '(/params/customfilter2)[1]', 'nvarchar(4000)')

Private Function GetUpdateRoomXml() As StringDim xmlDOM As New XmlDocumentDim xmlGACode As XmlElement = xmlDOM.CreateElement("SAVEAREA")For Each dr As DataRow In dtUpdate_p_Room.RowsDim xmlRow As XmlElement = xmlDOM.CreateElement("ITEMS")Dim xmlRoomGUID As XmlElement = xmlDOM.CreateElement("RoomGUID")Dim xmlGABldCode As XmlElement = xmlDOM.CreateElement("GABldCode")Dim xmlGAUnitCode As XmlElement = xmlDOM.CreateElement("GAUnitCode")Dim xmlGARoomCode As XmlElement = xmlDOM.CreateElement("GARoomCode")Dim xmlGACode0 As XmlElement = xmlDOM.CreateElement("GACode")Dim xmlRoomCode As XmlElement = xmlDOM.CreateElement("RoomCode")xmlRoomGUID.InnerText = dr.Item("RoomGUID").ToString()xmlGABldCode.InnerText = dr.Item("GABldCode").ToString()xmlGAUnitCode.InnerText = dr.Item("GAUnitCode").ToString()xmlGARoomCode.InnerText = dr.Item("GARoomCode").ToString()xmlGACode0.InnerText = dr.Item("GACode").ToString()xmlRoomCode.InnerText = dr.Item("RoomCode").ToString()xmlRow.AppendChild(xmlRoomGUID)xmlRow.AppendChild(xmlGABldCode)xmlRow.AppendChild(xmlGAUnitCode)xmlRow.AppendChild(xmlGARoomCode)xmlRow.AppendChild(xmlGACode0)xmlRow.AppendChild(xmlRoomCode)xmlGACode.AppendChild(xmlRow)NextReturn xmlGACode.OuterXmlEnd Function