Get user account information

zhaozj2021-02-16  75

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 Endness () = 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 (Tex T2) TEXTARRAY1 (4) = "'" DIM TEXT3 AS STRING = String.concat (TextArray1) Return Me.Getaccount (Text3) End Function

转载请注明原文地址:https://www.9cbs.com/read-13805.html

New Post(0)