'通用头事件
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 verified As Boolean '用户身份验证
Dim Username As String =e.Cookies("username")
Dim Password As String =e.Cookies("password")
If e.Path="logon.htm"
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
Username=e.PostValues("username")
Password=e.PostValues("password")
End If
End If
If Username="admin" AndAlso Password="110" Then
verified=True
End If
If Username="liaohb" AndAlso Password="111" Then
verified=True
End If
If verified AndAlso e.Path="logon.htm" Then
wb.AppendCookie("username",Username)
wb.AppendCookie("password",Password)
wb.InsertHTML("<meta http-equiv='Refresh' c>")'---跳转到数据页面
e.WriteString(wb.Build)
Return
ElseIf verified = False AndAlso e.Path<>"logon.htm" Then
wb.InsertHTML("<meta http-equiv='Refresh' c>")'---跳回首页
e.WriteString(wb.Build)
Return
End If
'--------以下是页面
Select Case e.Path
Case "logon.htm"
wb.AddPageTitle("","pageheader","合伙人","合伙人详细信息")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
wb.AddToptips("","toptip1","用户名或密码错误!").msec=3000 '---停留三秒的时间
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","用户","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1","登录","submit")
End With
Case "show.htm"
Dim user As String =e.PostValues("username")
wb.AddPageTitle("","pageheader","合伙人","合伙人详细信息")
Dim g As new SQLGroupTableBuilder("合伙人","平台合伙人订单数据")
g.C
g.Groups.AddDef("上级统计所有合伙人_上级")
g.Groups.AddDef("平台订单信息_会员姓名")
' g.Groups.AddDef("平台订单信息_付款时间")
' g.Groups.AddDef("平台订单信息_订单编号")
' g.Groups.AddDef("平台订单信息_状态")
g.Totals.AddDef("平台订单信息_一级佣金")
g.Totals.AddDef("平台订单信息_商品价格")
g.Totals.AddDef("平台订单信息_商品数量")
g.VerticalTotal = True
' g.Filter="[上级统计所有合伙人_上级] =" & user
Dim dt As DataTable = g.Build(False)
Dim sb As new StringBuilder
sb.AppendLine("合伙人信息如下:</br></br>")
For Each dr As DataRow In dt.DataRows
sb.Append(dr("上级统计所有合伙人_上级") & ":" & dr("平台订单信息_会员姓名") & "," & dr("平台订单信息_商品数量") & "," & dr("平台订单信息_商品价格") & "<br/>")
Next
e.WriteString(sb.ToString)
End Select
e.WriteString(wb.Build)