-- 作者:有点甜
-- 发布时间:2018/3/2 14:44:00
--
1、没必要提取填充吧?判断密码直接用 like、contains 查询即可,如
Dim dr As DataRow dr = DataTables("表A").Find("第一列 = \'" & UserName & "\'") If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then Verified = True End If
2、如果确实要提取,参考
dim group = "123" Dim password = "123" Dim role = "123" Dim str = "Group" & chr(11) & group & chr(11) & "PassWord" & chr(11) & MD5Encrypt(password) & chr(11) & "Type" & chr(11) & "2" & chr(11) & "Role" & chr(11) & role msgbox(str) Dim ary() As String = str.split(chr(11)) msgbox(ary(3))
|