扫码带参数如何做 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

假设手机端录入页面地址为：http://www.abc.com/indexhtm，把这个页面地址做成二维码，页面服务端使用网页授权方式打开：http://www.foxtable.com/mobilehelp/topics/0235.htm，就可以在网页授权里获取用户的openid

二维码都一样的，不需要每个人生成一个独立的二维码。网页授权里获取用户的openid不就知道是谁了

如果要记录推荐人，就需要动态生成二维码了，假设推荐人是张三，那么张三给别人生成二维码可以使用这个地址【http://www.abc.com/indexhtm?tjr=张三】生成二维码，以此类推，李四给别人生成二维码可以使用这个地址【http://www.abc.com/indexhtm?tjr=李四】生成二维码。然后网页服务端程序里通过get参数tjr获取推荐人的姓名，同时通过openid获取使用人

dim khid as string = "xxxx"

Dim Bar As New BarCodeBuilder

Bar.Symbology = Barpro.Symbology.QRCode

Bar.Code = "http://www.abc.com/indexhtm?tjr=" & khid

Bar.QuietZoneWidth = 2

Bar.SaveImage("二维码文件名")

设计一个窗口，放到按钮点击事件里。能不能扫测试一下不就知道了

http://www.foxtable.com/mobilehelp/topics/0113.htm

比如：http://www.foxtable.com/mobilehelp/topics/0235.htm

大概

If e.host = "wexin.foxtable.com" Then '需要授权才能访问的域名

Dim OpenID As String

Dim sb As New StringBuilder

sb.AppendLine("<meta name='viewport' c>")

If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的OpenID

Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"

ul = CExp(ul,"wx8acdb7df5beb68fd","a5a3b06a790d4200a151e6b13c3dc263",e.GetValues("code"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("openid") IsNot Nothing Then

OpenID = jo("openid")

End If

Dim Verified As Boolean

If OpenId > "" andalso e.GetValues.ContainsKey("khid")

Dim dr As DataRow = DataTables("客户表").Find("openid ='" & OpenID & "'") '根据openid找出对应的行

if dr Is Nothing then

dr = DataTables("客户表").addnew

dr("openid") = OpenID

end if

dr("khid") = e.GetValues("khid")

dr.save

Verified = True

ElseIf e.GetValues.ContainsKey("code") = False Then '如果授权失败,且不是通过授权链接跳转而来,那么就跳转到授权链接

Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx8acdb7df5beb68fd&redirect_uri=http%3a%2f%2fwexin.foxtable.com&response_type=code&scope=snsapi_base&state=123#wechat_redirect"

sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接

e.WriteString(sb.ToString)

Return

End If

If Verified = False Then

sb.AppendLine("你无权访问本系统")

Else

sb.AppendLine("Foxtable欢迎您, <a href='http://wexin.foxtable.com'>刷新页面</a>")

End If

e.WriteString(sb.ToString)

End If

If e.GetValues.ContainsKey("code") Then '如果是通过授权链接跳转而来,就从链接重提取code来获取openid

Dim ul As String = "https://api.weixin.qq.com/sns/oauth2/access_token?appid={0}&secret={1}&code={2}&grant_type=authorization_code"

ul = CExp(ul, "w。。。。。。。。", "f...................", e.GetValues("code"))

Dim hc As New HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

If jo("openid") IsNot Nothing Then '如果获取openid成功(成功的话,还会同时返回一个accesstiken,用于获取用户详情)

OpenID = jo("openid")

' msgbox("获取openid", 64, "提示")

Dim dr As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'")

If dr IsNot Nothing Then

UserName = dr("nickname")

' msgbox("昵称", 64, "提示")

Else

dr = DataTables("客户").AddNew()

msgbox("增行后", 64, "提示")

Dim nms() As String = {"openid", "nickname", "headimgurl", "性别"} '"", "客户住址_县市", "country", "客户住址_省市"} '""

For Each nm As String In nms

dr(nm) = jo(nm)

' msgbox("提取数据", 64, "提示")

msgbox("判断tjkhid", 64, "提示")

If e.GetValues.ContainsKey("tjr") Then 'e.GetValues.ContainsKey("khid")获取二维码推荐人的khid

msgbox("写入推荐人", 64, "提示")

dr("客户来源_KHID") = e.GetValues("tjr") 'e.GetValues.ContainsKey("khid")获取二维码推荐人的TJkhid ，保存khid

msgbox("保存", 64, "提示")

dr.Save

End If

e.AppendCookie("username", UserName) '用户名和openid存储在Cookie中

e.AppendCookie("openid", OpenID)

' e.AppendCookie("KHID", KHID)

' msgbox("存缓存", 64, "提示")

Else

e.WriteString(jo.ToString) '在用户浏览器显示错误信息

' msgbox("openid空的", 64, "提示")

Return

End If

Else

UserName = e.Cookies("username") '从cookie获取用户名和openid

OpenID = e.Cookies("openid")

' KHID = e.Cookies("KHID")

' msgbox("获取缓存", 64, "提示")

Dim dr As DataRow = DataTables("客户").SQLFind("openid ='" & Openid & "'") '根据openid找出对应的行

If dr Is Nothing OrElse UserName = "" OrElse OpenId = "" Then '空

' msgbox("判断名 openid 行空", 64, "提示")

' If userName = "" OrElse OpenID = "" Then

Dim url As String = e.Request.URL.ToString

MsgBox(url)

Dim ul As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx................&redirect_uri=" & UrlEncode(url) & "&response_type=code&scope=snsapi_userinfo&state=123#wechat_redirect"

sb.Append("<meta http-equiv='Refresh' c>") '跳转到授权链接

e.WriteString(sb.ToString)

' msgbox("跳转授权链接", 64, "提示")

Return

End If

加调试代码，看哪些可以弹出，那些不能弹出

怎么加的？哪些调试窗口可以弹出，哪些不可以？

主题：扫码带参数如何做