以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何读取外部数据源用户名与密码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98214)

--  作者:L88919138
--  发布时间:2017/3/26 15:21:00
--  如何读取外部数据源用户名与密码

在学习WEUI框架里“设计首页和登录页面”章节时,以下代码老大让我们实际使用的时候,请改为从数据库读取用户名和密码进行比较,请教下大师,我的项目采用“外部数据源与用户管理”来设置的,那么如何编写这段代码,要如何从外部数据源中获取用户名和密码?

 

If UserName = "张三" AndAlso Password = "888" Then  \'实际使用的时候,请改为从数据库读取用户名和密码进行比较
    Verified  =
True

ElseIf
Username = "李四" AndAlso Password="999" Then
    Verified  =
True

End
If


--  作者:L88919138
--  发布时间:2017/3/26 20:43:00
--  

顶一下

 


--  作者:有点色
--  发布时间:2017/3/27 0:06:00
--  

直接查找表格 name = \'张三\' 的行

 

把输入的密码,进行md5加密,然后和config字段的值比较(如果congfig包含密码)

 

http://www.foxtable.com/webhelp/scr/0352.htm

 


--  作者:L88919138
--  发布时间:2017/3/27 7:17:00
--  

下面代码因为加入红色部份进行密码核对一直不成功,这段代码应如何编写,谢谢。

 

 

Dim Val As String = MD5Encrypt("123456")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="Select Count(*) Fro m {USERNAME} Where Name = \'" 张三 "\' AND CONFIG LIKE \'" & Val & " \' "
If cmd.ExecuteScalar > 0 Then
    messagebox.show("找到记录")
End If


--  作者:有点蓝
--  发布时间:2017/3/27 8:47:00
--  
cmd.CommandText ="Select Count(*) Fro m {USERNAME} Where Name = \'张三\' AND CONFIG LIKE \'%" & Val & "%\' "
--  作者:有点色
--  发布时间:2017/3/27 9:31:00
--  

 回复4楼,登陆,尽量不要那样写sql语句,容易被人家构造特殊字符串进入系统。

 

 先查name,得到具体的行,再对比密码。


--  作者:L88919138
--  发布时间:2017/3/27 9:35:00
--  

Dim Val As String = MD5Encrypt("123456")
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText ="Select Count(*) Fro m {USERNAME} Where Name = \'" 张三 " \' AND CONFIG LIKE \'%" & Val & "%\' "
If cmd.ExecuteScalar > 0 Then
    messagebox.show("找到记录")
Else
    messagebox.show("未找到记录")
End If

 

 

系统提示错误“应为语名结束cmd.CommandText ="Select Count(*) Fro m {USERNAME} Where Name = \'" 张三 " \' AND CONFIG LIKE \'%" & Val & "%\' "


--  作者:有点色
--  发布时间:2017/3/27 9:41:00
--  

Dim name As String = "张三"

cmd.CommandText ="Select Count(*) From {USERNAME} Where Name = \'" & name & "\' AND CONFIG LIKE \'%" & Val & "%\' "

[此贴子已经被作者于2017/3/27 9:41:28编辑过]

--  作者:L88919138
--  发布时间:2017/3/27 20:21:00
--  

终于搞定,谢谢大师们指点

 


--  作者:chongziwang
--  发布时间:2018/10/11 7:39:00
--  
能不能贴出完整的?新手搞不定啊