asp解析xml 文件

时间：2022-06-30 09:24:20 编辑：袖梨来源：一聚教程网

asp解析xml 文件

Sub GetUserinfo()
Dim Rs,Sql
XmlDoc.loadxml "dvbbs0

"

Sql = "SELECT TOP 1 * FROM NC_User WHERE UserName='" & Newasp.CheckBadstr(UserName) & "'"
Set Rs = Newasp.Execute(Sql)
If Not Rs.Eof And Not Rs.Bof Then
  XmlDoc.documentElement.selectSingleNode("body/email").text = Rs("usermail") & ""
  XmlDoc.documentElement.selectSingleNode("body/question").text = Rs("question") & ""
  XmlDoc.documentElement.selectSingleNode("body/answer").text = Rs("answer") & ""
  XmlDoc.documentElement.selectSingleNode("body/gender").text = Rs("Usersex") & ""
  XmlDoc.documentElement.selectSingleNode("body/birthday").text = ""
  XmlDoc.documentElement.selectSingleNode("body/mobile").text = ""
  XmlDoc.documentElement.selectSingleNode("body/userip").text = Rs("userlastip") & ""
  XmlDoc.documentElement.selectSingleNode("body/jointime").text = Rs("JoinTime") & ""
  XmlDoc.documentElement.selectSingleNode("body/experience").text = Rs("experience") & ""
  XmlDoc.documentElement.selectSingleNode("body/ticket").text = ""
  XmlDoc.documentElement.selectSingleNode("body/valuation").text = Rs("userpoint") & ""
  XmlDoc.documentElement.selectSingleNode("body/balance").text = Rs("usermoney") & ""
  XmlDoc.documentElement.selectSingleNode("body/posts").text = Rs("postcode") & ""
  XmlDoc.documentElement.selectSingleNode("body/userstatus").text = Rs("UserLock")
  XmlDoc.documentElement.selectSingleNode("body/homepage").text = Rs("HomePage") & ""
  XmlDoc.documentElement.selectSingleNode("body/qq").text = Rs("oicq")
  XmlDoc.documentElement.selectSingleNode("body/msn").text = ""
  XmlDoc.documentElement.selectSingleNode("body/truename").text = Rs("TrueName") & ""
  XmlDoc.documentElement.selectSingleNode("body/telephone").text = Rs("phone") & ""
  XmlDoc.documentElement.selectSingleNode("body/address").text = Rs("address") & ""
  Status = 0
  Messenge = Messenge & "

读取用户资料成功。

"
Else
Status = 1
Messenge = Messenge & "

该用户不存在。

"
End If
Rs.Close
Set Rs = Nothing
End Sub

推荐专题

最新下载

热门教程

asp解析xml 文件

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程