运行代码，服务器出现“由于线程退出或应用程序请求，已终止I/O操作”
Case "receive2.htm"
wb.AddForm("","form1","receive2.htm")
For Each key As String In e.Files.Keys
If e.Files(key).count > 9 Then '---------------补充
e.WriteString("照片不能多于9张!!")'---------------补充
Return '---------------补充
End If
Dim nms() As String = {"文章内容"}
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
e.WriteString(nm & "内容不能为空!")
Return '必须返回
End If
Next
Dim nmc() As String = {"文章内容"}
Dim dra As DataRow = DataTables("班级圈").AddNew()
For Each nn As String In nmc
dra(nn) = e.PostValues(nn)
dra("录入日期") = Date.Now
dra("录入员") = username
dra("学校") = schoolname
Dim tim As String = Format(Date.Now,"yyyyMMddHHmmssffff")
dra("文章编号") = tim & schoolname & username
Dim dmv As DataRow = DataTables("用户表").Find("姓名 = '" & UserName & "' and 学校 = '" & SchoolName & "'" ) '寻找对应标题的行
If dmv IsNot Nothing Then '如果找到的话
dra("教育格言") = dmv("教育格言")
End If
Next
If key = "up4" Then
Dim lst As List(of String) = dra.Lines("文章照片")
For Each fln As String In e.Files(key)
Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
e.SaveFile(key, fln, "e:\web\images\uploadfiles\" & n)
lst.Add(n)
Dim file As String = "e:\web\images\uploadfiles\" & n
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 100, 100 * (img.height / img.width))
bmp.save("e:\web\images\缩略图\" & n)
bmp.Dispose
Next
dra.Lines("文章照片") = lst
End If
dra.save()
e.WriteString("ok")
Next
此主题相关图片如下：微信截图_20210825103333.png
[此贴子已经被作者于2021/8/25 10:34:04编辑过]
加好友 
发短信
Post By：2021/8/25 10:33:00 [只看该作者]
