专家坐堂-[求助]get方式提交急急急Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'通用事件头

Dim fl As String = "d:\\web\\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return \'这里必须返回

End Select

End If

Dim wb As New weui

Dim sb As New StringBuilder

Select Case e.path

Case "fankui.htm" \'访问的网址

\'Dim sb As New StringBuilder

\'sb.AppendLine("<form enctype=\'multipart/form-data\'action=\'fankui.htm method=\'get\' 培训课程=\'form1\' 培训讲师=\'form1\' 培训日期=\'form1\'>")

\'sb.AppendLine("</form>")

wb.AddPageTitle("","pageheader","培训系列","培训反馈系统")

If e.GetValues.Count = 3 Then

\' End If

\'If e.PostValues.count = 0 Then

wb.AddForm("","form1","fankui.htm") \'接收数据的网址

\'With wb.AddInputGroup("form1","培训主题","培训主题") \'定义输入框组

\'.Addinput("培训课程","培训课程","text")

\'.Addinput("培训讲师","培训讲师","text")

\'.Addinput("培训日期","培训日期","date")

\'End With

With wb.AddArticle("form1","ar1")

.AddContent("本反馈表为不记名填写,主要目的在于了解您对本次培训的整体评价,请实事求是按照下列所给予的指标要素对本次培训给予客观评价.我们期望通过本表了解你真实?具体的感受和建议,以便我们更有效的设计培训课程,改善培训工作!")

End With

With wb.AddInputGroup("form1","培训内容","培训内容评价") \'定义输入框组

.AddSelect("你对培训内容的理解程度","你对培训内容的理解程度"," |完全|大部分|小部分|不理解")

.AddSelect("对工作的帮助作用程度","对工作的帮助作用程度"," |很大|较大|一般|无帮助")

.AddSelect("与您的期望符合程度","与您的期望符合程度","|很符合|符合|一般|不符合")

End With

With wb.AddInputGroup("form1","培训讲师","培训讲师评价") \'定义输入框组

.AddSelect("信息量大,知识面广","信息量大,知识面广"," |很好|良好|一般|不好")

.AddSelect("系统性强,重点明确","系统性强,重点明确"," |很好|良好|一般|不好")

.AddSelect("语言流畅,清晰易懂","语言流畅,清晰易懂"," |很好|良好|一般|不好")

.AddSelect("互动性强,形式灵活","互动性强,形式灵活"," |很好|良好|一般|不好")

.AddSelect("联系实际,课程合理","联系实际,课程合理"," |很好|良好|一般|不好")

End With

With wb.AddInputGroup("form1","最终评价","最终评价") \'定义输入框组

.AddSelect("您对此次培训课程满意程度","您对此次培训课程满意程度"," |很满意|满意|一般|不满意")

.AddSelect("以后还愿意参加学习机会吗","以后还愿意参加学习机会吗"," |很愿意|愿意|一般|不愿意")

.AddTextArea("您对本次培训的良好建议",5).Placeholder = "您对本次培训的良好建议" \'5代表行数

.AddTextArea("您期望公司以后安排哪些培训",5).Placeholder = "您期望公司以后安排哪些培训" \'5代表行数

End With

With wb.AddCheckGroup("form1","rdg2","您对本次培训的收获(可多选")

.Add("sh1","获得适用的新知识")

.Add("sh2","可以获得可操作的工作技巧")

.Add("sh3","帮助您改变自己的工作态度")

.Add("sh4","给您一个与同事有益的交流机会")

.Add("sh5","给您一些新的思想理念")

.Add("sh6","通过案列学习了相关技巧")

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build) \'生成网页

Else

\'Dim nms() As String = {"培训课程","培训讲师","培训日期","你对培训内容的理解程度"} \'不能为空的列名数组

\'For Each nm As String In nms

\'If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页

\'With wb.AddMsgPage("","msgpage","提交失败", nm & "不能为空!")

\'.icon = "Warn" \'改变图标

\'.AddButton("btn1","返回").Attribute = ""

\'End With

\'e.WriteString(wb.Build)

\'Return \'必须返回

\'End If

\'Next

\'Dim sb As New StringBuilder

sb.AppendLine("<meta name=\'viewport\' c>")

sb.AppendLine("<form enctype=\'multipart/form-data\'action=\'fankui.htm method=\'get\' 培训课程=\'form1\' 培训讲师=\'form1\' 培训日期=\'form1\'>")

sb.AppendLine("</form>")

sb.AppendLine("通过GET方式提交的数据:<br/><br/>")

For Each key As String In e.GetValues.Keys

sb.AppendLine(key & ":" & e.GetValues(key) & "<br/>")

sb.AppendLine("<br/><br/>通过POST方式提交的数据:<br/><br/>")

For Each key As String In e.PostValues.Keys

sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")

\'dr.save()

With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页

.AddButton("btn1","继续增加","addnew.htm")

End With

e.WriteString(sb.ToString)

\'End If

End If

End Select