以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]界面无法上传文件,图片可以。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126572)

--  作者:浪花兄弟
--  发布时间:2018/10/24 16:16:00
--  [求助]界面无法上传文件,图片可以。
新入菜鸟,问题如题。
函数代码及界面如下:

图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看

求指教,感谢!

--  作者:有点甜
--  发布时间:2018/10/24 16:20:00
--  

uploader是专门用来上传图片的。如果要上传文件,请用 http://www.foxtable.com/mobilehelp/scr/0030.htm

 

或者使用别的插件 http://www.jq22.com/search?seo=%E4%B8%8A%E4%BC%A0

 


--  作者:浪花兄弟
--  发布时间:2018/10/24 18:42:00
--  
嗯首次发贴,感谢跟进。
方法一的案例做了,分开写的上传和保存的2个页面。

但是录入表单的主界面上是要用一个跳转按钮?
跳转到上传文件的界面-->然后又跳转到保存提示的界面?
保存界面又得跳回来刚刚的录入主界面? (操作步骤好像繁琐了,没图片上传的操作便捷)
要之前主界面录的数据还在,如何实现? (有无案例)





--  作者:有点甜
--  发布时间:2018/10/24 18:51:00
--  

1、你用什么方式做的?贴出代码。

 

2、输入的内容、选择的图片、选择文件,不是可以最后一次性提交的?为什么又要跳转回来?


--  作者:浪花兄弟
--  发布时间:2018/10/24 18:56:00
--  
表单里加的跳转按钮:
With wb.AddButtonGroup("form1","btngrp1")
    With .Add("btn1","文件上传页面跳转","button")
        .Class = "btnClass"
        .Attribute = "style=\'font-style:italic;font-weight:900;\' "
    End With
End With


跳转到-上传文件界面:
Dim e As RequestEventArgs = args(0)
Dim UserInfo As Win.YPD.UserInfo = args(1)
Dim sb As New StringBuilder

Select Case e.Path
    Case "upload.htm"
        sb.appendLine("<form enctype=\'multipart/form-data\' action=\'accept.htm\' method=\'post\' id=\'form1\' name=\'form1\'>")
        sb.appendLine("单文件上传: <input type=\'file\' name=\'up1\' id=\'up1\'><br/><br/>")
        sb.appendLine("多文件上传: <input type=\'file\' name=\'up2\' id=\'up2\' multiple><br/><br/>")
        sb.appendLine("<input Type=\'submit\' name=\'Sumbit\' id=\'Sumbit\' value=\'确定\'>")
        sb.appendLine("</form>")
        e.WriteString(sb.ToString)
End Select


跳转到-接收上传文件:
Dim e As RequestEventArgs = args(0)
Dim UserInfo As Win.YPD.UserInfo = args(1)
\'Dim sb As New StringBuilder

Select Case e.Path
Case "accept.htm"
    Dim sb As New StringBuilder
    For Each key As String In e.Files.Keys
        sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")
        For Each fl As String In e.Files(key)
            sb.AppendLine(fl & "<br>")
            \'e.SaveFile(key,fl,"d:\\web\\uploadfiles\\" & fl) \'保存接收到的文件
            e.SaveFile(key,fl,"d:\\供应商合作平台\\MiLunsoftWeb\\uploadfiles\\" & fl)
        Next
        sb.AppendLine("</br>")
    Next
    sb.AppendLine("以上文件服务器已正确接收并保存!")
    e.WriteString(sb.ToString)
 End Select  

文件上传了,现在还需要返回到原表单(之前录了些数据)。

--  作者:有点甜
--  发布时间:2018/10/24 19:55:00
--  
上传界面,可以直接弄在你输入数据的页面那里不行么?最后一起提交整个表单
--  作者:浪花兄弟
--  发布时间:2018/11/24 17:38:00
--  
嗯不知怎么把 上传文件的界面,和保存提示的界面,
都写在录入表单的主界面里。
5楼三个界面的代码怎么拼接的?求指导。

--  作者:有点甜
--  发布时间:2018/11/25 17:32:00
--  

为什么要跳转到这里upload.htm上传?不能把上传的页面的代码写到你原来的页面那里去?

 

http://www.foxtable.com/mobilehelp/scr/0097.htm

 


--  作者:浪花兄弟
--  发布时间:2018/12/4 20:45:00
--  
求如何把(上传文件界面)写到(输入数据的页面里?
--  作者:有点蓝
--  发布时间:2018/12/4 20:57:00
--  
比如:http://www.foxtable.com/mobilehelp/scr/0060.htm