用楼上的方法，dr.Lines("展示照") = NewName，提示未声明变量NewName,不能赋值
所以改成这样定义NewName
Dim e As RequestEventArgs = args(0) '验证页面(照片)
Select Case e.Path
Case "valid_images.htm"
Dim wb As New weui
Dim drbianh As String = e.Cookies("drbianhao") '为cookie传递数据
Dim NewName As String
'msgbox(drbianh)
Dim dr As DataRow = DataTables("会员资料").sqlFind("会员编号 = '" & drbianh & "'")
If dr IsNot Nothing Then '测试代码:msgbox(e.PostValues("isr"))
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
'msgbox(0)
Dim ext As String = fln.Split(".")(1)
NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & "." & ext
e.SaveFile(key, fln, ProjectPath & "Attachments\" & NewName)
Next
dr.Lines("展示照") = NewName
End If
Next
For Each key1 As String In e.Files.Keys
If key1 = "up4" Then
For Each fln1 As String In e.Files(key1)
'msgbox(1)
Dim ext As String = fln.Split(".")(1)
NewName = Format(Date.Now, "yyyyMMddHHmmssffffff") & "." & ext
e.SaveFile(key1, fln1, ProjectPath & "Attachments\" & NewName)
Next
dr.Lines("展示照") = NewName
End If
Next
dr.save() '保存
End If
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
e.WriteString(wb.Build) '生成网页
End Select
但是还是提示错误,见附图
此主题相关图片如下：qq图片3321177.png
加好友 
发短信
Post By：2017/3/22 17:22:00 [只看该作者]
