场景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编辑过]
加好友 
发短信
Post By：2024/6/19 21:49:00 [显示全部帖子]
