<% 'readxml.asp¸ü¤JxmlÀÉåªR-------------
'½Ð±N123.di©Mreadxml.asp©ñ¦b¬Û¦P¥Ø¿ý¤¤°õ¨C 'xmlDOMÄݩʤΤèªkªº¨Ï¥Î¦³¤À¤j¤p¼g newfile=server.mappath("123.di") set
xmlDOM=server.createobject("microsoft.xmldom") xmlDOM.load(newfile) set
objRootNode=xmlDOM.documentElement fn =
objRootNode.nodename'®Ú¸`ÂI¤¸¯À¦WºÙ response.write
"®Ú¤¸¯À¡G<;"&fn&">;"
response.write "<table align=center
width=""85%"" border=1
bordercolor=#CCCCCC>" response.write "<tr
bgcolor=#E4E4E4 align=center><td
nowrap>¤l¤¸¯À¼ÐÅÒ</td><td>¤l¤¸¯À¤º®e</td></tr>"
'«ÂI¦b³oùØ--------------------------------- for each objNodeList in
objRootNode.childNodes xtagname=objNodeList.nodeName
'¼ÐÅÒ¦WºÙ xcontent=objNodeList.text'¼ÐÅÒ¤º®e response.write
"<tr>" response.write "<td
nowrap><;"&xtagname&">;</td>" response.write
"<td>"&xcontent&"</td>" response.write
"</tr>" Next
response.write "</table>" %>
¦A¥[¤J¼g¤J¸ê®Æ®w³¡¤À¡A«Ø¥ßconnection¤Îrecordset³¡¤À¬Ù²¤¡C <% 'readxml.asp¸ü¤JxmlÀÉåªR-------------
'½Ð±N123.di©Mreadxml.asp©ñ¦b¬Û¦P¥Ø¿ý¤¤°õ¨C 'xmlDOMÄݩʤΤèªkªº¨Ï¥Î¦³¤À¤j¤p¼g
newfile=server.mappath("123.di") '¸ü¤JxmlÀÉåªR set
xmlDOM=server.createobject("microsoft.xmldom") xmlDOM.load(newfile) set
objRootNode=xmlDOM.documentElement fn =
objRootNode.nodename'®Ú¸`ÂI¤¸¯À¦WºÙ response.write
"®Ú¤¸¯À¡G<;"&fn&">;" response.write
"<table align=center width=""85%"" border=1
bordercolor=#CCCCCC>" response.write "<tr
bgcolor=#E4E4E4 align=center><td
nowrap>¤l¤¸¯À¼ÐÅÒ</td><td>¤l¤¸¯À¤º®e</td></tr>"
'«ÂI¦b³oùØ--------------------------------- for
each objNodeList in objRootNode.childNodes
xtagname=objNodeList.nodeName '¼ÐÅÒ¦WºÙ xcontent=objNodeList.text'¼ÐÅÒ¤º®e
'¼g¤J¸ê®Æ®w¥i¥H¥Îselect
case¡A¤]¥i¥H¥Î°}¦C¨Ó¶]¡A¬Ý§A«ç»ò°µ¡I '°²³]±zªº¸ê®Æªí¤¤¡A<¤å¦r>¡÷¸ê®ÆÄæ¦Wnfont
<¤º®e>¡÷¸ê®ÆÄæ¦Wcontent Select case xtagname case
"¤å¦r" nfont=xcontent case
"¤º®e" content=xcontent End Select
'¨q¥X¸ê®Æ response.write
"<tr>" response.write "<td
nowrap><;"&xtagname&">;</td>" response.write
"<td>"&xcontent&"</td>" response.write
"</tr>" Next
'¼g¤J¸ê®Æ®w rs.addnew rs("nfont")=nfont rs("content")=content rs.update rs.close set
rs=nothing
response.write "</table>" %>
¦pªG¬O¡u¹q¤l¤½¤å¥æ´«diÀÉ¡v¡A«e±ªº¤@¨ÇªFªFn§R°£¡A¥u¯d²Ä¤@¦æªº<?xml....?>§_«h·|¥X¿ù»~¡I '--§R----------- <!-- 0920203214.di 2003-03-06
14:56:58.352 1x Ver: 3.5.2-P1 021231
--> <!DOCTYPE ¨ç SYSTEM "91_2.dtd"
[ <!ENTITY ¦W³æ SYSTEM "0920203214.sw" NDATA
DI> <!NOTATION DI SYSTEM ""> <!ENTITY
ªþ¥ó¤@ SYSTEM "0920203214.pdf" NDATA
PDF> <!NOTATION PDF SYSTEM
""> ]> '-------§R-------------------------
--------------------------------------------------------------------------------
´£¨ÑªÌ: longer ( 6002168@mail.tpc.edu.tw
)
[®Õ½Z:ÂŦâ¤pçE ] |