Dim wb As New weui
Dim cmd As New SQ LCommand
cmd.C o n n e c t i o n N a m e = "智慧党建"
Dim dt As DataTable = cmd.ExecuteReader
Select Case e.Path
Case "index1.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","index1.htm")
With wb.AddInputGroup("form1","ipg1","增加图片")
.AddSelect("单位名称","单位名称","瓮安|") '前一个"姓名"是ID,后一个"姓名"是标题
.AddSelect("所属支部","所属支部","第一支部|第二支部")
.AddInput("姓名","姓名","Text")
.AddSelect("图片类别","图片类别","|会议记录|学习记录|学习心得|其它材料")
With wb.AddInputGroup("form1","ipg2","文件上传") '文件上传
With.AddUploader("up1","请选择图片",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit").Attribute= ""
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Else
Dim st As New Date(1970,1,1,8,0,0)
Dim d As Date = cdate("2020-02-01")
Dim t As Long = (Date.Now - st).TotalSeconds()
Dim danweimingcheng As String = e.PostValues("单位名称")
Dim suoshuzhibu As String = e.PostValues("所属支部")
Dim xingming As String = e.PostValues("姓名")
Dim tupianleibie As String = e.PostValues("图片类别")
cmd.CommandText = "Inse rt Int o web上传图片 (单位名称,所属支部,图片类别,姓名,时间戳) Values(?,?,?,?,?)"
cmd.Parameters.Add("@单位名称", danweimingcheng)
cmd.Parameters.Add("@所属支部", suoshuzhibu)
cmd.Parameters.Add("@图片类别", tupianleibie)
cmd.Parameters.Add("@姓名", xingming)
cmd.Parameters.Add("@时间戳", t)
cmd.ExecuteNonQuery
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
Dim wj As String =ProjectPath & "Attachments\" & fln
e.SaveFile(key,fln,wj)
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "Ins ert I nto web上传图片附件 (姓名,时间戳,图片名称,图片类别,图片) Values(?,?,?,?,?)"
cmd1.Parameters.Add("@姓名", xingming)
cmd1.Parameters.Add("@时间戳", t)
cmd1.Parameters.Add("@图片名称", FileSys.GetName(wj))
cmd1.Parameters.Add("@图片类别", tupianleibie)
Dim ImageByte() As Byte = System.IO.File.ReadAllBytes(wj) '读取文件流,并将读到的二进制数据放入数组ImageByte中,
cmd1.Parameters.Add("@图片", ImageByte)
cmd1.ExecuteNonQuery
Next
End If
Next
'保存并生成增加成功提示页面
DataTables ("web上传图片").Load()
DataTables ("web上传图片附件").Load()
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","index1.htm")
End With
e.WriteString(wb.Build)
End If
End Select
加好友 
发短信
Post By：2020/5/19 17:20:00 [只看该作者]
