asp數據轉換爲xml格式存入數據庫 ，又從庫中讀取xml顯示到頁面

<% DB_ServerName ="(local)/SQLEXPRESS"    '數據庫名稱(IP+實例名) SQL SERVER2005
DB_UserName = "sa"                     'SQL用戶名
DB_PassWord = "123456"                       'SQL用戶密碼
DB_DateBase = "mydb"         '數據庫名
DB_Provider = "SQLOLEDB.1"                '驅動程序
DB_ConnStr = "Provider="&DB_Provider&"; UID="&DB_UserName&"; Pwd="&DB_PassWord&"; database="&DB_DateBase&"; Server="&DB_ServerName&";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DB_ConnStr

If Err Then
 err.Clear
 Set Conn = Nothing
 response.Write("數據庫連接出錯，請聯繫管理員。")
 Response.End
 else
 response.Write("連接成功")
End If

%>

<%if request("name")<>"" and trim(request("age"))<>"" then
 xname = trim(request("name"))
 xage=trim(request("age"))
 strxml= " <students> <student> <name>"&xname&"</name><age> "&xage&"</age></student> </students> "
set rs=server.CreateObject("ADODB.recordset")
sql = "select * from [user] "
rs.open sql,conn,1,3
rs.addnew()
rs("name")=strxml

rs.update
rs.close
set rs=nothing
response.Write ("錄入成功")
 
end if

%>

<form id="form1" name="form1" method="post" action="t.asp">
  <label>
  name：<input type="text" name="name" />
  </label>
  <p>age:
    <label>
    <input type="text" name="age" />
    </label>
    <label>
    <input type="submit" name="Submit" value="提交" />
    </label>
  </p>
</form>
<p>下面是輸出：</p>
<p>&nbsp;</p>
<%sql = "select * from [user] where id = 1"
set rs=server.CreateObject("ADODB.recordset")
rs.open sql ,conn,1,1
xm=rs("name")
rs.close
set rs=nothing
response.Write  xm

 

set   xmldoc=server.CreateObject( "msxml2.domdocument")
xmldoc.async=false
xmldoc.loadXML   xm

set   nodes=xmldoc.documentElement.childNodes
for   i=0   to   nodes.length-1
response.Write ("姓名:"&nodes(i).childNodes(0).text)
response.Write ("年齡:"&nodes(i).childNodes(1).text)
next
set   xmldoc=nothing

%>