以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  加了图片压缩就上传不了图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120687)
--  作者：rjh4078
--  发布时间：2018/6/21 21:45:00
--  加了图片压缩就上传不了图片
Dim e As RequestEventArgs = args(0)
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","upload.htm")
With wb.AddInputGroup("form1","ipg1","上传产品图片")
\'前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("药材类目","药材类目","text")
With .AddUploader("up1","照片",False) \'True表示允许上传多个文件
.Incremental = True
.ScaleWidth = 400
End With
End With
With wb.AddPageFooter("","pf1","为了减少数据量,图片按类目上传,后面上传的图片将覆盖之前的!")

End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
If e.PostValues("药材类目")=""  Then
wb.InsertHTML("药材类目必须输入!")
End If
e.WriteString(wb.Build)
Else
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
\'\'MessageBox.show(fln)
e.SaveFile(key, fln, ProjectPath & "web\\images\\" & e.PostValues("药材类目") & ".jpg")
Next

End If
Next
\'保存并生成增加成功提示页面

With wb.AddMsgPage("","msgpage","增加成功", e.PostValues("药材类目") & "的图片已提交到服务器!") \'生成成功提示页
.AddButton("btn1","继续增加","upload.htm")
End With

e.WriteString(wb.Build)
End If

帮助里那个用js的有点不人性化 如果没有盯着手机看不知道结果
--  作者：有点甜
--  发布时间：2018/6/21 23:19:00
--  

必须要用帮助里面的ajax提交submitAjaxForm

 

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

 

提交图片成功后，你可以任意提示啊，看懂js代码修改

 
--  作者：rjh4078
--  发布时间：2018/6/23 21:32:00
--  
我想在提交成功以后停留在receive页面并且给出一个MsgPage
但是我在修改js的时候 发现他要接收一个OK参数 但是这个e.WriteString只能用一次啊
如何既返回结果 又能增加MsgPage
或者这个submitForm不用管 我直接跳过？
--  作者：有点甜
--  发布时间：2018/6/24 22:53:00
--  

1、提交成功以后返回js里面，你可以任意写代码提示成功；

 

2、如果要跳转到另一个页面，就写 location = "/新的提示页面.htm"
--  作者：playmal
--  发布时间：2018/12/2 22:56:00
--  
我也遇到同样问题，在自定义函数里面直接写代码就不行，必须分开。
--  作者：有点甜
--  发布时间：2018/12/2 23:15:00
--  
以下是引用playmal在2018/12/2 22:56:00的发言：
我也遇到同样问题，在自定义函数里面直接写代码就不行，必须分开。

 

具体说明你的问题，贴出代码，说明怎么不行。