主题：[求助][讨论]网页上日期引用

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

Dim path As String = "foxtableAppTest"

If filesys.FileExists(fl) ''如果文件存在

    Dim idx As Integer = fl.LastIndexOf(".") '''f1最后出现"."向前字符的个数

    Dim ext As String  = fl.SubString(idx)  ''f1字符从idx向后的字符

    Select Case ext

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

            e.WriteFile(fl)

            Return '这里必须返回

    End Select

End If

Static UserTable As DataTable '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.

Static ClearTime As Date

If UserTable Is Nothing Then '创建用于记录登录信息的临时表

    ClearTime = Date.Now()

    Dim dtb As New DataTableBuilder("UserInfos")    

    dtb.AddDef("UserName", Gettype(String),16)

    dtb.AddDef("UserID",Gettype(String),16)

    dtb.AddDef("ActiveTime",Gettype(Date))

    dtb.AddDef("yfglz", Gettype(String),16)

    UserTable = dtb.Build(True)

End If

If (Date.Now - ClearTime).TotalMinutes >= 30 Then '清除超过30分钟没有操作的登录信息

    UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-30) & "#")

    ClearTime = Date.Now()

End If

Dim wb As New weui '身份验证

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)

Dim yfglz As String

Dim UserName As String

Dim Password As String

Dim UserID As String

If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码

    If e.PostValues.ContainsKey("yfglz") AndAlso e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then

        Dim Verified As Boolean '用于标记用户是否通过了身份验证

        yfglz = e.PostValues("yfglz")

        UserName = e.PostValues("username")

        Password = e.PostValues("password")

        Dim dr As DataRow

        dr = DataTables("users").Find("Name = '" & UserName & "'And [用户管理组] = '" & yfglz & "'")

        If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then

            Verified  = True

        End If

        If Verified Then

            UserID = Rand.NextString(16) '生成随机用户ID

            'yfglz = EncryptText(yfglz,"123","123") '将用户名加密.

            UserName = EncryptText(UserName,"123","123") '将用户名加密.

            Dim drt As DataRow = UserTable.Find("yfglz = '" & yfglz & "'And UserName = '" & UserName & "' ")

            If  drt IsNot Nothing Then '如果是重复登录,删除以前的登录信息

                drt.Delete()

            End If

            drt = UserTable.AddNew()

            drt("yfglz") = yfglz

            drt("UserName") = UserName

            drt("UserID") = UserId

            drt("ActiveTime") = Date.Now '记录登录时间

            wb.AppendCookie("yfglz",yfglz) '将用户名和密码写入cookie

            wb.AppendCookie("username",UserName) '将用户名和密码写入cookie

            wb.AppendCookie("userid",UserID)

            wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

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

            Return '必须的

        End If

    End If

Else '其它页面从Cookie提取登录信息进行验证

    yfglz = e.Cookies("yfglz")  '从cookie中获取用户名

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

    UserID = e.Cookies("userid")  '从cookie中获取 随机ID

    Dim dr As DataRow = UserTable.Find("yfglz = '" & yfglz & "'And UserName = '" & UserName & "'")

    If dr IsNot Nothing AndAlso dr("UserID") = UserID Then  '如果通过验证,更新活动时候,继续访问其它页面.

        dr("ActiveTime") = Date.Now '更新活动时间

    Else '如果验证失败

        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面

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

        Return '必须的

    End If

End If

Select Case e.path

    Case "logon.htm" '登录页面

 

        wb.AddPageTitle("","pageheader","南通弘顺印染管理系统","由弘顺财务部开发")

        If e.PostValues.ContainsKey("yfglz") AndAlso e.PostValues.ContainsKey("username")   AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录

            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 3000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

        End If

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

        With wb.AddInputGroup("form1","ipg1")

            Dim gjs As List(of String) = DataTables("Users").GetValues("用户管理组")

            .AddSelect("yfglz","用户组","|" & String.Join("|",gjs.ToArray)).Attribute = ""  '调用js函数.

            .AddSelect("username","户名","")

            For Each ggj As String In gjs

                wb.InsertHTML("<p hidden id='" & ggj & "'>" & DataTables("Users").GetComboListString("Name","用户管理组='" & ggj & "'") & "</p>")

            Next

            '.AddInput("yfglz","用户组","text" )

            '.AddInput("username","户名","text" )

            

            .AddInput("password","密码","password")

        End With

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

            .Add("btn1", "登录", "submit")

            .Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""

        End With

        wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('username').value=r;}</script>")

    Case "exit.htm" '退出登录

        wb.DeleteCookie("yfglz") '清除cookie中原来的用户名和密码

        wb.DeleteCookie("username") '清除cookie中原来的用户名和密码

        wb.DeleteCookie("password")

        wb.InsertHTML("<meta http-equiv='Refresh' c>") '然后直接跳转到登录页面

    Case "", "default.htm" '首页

        wb.AddPageTitle("","pageheader","弘顺管理系统","由弘顺财务部开发")

        With wb.AddListGroup("", "lsg4","")

            .Add("c1","采购管理", "进入","cggl.htm","./images/采购管理.png")

            .Add("c2","坯布管理","进入", "pbgl.htm","./images/坯布管理.png")

            '.Add("c3","分色管理","进入", "","./images/分色管理.png")

            .Add("c4","生产管理","进入","scgl.htm","./images/生产管理.png")

            '.Add("c5","品质管理", "进入","","./images/品质管理.png")

            .Add("c6","库存管理","进入","kcgl.htm","./images/库存管理.png")

            .Add("c7","人事管理","进入","rsgl.htm","./images/人事管理.png")

            .Add("c8","销售管理","进入","xsgl.htm","./images/销售管理.png")

            .Add("c9","财务管理","进入","cwgl.htm","./images/财务管理.png")

            .Add("c10","资产管理","进入", "zcgl.htm","./images/资产管理.png")

            .Add("c11","退出","","exit.htm","./images/退出2.png") '退出登

        End With

Dim UserName2 = DecryptText(UserName,"123","123") '将用户名加密.

With wb.AddPageFooter("","pf1","当前用户 "& UserName2 & "")

End With

    Case "cggl.htm"

        Dim Verified As Boolean

        If yfglz = "采购管理组" Or yfglz = "材料仓库管理组" Then

            Verified  = True

        End If

        If Verified AndAlso e.Path = "cggl.htm"  Then '如果用户访问的是登录页,且身份验证成功

            Functions.Execute("cggl",e) '分页显

            Return '必须的