Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:WeUI如何接收手机短信中超链接中的变量

1楼
lanbor 发表于:2024/6/19 21:49:00
场景1,我发条手机短信给客户:
请通过以下链接对本次购买进行评价 http://www.xxx.com:999/satifion.htm?sono='HW2419'&tel1='123458888'&sodate='2024-06-01'

场景2
用户收到短信后,点开短信链接,自动在手机浏览器中打开网页satifion.htm
Select Case e.Path
    Case "satifion.htm"
        Functions.Execute("Satisfion_Create", e)
    Case "login1.htm"
        Functions.execute("login1", e) '用户登记
    Case "exit1.htm"
        Functions.execute("exit1", e) '退出系统
    Case Else
        e.WriteString("糟糕,主要文件丢火星上去了!")
End Select
e.WriteString(wb.Build)

场景3
以下是 Satisfion_Create 网页函数开始

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.title = "客户购买评价"
Dim _sono As Integer = e.GetValues("sono") 
Dim _tel1 As Integer = e.GetValues("tel1")
Dim _sodate As Integer = e.GetValues("sodate")
Dim PageURL = "login1.htm"
If e.PostValues.Count = 0 Then '生成评价页面
    Dim dr As DataRow = DataTables("Satisfion_list").SQLFind("[SONumber]= '" & _sono & "' and [c_tel1]= '" & _tel1 & "' and [SODate]='" & _sodate & "'")
    If dr IsNot Nothing Then
    弹出评价页面和内容
    end if
'...............
请教专家:
应该在哪个场景取出短信中的变量值?
如何取出变更值?
感谢专家?


[此贴子已经被作者于2024/6/19 21:53:51编辑过]
2楼
有点蓝 发表于:2024/6/20 8:06:00
上面【e.GetValues("sono") 】这种代码就是取变量值呀

发链接的时候把链接里面的单引号去掉
http://www.xxx.com:999/satifion.htm?sono=HW2419&tel1=123458888&sodate=2024-06-01
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.