Dim wb As New weui
Dim e As Object = Args(0)
Functions.Execute("_0_RequestLog",e)
e.Response.AddHeader("Access-Control-Allow-Origin", "*")
e.Response.AddHeader("Access-Control-Allow-Headers", "Content-Type,Content-Length,Authorization,Accept,X-Requested-With")
e.Response.AddHeader("Access-Control-Allow-Methods", "PUT,POST,GET,DELETE,OPTIONS")
Select Case e.Path
Case "test"
wb.AddForm("","form1","procedure_file.htm")
With wb.AddInputGroup("form1","ipg1","增加员工")
.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("年龄","年龄","number")
.AddSelect("学历","学历","大专|本科|硕士|博士")
.AddUploader("up1","照片",True) 'True表示允许上传多个文件
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Case "procedure_file.htm" '执行存储过程含批量上传文件
Functions.Execute("_wExecProcedureFile",e)
End Select
加好友 
发短信
Post By：2020/4/28 14:23:00 [显示全部帖子]
