ÓÃDOM´´½¨XMLÎĵµµÄÎÊÌâ - .NET¼¼Êõ / .NET¼¼ÊõÇ°Õ°
ÀûÓÃDOM´´½¨ÈçϽṹµÄXMLÎĵµ£¬ÎļþÃûΪstu_data.xml¡£Æä´óÖÂÎĵµ½á¹¹ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<ѧÉú×÷ÒµÁбí>
<ѧÉú id="001">
<ÐÕÃû>ÕÅÎÞ¼É</ÐÕÃû>
<ѧºÅ>2007213101</ѧºÅ>
<°à¼¶>ÐÅÏ¢¹ÜÀí°à</°à¼¶>
<¿Î³ÌÃû³Æ>XMLÓïÑÔ³ÌÐòÉè¼Æ</¿Î³ÌÃû³Æ>
<Åú´Î>6</Åú´Î>
<×÷ÒµÄÚÈÝ><![CDATA[data]]></×÷ÒµÄÚÈÝ>
</ѧÉú>
</ѧÉú×÷ÒµÁбí>
±»ÕâµÀÌâŪ·èÁË,¹òÇó¸÷λ¸ßÊÖ°ïæ,ÏÈллÁË
¸øÄã·¢¸öÀý×Ó£º
C# code:
<%
on error resume next
Dim SQL,RS
Set RS = Server.CreateObject("ADODB.RecordSet")
Set conn = server.createobject("adodb.connection")
OpenDBConn conn
SQL = "SELECT f1,f2,f3 from table1 WHERE f1=xx"
RS.Open SQL,Conn,1,1
RS.MoveFirst
Dim xmldoc
Set xmldoc = server.CreateObject("Msxml2.domdocument")
Dim version
Set version = xmldoc.createProcessingInstruction("xml","version='1.0' encoding='GB2312'")
xmldoc.appendchild
Ïà¹ØÎÊ´ð£º
ÄÚÈÝÈçÌâ¡£¡£ÔÚC#Àï¸ÄÈçºÎдÄØ£¿
±¾À´Ë¼Â·ÊÇÏȱȶԽڵãÃû³Æ£¬ÈçÊǵĻ°¾Í±£´æҪɾ³ý½ÚµãµÄϱê·ÅÔÚÊý×éÀȻºóÑ»·É¾³ý£¬µ«·¢ÏÖ¡£¡£µ±ÎÒɾ³ýµÚÒ»¸öºó£¬ËùÓнڵãϱêÊýÁ¿¶¼·¢Éú¸Ä±ä¡£¡£
¾Í²»ÄÜÔÙ°´ÕÕ֮ǰ¼Í¼µÄ½Úµã ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÎÒÓÐÒ»¸öÀàËƵÄxmlµÄ string£¬Ïëͨ¹ý±éÀúÔõô¸öxml Êä³öÎÒÏëÒªµÄelementµÄÖµ
xml Ϊ£º
<Discover xmlns="urn:schemas-microsoft-com:xml-analysis">
<RequestType>DISCOVER_XML_ME ......
ΪʲôÎҵijÌÐòµ÷ÓÃXMLÅäÖÃÎļþÖеİ¢À²®ÎÄÏÔʾ²»³öÀ´£¿ÆäËûµÄÓïÖÖ¶¼¿ÉÒÔ£¬ÈçÖÐÎÄ£¬Ó¢ÎÄ£¬µÂÎĶ¼¿É¡£
ÎÒ½«XMLµÄ±àÂë¸ÄΪutf-8ºÍunicodeµÄµ½µÃ½á¹û¶¼Ò»Ñù.
°¢À²®ÎĵÄ×Ö¿âÄãÓÐô£¿
ÓÐ,ÎÒµÄEXEÊÇ·ÅÔÚpc»úÉÏÖ´Ðе ......
˼·£ºÒªÓÃc#Éú³ÉÒ»¸ö²¥·Å»úµÄ²¥·ÅÁбíµÄxml£¬ÀýÈ磺
<daty datys='2010-04-05' datye='2010-05-01' > //ÕâÊDz¥·ÅµÄÈÕÆÚ¶Î
<time times='01:12:00' timee='02:30:00'> ......