[求助]图片压缩 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

根据图片压缩示例，我该如何修改代码，URL 是根据查询生成的图片点击可在新窗口打开查看

，

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As String = e.GetValues("key")

Dim PageURL = "faceid.htm?page=" & PageNumber

If e.PostValues.Count = 0 Then '生成编辑页面

Dim dr As DataRow = DataTables("USERSlist").SQLFind("[工号]=" & PrimaryKey)

If dr IsNot Nothing Then

wb.AddForm("", "form1", "faceid.htm?" & "page = " & PageNumber & "&key = " & PrimaryKey )

With wb.AddInputGroup("form1", "ipg1", "基础信息")

.AddInput("工号", "工号", "text").value = dr("工号")

.AddInput("姓名", "姓名", "text").Value = dr("姓名")

.AddInput("部门", "部门", "Text").Value = dr("部门")

End With

With wb.AddInputGroup("form1", "ipg22", "照片上传")

With .AddUploader("up2", "照片上传", True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

.ScaleWidth = 1000

End With

With wb.AddButtonGroup("form1", "btg1", True)

.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传

End With

wb.AddToast("", "tst1", "正在上传", 1)

wb.AddToast("", "tst2", "上传成功", 0)

wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

Else

With wb.AddMsgPage("", "msgpage", "编辑失败", "此用户可能已经被删除!") '提示用户此订单不存在.

.icon = "Warn"

.AddButton("btn1", "返回", "rzfilter.htm") '生成返回原来页面的按钮

End With

End If

页面截图看看

另外httprequest，上层页面的完整代码发上来看看

此主题相关图片如下：微信图片_20221017170732.png

提交数据的js代码发上来看看

照抄的帮助

function submitForm(){

show("tst1",2000);

var result = submitAjaxForm('form1','afterSubmit');

}

function afterSubmit(result){

hide("tst1");

if (result=='OK') {

show("tst2");

location="upload.htm";

}

else{

show("tst3",2000);

}

Dim e As RequestEventArgs = args(0)

Dim wb As New weui

Dim PageNumber As Integer = e.GetValues("page")

Dim PrimaryKey As String = e.GetValues("key")

Dim PageURL = "faceid.htm?page=" & PageNumber

If e.PostValues.Count = 0 AndAlso e.Files.Keys.count = 0 Then '生成编辑页面

Dim dr As DataRow = DataTables("USERSlist").SQLFind("[工号]=" & PrimaryKey)

If dr IsNot Nothing Then

wb.AddForm("", "form1", "faceid.htm?" & "page = " & PageNumber & "&key = " & PrimaryKey)

……

Else

接收数据的代码, 比如

For Each key As String In e.Files.Keys

For Each fln As String In e.Files(key)

e.SaveFile(key, fln, "d:\web\uploadfiles\" & fln) '保存接收到的文件

e.WriteString("OK")

End If

function afterSubmit(result){

hide("tst1");

if (result=='OK') {

show("tst2");

//这一句去掉location="upload.htm";

}

else{

show("tst3",2000);

}

主题：[求助]图片压缩