WriteXml 出错,请帮忙,急啊,头大

youzelin 2007-01-11 09:21:45
下面是我按照书中的代码写的,没有少,怎么运行,得不到想要的结果:

  Private Function AddUser(ByVal name As String, ByVal password As String) As Boolean
    If IsUserExist(name) Then Return False
    Dim dsUsers As New DataSet
    Try
      Dim xmlPath As String = Server.MapPath(Request.ApplicationPath) & "\Users.xml"
      dsUsers.ReadXml(xmlPath, XmlReadMode.Auto)
      Dim newrow As DataRow = dsUsers.Tables("users").NewRow()
      newrow("name") = name
      newrow("password") = FormsAuthentication.HashPasswordForStoringInConfigFile(password, "sha1")
      dsUsers.Tables("users").Rows.Add(newrow)
      dsUsers.WriteXml(xmlPath)
      Return True
    Catch ex As Exception
      Return False
    Finally
      dsUsers.Dispose()
    End Try
  End Function
------------------------------------
问题出在 dsUsers.WriteXml(xmlPath) 这句话,这句话出错,所以跑到了Catch,怎么也无法返回True。

Users.xml 文件内容如下:
<?xml version="1.0" encoding="utf-8"?>
<NewDataSet>
<users name="" password=""/>
<users name="Jeff" password="9828034F45C139F3D0314872CEE30463ECE9B196"/>
<users name="Jordan" password="674027E17B0ED64E76CDE2005CB8E76FB4CD671A"/>
<users name="Henry" password="226A7752B68099E59EEADD7556AD48F44E5403F0"/>
</NewDataSet>

还望高人能帮忙。
...全文
216 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
youzelin 2007-01-12
  • 打赏
  • 举报
回复
它说“对 D:\ASPNETWebApplication\FormsAuthentication\Users.xml 访问被拒绝”
也就是说不能写,我看了一下应用程序的文件夹,无论是 ASPNETWebApplication 还是 FormsAuthentication 都是只读属性,但是怎么也去不掉,怎么办?
Fibona 2007-01-11
  • 打赏
  • 举报
回复
ex中报的是什么错误?

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧