主题：基于panel做页面到底部自动加载

这是移动文档sendAjaxText的内容，问题是下面的粉色字体

1、在"d:\web"目录下，建立一个子目录lib，在这个目录建立一个文本文件，文件名为"ajaxform.js"，文件内容为：

function getDate(){
    var result = sendAjaxText("getDate","accept.htm","",false);
    document.getElementById("p1").innerHTML="今天日期:<br/>" + result;
}

function getUser(){
    var result = sendAjaxText("getUser","accept.htm","",false);
    var user=JSON.parse(result);
    result="姓名:" + user.name + "<br/>" + "年龄:" + user.age
    document.getElementById("p1").innerHTML=result;
}

2、HttpRequest事件代码：

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddButtonGroup("form1","btg1",True)  '垂直排列
            .Add("btn1", "getUser","button").Attribute=""
            .Add("btn2", "getDate","button").Attribute=""
        End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据 
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "accept.htm"
        Select e.PlainText
            Case "getUser" '发送jason数据

                Dim jo As New JObject
                jo("name") = "李云龙"
                jo("age") = "36"
                jo("card") = New JObject
                jo("card")("bank") = "工行"
                jo("card")("account") = "12345678"
                Dim v As String =CompressJson(jo).ToString()
                问题：在这里生成并压缩json，在哪里解析这段json呢？js文件应该怎么调整？
                e.WriteString(v)
            Case "getDate" '发送纯文本
                e.Writestring(CUDate(Date.Today))
        End Select
End Select