Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim danweimingcheng As String = e.PostValues("单位名称")
Dim suoshuzhibu As String = e.PostValues("支部名称")
Dim xingming As String = e.PostValues("姓名")
Dim tupianleibie As String = e.PostValues("图片类别")
Dim vals As String
Dim cmd11 As New SQL Command
cmd11.Connection Name = "智慧党建" '记得设置数据源名称
cmd11.Command Text = "Sele ct * From {会议列表}"
Dim dt As DataTable = cmd11.ExecuteReader
Select Case e.Path
Case "upload.htm"
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","记录上传","【三会一课系统】")
wb.AddForm("","form1","upload.htm")
With wb.AddInputGroup("form1","ipg1","基础信息")
'前一个"姓名"是ID,后一个"姓名"是标题
With .AddSelect("单位名称","单位名称","|" & dt.sqlGetComboListString("单位名称"))
.Attribute = """
End With
With .AddSelect("支部名称","支部名称","")
.Attribute = """
End With
.AddSelect("会议编号","会议编号","")
.AddSelect("姓名","姓名","" )
.AddSelect("图片类别","图片类别","|会议记录|学习记录|学习心得|其它材料")
End With
wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")
With wb.AddInputGroup("form1","ipg2","文件上传") '文件上传
With.AddUploader("up1","请选择图片",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
.ScaleWidth = 1024
End With
End With
'End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传
End With
With wb.AddDialog("","dlg1", "增加成功","好好学习,天天向上!")
.AddButton("btnOK","继续增加","default.htm")
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 cmd As New SQL Command
cmd.ConnectionN ame = "智慧党建"
cmd.CommandT ext = "In sert In to 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 SQL Command
cmd1.Connection Name = "智慧党建"
cmd1.Command Text = "In sert In to 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
e.WriteString("OK")
End If
End Select