ASP如何将以下XML数据写进MSSQL数据库

来源:百度知道 编辑:UC知道 时间:2024/05/30 23:08:05
格式如下
<root>
<row>
<sender>1</sender>
<msg>a<msg>
<uptime>b</uptime>
</row>
<row>
<sender>2</sender>
<msg>c</msg>
<uptime>d</uptime>
</row>
.....
</root>

要求ASP代码写进MSSQL

response.xml文件内容
<root>
<row>
<sender>1</sender>
<msg>a</msg>
<uptime>b</uptime>
</row>
<row>
<sender>2</sender>
<msg>c</msg>
<uptime>d</uptime>
</row>
</root>

index.asp 内容
<%
Set Retrieval=CreateObject("Microsoft.XMLHTTP")
curl="http://"&request.ServerVariables("HTTP_HOST")&request.ServerVariables("URL")&"response.xml"
With Retrieval
.open "Get",curl,False,"",""
.send
xmldata =.ResponseBody
End With

Dim oDOM
Set oDOM = Server.CreateObject("MSXML2.DOMDocument")
oDOM.load(xmldata)
clen=oDOM.getElementsByTagName("root//row//sender").length
for i=0 to clen-1
sender=oDOM