下面粉色的代码，表达式应该是有问题的，没有传递值(尝试处理后，index.htm页面的链接显示了城市名称中文，但下个页面弹窗乱码，我感觉可能还是表达式的问题)
此主题相关图片如下：qq图片20170429214256666.png
Dim e As RequestEventArgs = args(0) '临时选择城市(供游客使用)
Dim wb As New weui
msgbox(0)
Dim chaksheng As String = e.PostValues("szs") '验证所在省
Dim chakshi As String = e.PostValues("szshi") '验证所在市
msgbox(1)
If chaksheng = "" Then
e.WriteString("所在省不能为空!")
Return ""
ElseIf chakshi = "" Then
e.WriteString("所在市不能为空!")
Return ""
End If
If e.Cookies.ContainsKey("isj") '如果存在名为isj的Cookie,即已经登录
Dim username As String = e.cookies("isj") '从cookie取会员手机号
Dim drusername As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'")
If drusername IsNot Nothing Then
drusername("查看省份") = e.PostValues("szs")
drusername("查看城市") = e.PostValues("szshi")
drusername.save
End If
End If
msgbox(2)
wb.InsertHTML("<meta http-equiv='Refresh' con-tent='0; ur-l=/index.htm?chengshi='" & chakshi & "'>") '跳转到首页(因为不能保持cookie,所以用这样的方法,传递到首页,再保存为cookie)
e.WriteString(wb.Build) '生成网页
我发现改成这样，index.htm页面的链接显示了城市名称中文
wb.InsertHTML("<meta http-equiv='Refresh' con-tent='0; ur-l=/index.htm?chengshi=" & chakshi & "'>")
----------以下是下个页面内容------------------------------------------------------------------------------
这里是index.htm页面的部分代码：
Dim queren As String '用于确认访问的城市 '从cityb.htm跳转到首页(因为不能保存cookie,所以用这样的方法,传递到首页,再保存为cookie)
For Each key As String In e.GetValues.Keys
If key = "chengshi" Then
queren = e.GetValues(key)
msgbox("index.htm接收到的值:" & queren ) ’这里弹出了，上个页面传递的值是：南阳市，但是弹窗城市值乱码，见下图，怎么回事？
If queren <> "" AndAlso username = "" Then '说明上个页面是cityb.htm(必须同时username="",即未登录,才可以创建cookie:CHAKSHI)(因为不能保存cookie,所以用这样的方法,传递到首页,再保存为cookie)
e.AppendCookie("CHAKSHI",queren)
msgbox("未登录会员设置城市成功到:" & queren ) ’这里弹出了，同样是乱码，见下图
End If
End If
Next
此主题相关图片如下：qq图片20170430103456666.png
此主题相关图片如下：qq图片201704301019033333.png
[此贴子已经被作者于2017/4/30 19:14:51编辑过]
加好友 
发短信
Post By：2017/4/29 21:44:00 [显示全部帖子]
