以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  单独提交字段,返回文件怎么操作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185818)

--  作者:bailing
--  发布时间:2023/3/18 18:07:00
--  单独提交字段,返回文件怎么操作
老师好,有个页面需要单独提交个字段到另一个页面,用来下载文件;
用的js函数是这个:
function download(){
submitAjaxFileds(\'download.html\',\'\',\'download_path\')
}
然后浏览器提示我这不是个函数;

然后返回文件的代码是:
        If e.PostValues.ContainsKey("download_path") Then
            e.WriteFile(e.PostValues("download_path"))
        End If

现在有点蒙了,请老师指点下,这是浏览器的报错

mycus_query.html:86 Uncaught TypeError: download is not a function
    at HTMLAnchorElement.onclick (mycus_query.html:86:129)
onclick @ mycus_query.html:86

--  作者:有点蓝
--  发布时间:2023/3/19 19:49:00
--  
想解决问题的麻烦发完整点的代码。
--  作者:bailing
--  发布时间:2023/3/20 9:29:00
--  
老师好,代码如下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt


--  作者:有点蓝
--  发布时间:2023/3/20 9:35:00
--  
下载按钮所在事件的完整代码
--  作者:bailing
--  发布时间:2023/3/20 9:43:00
--  
Dim e As RequestEventArgs = args(0)
Dim wb As new weui

wb.AddForm("","mycus","mycus_query.html")
With wb.AddInputGroup("mycus","ipg1","查询")
    With .AddInputCell("ic5")
        .AddLabel("pazh","账号: ",0)
        .AddInput("pa_cas_acc_num","text",1)
        .AddVcodeButton("pajm","-- -- -- 查  询 -- -- --",2).Attribute = ""
    End With
    .AddHidenValue("download_path","")
End With

With wb.AddDialog("","dialogok","","请检查账户是否正确,如有问题请联系管理员")
    .AddButton("btnok","确定")
End With

With wb.AddDialog("","dialogerror","","")
    .AddButton("btndownload","下载",).Attribute = ""
    .AddButton("btnok","取消")
End With

With wb.AddPageFooter("","pf1","在这里您可以查看和编辑自己的账户")
    .AddLink("返回上一级","./business_info.html")
End With

wb.AppendHTML("<script>initExWeUI();</script>")  \'调用initExWeUI();初始化框架
wb.AppendHTML("<script src=\'./lib/mycusquery.js\'></script>")
wb.AppendHTML("<script src=\'./lib/mycus.js\'></script>")
\'wb.AppendHTML("<script>document.getElementById(\'download_path\').parentNode.parentNode.style.display = \'none\';</script>")
e.writestring(wb.Build)

--  作者:有点蓝
--  发布时间:2023/3/20 9:46:00
--  
引用的js文件路径不对,或者js文件里没有这个函数download
--  作者:bailing
--  发布时间:2023/3/20 10:18:00
--  
把函数的名字改成了 "xiazai"  然后不知道怎么的就好了,路径也能正常提交到后台,但是没有只弹框,没有下载内容
    Case "download.html"
        If e.PostValues.ContainsKey("download_path") Then
            MessageBox.show(e.PostValues("download_path"))      这个messagebox是有的,而且文件也确实存在
            e.WriteFile(e.PostValues("download_path"))
        Else
            MessageBox.show("未提交")
        End If

这是那个 xiazai 的函数
function xiazai() {
submitAjaxFileds(\'download.html\',\'\',\'download_path\')
//alert(document.getElementById("download_path").value);
}

--  作者:有点蓝
--  发布时间:2023/3/20 10:23:00
--  
应该是文件的存放路径不对,不在web目录里:http://www.foxtable.com/mobilehelp/topics/0044.htm