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"
e.WriteFile(fl)
End Select
End If
'以下是动态生成网页的代码
Select Case e.Path
Case "ribaobiao.html"
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AddForm("","form1","ribaobiao.html")
With wb.AddInputGroup("form1","ipg1","日报表筛选")
.AddSelect("xm","姓名","??") ‘这里怎么获取数据库中不重复的姓名
.AddInput("ksrq","开始日期","date")
.AddInput("jsrq","结束日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","筛选")
End With
e.WriteString(wb.Build) '生成网页
End Select
新人求解
加好友 
发短信
Post By：2017/11/14 11:28:00 [只看该作者]
