|
<%
'readxml.asp載入xml檔剖析-------------
'請將123.di和readxml.asp放在相同目錄中執每
'xmlDOM屬性及方法的使用有分大小寫
newfile=server.mappath("123.di")
set
xmlDOM=server.createobject("microsoft.xmldom")
xmlDOM.load(newfile)
set
objRootNode=xmlDOM.documentElement
fn =
objRootNode.nodename'根節點元素名稱
response.write
"根元素：<;"&fn&">;"
response.write "<table align=center
width=""85%"" border=1
bordercolor=#CCCCCC>"
response.write "<tr
bgcolor=#E4E4E4 align=center><td
nowrap>子元素標籤</td><td>子元素內容</td></tr>"
'重點在這裏---------------------------------
for each objNodeList in
objRootNode.childNodes
xtagname=objNodeList.nodeName
'標籤名稱
xcontent=objNodeList.text'標籤內容
response.write
"<tr>"
response.write "<td
nowrap><;"&xtagname&">;</td>"
response.write
"<td>"&xcontent&"</td>"
response.write
"</tr>"
Next
response.write "</table>"
%>
再加入寫入資料庫部分，建立connection及recordset部分省略。
<%
'readxml.asp載入xml檔剖析-------------
'請將123.di和readxml.asp放在相同目錄中執每
'xmlDOM屬性及方法的使用有分大小寫
newfile=server.mappath("123.di")
'載入xml檔剖析
set
xmlDOM=server.createobject("microsoft.xmldom")
xmlDOM.load(newfile)
set
objRootNode=xmlDOM.documentElement
fn =
objRootNode.nodename'根節點元素名稱
response.write
"根元素：<;"&fn&">;"
response.write
"<table align=center width=""85%"" border=1
bordercolor=#CCCCCC>"
response.write "<tr
bgcolor=#E4E4E4 align=center><td
nowrap>子元素標籤</td><td>子元素內容</td></tr>"
'重點在這裏---------------------------------
for
each objNodeList in objRootNode.childNodes
xtagname=objNodeList.nodeName '標籤名稱
xcontent=objNodeList.text'標籤內容
'寫入資料庫可以用select
case，也可以用陣列來跑，看你怎麼做！
'假設您的資料表中，<文字>→資料欄名nfont
<內容>→資料欄名content
Select case xtagname
case
"文字"
nfont=xcontent
case
"內容"
content=xcontent
End Select
'秀出資料
response.write
"<tr>"
response.write "<td
nowrap><;"&xtagname&">;</td>"
response.write
"<td>"&xcontent&"</td>"
response.write
"</tr>"
Next
'寫入資料庫
rs.addnew
rs("nfont")=nfont
rs("content")=content
rs.update
rs.close
set
rs=nothing
response.write "</table>"
%>
如果是「電子公文交換di檔」，前面的一些東東要刪除，只留第一行的<?xml....?>否則會出錯誤！
'--刪-----------
<!-- 0920203214.di 2003-03-06
14:56:58.352 1x Ver: 3.5.2-P1 021231
-->
<!DOCTYPE 函 SYSTEM "91_2.dtd"
[
<!ENTITY 名單 SYSTEM "0920203214.sw" NDATA
DI>
<!NOTATION DI SYSTEM "">
<!ENTITY
附件一 SYSTEM "0920203214.pdf" NDATA
PDF>
<!NOTATION PDF SYSTEM
"">
]>
'-------刪-------------------------
--------------------------------------------------------------------------------
提供者: longer ( 6002168@mail.tpc.edu.tw
)
[校稿:藍色小舖 ] | 
