Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim cmd As New SQ LCommand
cmd.C '记得设置数据源名称
cmd.CommandText = "Sel ect Count(*) From {web上传图片}"
Dim Count As Integer = cmd.ExecuteScalar() '获取总的行数
Dim dt As DataTable = cmd.ExecuteReader
Select Case e.Path
Case "index.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","index.htm")
With wb.AddInputGroup("form1","ipg1","增加图片")
.AddInput("单位名称","单位名称","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("所属支部","所属支部","Text")
.AddInput("姓名","姓名","Text")
.AddInput("图片类型","图片类型","Text")
.AddUploader("up1","图片",True) 'True表示允许上传多个文件
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"单位名称","所属支部","姓名","图片类型","图片"}
Dim dr As DataRow = dt.AddNew()
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.save
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln) 这个部分可以保存图片到指定目录了
'dr.Lines("图片") = e.Files(key)
dr.DataRows.SQ LInsertFile("图片",ProjectPath & "Attachments\" & fln) '插入文件 想实现上传的图片直接写入图片二进制列里
Next
End If
Next
'保存并生成增加成功提示页面
dr.save()
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","index.htm")
End With
e.WriteString(wb.Build)
End If
End Select
加好友 
发短信
Post By：2020/5/19 10:54:00 [只看该作者]
