主题：关于网页授权

Dim e As RequestEventArgs = args(0)

Dim wb As New  weui

wb.InsertHTML("<img width='100%' src='images/home.jpg'/>")

If e.PostValues.Count = 0 Then

    wb.AddForm("","form1","kaipiaoyuyuetianjia.htm")

    With wb.AddInputGroup("form1","ipg4","fa piao类型及领取方式")

        .AddSelect("fa piao类型","<label style='font-size:18px'>fa piao类型&nbsp;:&nbsp;</label>","|普通fa piao|增值税专用fa piao")

        .AddSelect("领取方式","<label style='font-size:18px'>领取方式&nbsp;:&nbsp;</label>","|酒店前台自取|到付邮寄")

    End With

    With wb.AddInputGroup("form1","ipg3","开piao内容")

        .AddInput("公司名称","<label style='font-size:18px'>公司名称&nbsp;:&nbsp;</label>","text")

        .AddInput("纳税人识别号","<label style='font-size:18px'>纳税人识别号&nbsp;:&nbsp;</label>","text")

        .AddInput("fa piao抬头","<label style='font-size:18px'>fa piao抬头&nbsp;:&nbsp;</label>","text")

        .AddInput("房间号","<label style='font-size:18px'>房间号&nbsp;:&nbsp;</label>","text")

        .AddInput("入住时间","<label style='font-size:18px'>入住时间&nbsp;:&nbsp;</label>","Date")

        .AddInput("离店时间","<label style='font-size:18px'>离店时间&nbsp;:&nbsp;</label>","Date")

        .AddInput("姓名","<label style='font-size:18px'>姓名&nbsp;:&nbsp;</label>","text")

        .AddInput("电话","<label style='font-size:18px'>电话&nbsp;:&nbsp;</label>","number")

        .AddInput("备注","<label style='font-size:18px'>备注&nbsp;:&nbsp;</label>","text")

        

    End With

    With wb.AddInputGroup("form1","ipg5","开piao二维码图片上传")

        '

        With .AddUploader("up128","开piao信息二维码",True)

            .AllowDelete = True '允许删除

            .Incremental = True '允许 重复选择文件或连续拍照

            .ScaleWidth = 400

            

        End With

    End With

    

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

        .Add("btn1", "确定", "button").Attribute= "" '调用js函数上传

    End With

    wb.AddToast("","tst1", "正在上传",1)

    wb.AddToast("","tst2", "上传成功",0)

    wb.AddToast("","tst3", "上传失败",0).Icon= "warn"

    wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

    

    wb.InsertHTML("</br><img width='100%' src=' images/kefu.jpg  '/>")

    e.WriteString(wb.Build)

Else

    Dim  nms() As  String =  {"fa piao类型","公司名称","纳税人识别号","fa piao抬头","房间号","入住时间","离店时间","姓名","电话","领取方式"}   '不能为空的列名数组

    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

    nms = New String() {"fa piao类型","公司名称","纳税人识别号","fa piao抬头","房间号","入住时间","离店时间","姓名","电话","领取方式","备注","开piao信息二维码"}  '重新定义了nms数组,增加了两列.

    Dim dr  As DataRow = DataTables("酒店开fa piao预登记").AddNew()   

    For Each nm As String In nms

        If e.PostValues.ContainsKey(nm) Then

            dr(nm) = e.PostValues(nm)

        End If

    Next

        dr("UserName") = e.Cookies("username") '从cookie获取用户名和openid

        'MessageBox.Show(e.Cookies("openid"))

        dr("OpenID") = e.Cookies("openid")

        dr("登记时间") = Today

        dr("预约号码") =dr("_Identify") 

    Dim t As TimeSpan

    t = CDate(dr("离店时间")) - CDate(dr("入住时间"))        

        If t.TotalDays = 0 Then

        dr("合计天数") = 1

        Else

        dr("合计天数") = t.TotalDays

        End If

    dr("酒店名称") = e.Cookies("jdmc")

    dr("地区") = "五华县"

    

    For Each key As String In e.Files.Keys

        If e.Files(key).Count - 1 < 0 Then

            

        Else

            For Each fln As String In e.Files(key)

                Dim NewName As String = fln

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

                Dim cnt As Integer = 1

                Do While FileSys.FileExists("d:\web\uploadfiles\" & NewName) '判断文件夹是否存在同名文件

                    NewName = fln.Insert(idx,""& cnt &"") '如果存在同名文件,在原文件名加上序号

                    cnt = cnt + 1 '递增序号

                Loop

                e.SaveFile(key,fln,"d:\web\uploadfiles\" & NewName) '保存接收到的文件

                Dim lst As List(of String) =  dr.Lines("开piao信息二维码")  '获取文件集合

                lst.Add(Filesys.GetName(NewName))  '给集合增加一个文件

                dr.Lines("开piao信息二维码") = lst  '将新的集合赋值给文件列               

            Next

        End If        

    Next    

    e.WriteString("OK")    

    dr.save()

    e.WriteString(wb.Build)

End  If

Select Case e.Path

    Case "kaipiaoyuyuetianjia.htm"

        If Functions.Execute("rrzz",e) = "OK" Then

            Functions.Execute("kaipiaoyuyuetianjia",e)

        End If

    End  Select