- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 链接表达式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99925)
-- 发布时间：2017/4/29 21:44:00
-- 链接表达式
下面粉色的代码，表达式应该是有问题的，没有传递值(尝试处理后，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编辑过]
-- 发布时间：2017/5/2 8:17:00
--
编码问题：http://www.foxtable.com/mobilehelp/scr/0022.htm
-- 发布时间：2017/5/2 11:05:00
--
这个index.htm网页是是随机生成的，不存在的，我怎么样才能把网页改成"utf-8"
-- 发布时间：2017/5/2 11:37:00
--
生成index的函数开头加上
Dim e As RequestEventArgs = args(0)
e.ResponseEncoding = "gb2312"
Dim wb As New weui