最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp解析xml 文件
时间:2008-07-14 编辑:简简单单 来源:一聚教程网
asp解析xml 文件
Sub GetUserinfo()
Dim Rs,Sql
XmlDoc.loadxml "
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判断电话号与邮箱地址程序
相关文章
- VBS 批量Ping的项目讲解 09-19
- 如何封装一个Ajax函数介绍 09-16
- ASP实现加法验证码方法 09-16
- ASP错误捕获的几种常规处理方法介绍 09-16
- ajax实现城市三级联动的代码介绍 09-16
- asp中获取日期为星期几的技巧 09-14