哪个高手帮看一下这个代吗?
我要上传一个文件,选择好文件了,点确定没有上传,仍然弹出“初次加载网页“,等于说,e.PostValues.Count 一直是等于0的。
Case "updata.htm"
Dim wb As New weui
If Verified = True Then '如果已经登录了
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","updata.htm")
With wb.AddInputGroup("form1","ipg1","名册上传") '文件上传
.AddUploader("up1","",true)
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1","确定", "submit")
.Add("btn1","返回主页","","index.htm") '超链接
.Add("btn2","查看校验","","yanzheng.htm") '超链接
End With
MessageBox.Show("初次加载网页")
Else
MessageBox.Show("e.PostValues不等于0")
Dim fhe As String
For Each key As String In e.Files.Keys
If key = "up1" Then
MessageBox.Show("有文件" & key)
For Each fl As String In e.Files(key)
e.SaveFile(key, fl, ProjectPath & "Attachments\" & vars("bh") & "_" & fl)
fhe = ProjectPath & "Attachments\" & vars("bh") & "_" & fl
MessageBox.Show("文件" & fhe)
Next
End If
Next
end if
end if
e.WriteString(wb.Build)
此主题相关图片如下:qq图片20200622113328.png
帮看一下错在哪里?
为什么没有表单提交上去?