AddPreview 功能中的函数值传递Select Case e.Path
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
wb.Appendcookie("page", page) '-----我在cookie中放了 page 页码
End If
Case "test.htm"
Dim wb As New weui
wb.AppendHTML("<br/>")
With wb.AddPreview("","pv2","付款金额","￥3400")
.AddItem("项目1","内容1")
.AddItem("项目2","内容2")
.AddItem("项目3", "电动打蛋机")
.Addbutton("筛选数据", "", 1, "page'))'") '----请问这里如何将e.cookies('page')值传给JS函数 order_filter
.Addbutton("取消筛选", "QueryOrderDoc.htm?page=0&unfilter=true", 0)
End With
e.WriteString(wb.Build) '生成网页
End Select
---- 请问下的JS 函数如何接收句法？
function order_filter(page){
var page = page;
location="QueryOrderFilter.htm?page=" + page;
}
我上面写的不能执行，请教红颜色行的正确语法？
谢谢！
[此贴子已经被作者于2020/3/21 14:18:16编辑过]
加好友 
发短信
Post By：2020/3/21 14:17:00 [显示全部帖子]
