获得用户的帐号信息

Public Function GetAccount() As AccountInfo Dim text1 As String = "" Dim text2 As String = "" Dim cookie1 As HttpCookie = HttpContext.Current.Request.Cookies.Item("newsMember") If (Not cookie1 Is Nothing) Then text1 = cookie1.Item("username") text2 = cookie1.Item("password") End If If (text1 Is Nothing) Then text1 = "" Return New AccountInfo End If If (text2 Is Nothing) Then text2 = "" Return New AccountInfo End If Dim textArray1 As String() = New String(5) {} textArray1(0) = "select member.id as userid, admin.id as adminid, name, [password], email, groupid, remarks, addDate, addNum, qq, icq, msn, question, answer, male, birthday, realname, country, province, city, phone, address, postcode, bloodtype, job, edu, school, hideEmail, photo, introduction, rssTitle, logTimes, lastLog, flag, classids, power from member left join admin on member.id=admin.memberID where member.name='" textArray1(1) = WbText.SqlEncode(text1) textArray1(2) = "' and password='" textArray1(3) = WbText.SqlEncode(text2) textArray1(4) = "'" Dim text3 As String = String.Concat(textArray1) Return Me.GetAccount(text3) End Function