http://community.csdn.net/Expert/topic/3235/3235068.xml?temp=.4345362
Dim userDocument As XmlDocument
Dim userNode As XmlNode
Dim userList As XmlNodeList
Dim userListLoop As XmlNodeList
Dim user As XmlNode
Dim userInfo As XmlElement
userDocument = New XmlDocument
If Dir(Server.MapPath("user.xml")) <> "" Then
userDocument.Load(Server.MapPath("user.xml"))
Else
Return False
End If
'このユーザーは存在する、TRUEに戻る
If userInfo.GetAttribute("userid").Equals(userid) _
And userInfo.GetAttribute("password").Equals(password) Then
viewstate("roles") = userInfo.GetAttribute("role")
Return True
End If
Next
Return False
Catch ex As Exception
Return False
End Try