Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动版检测是否登陆


  共有2581人关注过本帖树形打印复制链接

主题：移动版检测是否登陆
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		移动版检测是否登陆  发帖心情 Post By：2018/2/23 18:14:00 [显示全部帖子]

下面的使用的内部函数调用  会直接进入网页  不会被登陆与否监控  要怎么检测后必须登陆呢

Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)
'Dim u As String = e.cookies("name")
Dim s As String = e.cookies("部门")
'Dim x As String = e.cookies("岗位")
'For Each dr As DataRow In DataTables("财务流水").sqlSelect("[部门] = '" & s & "'","日期 Desc")
With wb.AddTable("","Table1")
    '.MergeCols = 2 '合并左边2列
    .Alternate = 3
    Dim nms() As String = {"经手人","编号","科目","摘要","收入","支出","日期" }
    .Head.AddRow(nms)
    .body.AddRow("汇总","","","",DataTables("财务流水").sqlcompute("sum(收入)","[部门] = '" & s & "'"),DataTables("财务流水").sqlcompute("sum(支出)","[部门] = '" & s & "'"))
    For Each r As DataRow In DataTables("财务流水").sqlSelect("[部门] = '" & s & "'", "", "日期 Desc")
        With .Body.AddRow(r("经手人"),r("编号"),r("科目"),r("摘要"))
            .AddCell(Format(r("收入"),"#0.00"))
            .AddCell(Format(r("支出"),"#0.00"))
            .AddCell(Format(r("日期"),"MM月dd日"))
        End With
    Next
End With
e.WriteString(wb.Build)

如何让下面的身份验证能生效
'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
'Dim dr As DataRow  自定义窗口使用 密码是明码
'dr = DataTables("用户表").Find("name = '" & UserName & "'")
'If dr IsNot Nothing AndAlso Password = dr("password") Then
'Verified  = True
Dim dr As DataRow
dr = DataTables("用户表").Find("name = '" & UserName & "'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
    For Each u As UserInfo In users
        output.show(u.name)
        If u.name = username Then
            'msgbox(u.group)
            'msgbox(u.Roles)
            wb.AppendCookie("部门",u.group)
            wb.AppendCookie("岗位",u.Roles)
            wb.AppendCookie("name",u.name)
        End If
    Next
End If

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    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
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/23 18:21:00 [显示全部帖子]


下面代码是写到httprequest事件的


'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
'Dim dr As DataRow  自定义窗口使用 密码是明码
'dr = DataTables("用户表").Find("name = '" & UserName & "'")
'If dr IsNot Nothing AndAlso Password = dr("password") Then
'Verified  = True
Dim dr As DataRow
dr = DataTables("用户表").Find("name = '" & UserName & "'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
    For Each u As UserInfo In users
        output.show(u.name)
        If u.name = username Then
            'msgbox(u.group)
            'msgbox(u.Roles)
            wb.AppendCookie("部门",u.group)
            wb.AppendCookie("岗位",u.Roles)
            wb.AppendCookie("name",u.name)
        End If
    Next
End If

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    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

我输入http://127.0.0.1 就会要求输入登陆  
如果输入http://127.0.0.1/xkf1.htm   直接进入网页也可以 不会有要求登陆

[此贴子已经被作者于2018/2/23 18:23:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/24 11:40:00 [显示全部帖子]

http://127.0.0.1/xkf1.htm
链接我发总到一台新的电脑打开就不会检测是否登陆
我通过企业微信菜单链接也是一样不会提醒需要登陆
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/24 18:23:00 [显示全部帖子]

刚才更新了 2018版  不见了httprequest 服务器
图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180224182148.png
图片点击可在新窗口打开查看
代码也不见了  怎么找回
[此贴子已经被作者于2018/2/24 18:34:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/25 12:00:00 [显示全部帖子]

已经是最新的版本了
旧版文件没有了
[此贴子已经被作者于2018/2/25 12:06:53编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/25 12:07:00 [显示全部帖子]

截图
图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20180225120625.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/26 15:34:00 [显示全部帖子]

老师帮我看看  哪里除了问题

'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
'Dim dr As DataRow  自定义窗口使用 密码是明码
'dr = DataTables("用户表").Find("name = '" & UserName & "'")
'If dr IsNot Nothing AndAlso Password = dr("password") Then
'Verified  = True
Dim dr As DataRow
dr = DataTables("用户表").Find("name = '" & UserName & "'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
    For Each u As UserInfo In users
        output.show(u.name)
        If u.name = username Then
            'msgbox(u.group)
            'msgbox(u.Roles)
            wb.AppendCookie("部门",u.group)
            wb.AppendCookie("岗位",u.Roles)
            wb.AppendCookie("name",u.name)
        End If
    Next
End If

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    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","IDIR-CASA","TOCASA WUI OPEN")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
        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
        With wb.AddPageFooter("","pf1","开发版权;IDIR 2000-2188")
            .AddLink("艾迪尔国际家居","http://www.idircasa.com")
            .AddLink("注册艾迪尔账号","用户注册.htm")
        End With
    Case "exit.htm" '退出登录
        wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
        wb.DeleteCookie("password")
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    Case "default.htm" '首页
        'Functions.Execute("页面导航",e)
        wb.AddPageTitle("","pageheader100","IDIR","艾迪尔国际家居")

[此贴子已经被作者于2018/2/26 15:35:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/26 16:43:00 [显示全部帖子]

以下是引用有点甜在2018/2/26 16:31:00的发言：
你12楼的代码应该没问题的，你目前测试，现象是什么，访问什么地址，最后得到什么结果，和你预想有什么差距？
http://127.0.0.1/gzrb.htm   直接地址进入网页是不会提示您需要登陆的。   
127.0.0.1    这样进入就会显示登陆窗口
  我希望如果 直接用地址  访问 http://127.0.0.1/gzrb.htm   系统会检测您是否登陆  如果没有登陆就会返回登陆界面
全部代码如下
Dim fl As String = "c:\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


Select Case e.Path
    Case "用户注册.htm"
        Functions.Execute("用户注册",e)
        'Case "质量优化.htm"
        'Functions.Execute("质量优化",e)
    Case "重点客户.htm"
        Functions.Execute("重点客户",e)
    Case "部门日志.htm"
        Functions.Execute("部门日志",e)
    Case "历史日志.htm"
        Functions.Execute("历史日志",e)
    Case "客户档案.htm"
        Functions.Execute("客户档案",e)
    Case "安装在线.htm"
        Functions.Execute("安装在线",e)
    Case "深化在线.htm"
        Functions.Execute("深化在线",e)
    Case "制造在线.htm"
        Functions.Execute("制造在线",e)
    Case "报价在线.htm"
        Functions.Execute("报价在线",e)
    Case "验收在线.htm"
        Functions.Execute("验收在线",e)
    Case "终端客户.htm"
        Functions.Execute("终端客户",e)
    Case "日志报表.htm"
        Functions.Execute("日志报表",e)
    Case "管理日志.htm"
        Functions.Execute("管理日志",e)
    Case "gzrb.htm"
        Functions.Execute("工作日志",e)
    Case "立项事件.htm"
        Functions.Execute("立项事件",e)
    Case "立项报表.htm"
        Functions.Execute("立项报表",e)
    Case "iwood.htm"
        Functions.Execute("国际馆木作",e)
    Case "备忘报表.htm"
        Functions.Execute("备忘报表",e)
    Case "财务流水.htm"
        Functions.Execute("财务流水",e)
    Case "部门财务.htm"
        Functions.Execute("部门财务",e)
    Case "qsqjal.htm"
        Functions.Execute("全景案例",e)
    Case "xkf1.htm"
        Functions.Execute("家居报备",e)
    Case "xkf.htm"
        Functions.Execute("木作报备",e)
End Select

'身份验证
Dim Verified As Boolean '用于标记用户是否通过了身份验证
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Password As String = e.Cookies("password") '从cookie中获取用户密码
If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码
    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then
        UserName = e.PostValues("username")
        Password = e.PostValues("password")
    End If
End If
'Dim dr As DataRow  自定义窗口使用 密码是明码
'dr = DataTables("用户表").Find("name = '" & UserName & "'")
'If dr IsNot Nothing AndAlso Password = dr("password") Then
'Verified  = True
Dim dr As DataRow
dr = DataTables("用户表").Find("name = '" & UserName & "'")
If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then
    Verified  = True
    For Each u As UserInfo In users
        output.show(u.name)
        If u.name = username Then
            'msgbox(u.group)
            'msgbox(u.Roles)
            wb.AppendCookie("部门",u.group)
            wb.AppendCookie("岗位",u.Roles)
            wb.AppendCookie("name",u.name)
        End If
    Next
End If

If Verified AndAlso e.Path = "logon.htm"  Then '如果用户访问的是登录页,且身份验证成功
    wb.AppendCookie("username",UserName) '将用户名和密码写入cookie
    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","IDIR-CASA","TOCASA WUI OPEN")
        If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录
            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
        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
        With wb.AddPageFooter("","pf1","开发版权;IDIR 2000-2188")
            .AddLink("艾迪尔国际家居","http://www.idircasa.com")
            .AddLink("注册艾迪尔账号","用户注册.htm")
        End With
    Case "exit.htm" '退出登录
        wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
        wb.DeleteCookie("password")
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
    Case "default.htm" '首页
        'Functions.Execute("页面导航",e)
        wb.AddPageTitle("","pageheader100","IDIR","艾迪尔国际家居")
        wb.AddPageTitle("","pageheader1","","日常工作")
        With wb.AddGrid("","g1")
        .Add("c11","密码修改", "./images/toast.png", "密码修改.htm")
        .Add("c3","工作日志", "./images/buttons_27.ico", "gzrb.htm")
        .Add("c3","历史日志", "./images/buttons_27.ico", "历史日志.htm")
        .Add("c11","立项事件", "./images/tab.png", "立项事件.htm")
        .Add("c12","退出系统", "./images/toast.png", "exit.htm")
        .Add("c12","质量优化", "./images/toast.png", "zlyh.htm")
        .Add("c11","国际馆木作", "./images/toast.png", "iwood.htm")
        End With
        wb.AddPageTitle("","pageheader21","","商务管理")
        With wb.AddGrid("","g21")
        .Add("c2","客户档案", "./images/toast.png", "客户档案.htm")
        .Add("c2","木作客户报备", "./images/buttons_27.ico", "xkf.htm")
        .Add("c2","家居客户报备", "./images/buttons_27.ico", "xkf1.htm")
        .Add("c3","重点客户", "./images/toast.png", "重点客户.htm")
        .Add("c3","报价在线", "./images/toast.png", "zdyf.htm")
        .Add("c3","商务在线", "./images/toast.png", "终端客户.htm")
        .Add("c3","木作在线", "./images/toast.png", "zdyf1.htm")
        .Add("c3","订单在线", "./images/toast.png", "订单在线.htm")
        End With
        wb.AddPageTitle("","pageheader2","","订单管理")
        With wb.AddGrid("","g2")
        .Add("c2","设计在线", "./images/toast.png", "深化在线.htm")
        .Add("c2","制造在线", "./images/toast.png", "制造在线.htm")
        .Add("c2","结案订单", "./images/toast.png", "结案订单.htm")
        End With
        wb.AddPageTitle("","pageheader3","","安装管理")
        With wb.AddGrid("","g3")
        .Add("c2","安装在线", "./images/toast.png", "安装在线.htm")
        .Add("c2","验收在线", "./images/toast.png", "验收在线.htm")
        End With
        wb.AddPageTitle("","pageheader4","","售后管理")
        With wb.AddGrid("","g4")
        
        
        End With
        wb.AddPageTitle("","pageheader5","","客诉管理")
        With wb.AddGrid("","g5")
        .Add("c11","立项报表", "./images/toast.png", "立项报表.htm")
        End With
        
        wb.AddPageTitle("","pageheader6","","部门管理")
        With wb.AddGrid("","g6")
        .Add("c112","财务流水", "./images/toast.png", "财务流水.htm")
        .Add("c112","部门财务", "./images/toast.png", "部门财务.htm")
        .Add("c11","立项报表", "./images/toast.png", "立项报表.htm")
        .Add("c11","备忘报表", "./images/toast.png", "备忘报表.htm")
        End With
        wb.AddPageTitle("","pageheader7","","集团资源")
        With wb.AddGrid("","g7")
        .Add("c1","集团主页", "./images/actionSheet.png", "http://www.idircasa.com")
        .Add("c3","个人日志", "./images/toast.png", "日志报表.htm")
        .Add("c11","管理日志", "./images/toast.png", "管理日志.htm")
        .Add("c11","部门日志", "./images/toast.png", "部门日志.htm")
        
        End With
        wb.AddPageTitle("","pageheader8","","待开发功能")
        With wb.AddGrid("","g8")
        .Add("c10","设计师采集", "./images/button.png").Attribute = ""
        .Add("c4","木作需求采集", "./images/button.png").Attribute = ""
        .Add("c5","软装需求采集", "./images/button.png").Attribute = ""
        .Add("c6","家具需求采集", "./images/button.png").Attribute = ""
        .Add("c7","楼盘信息采集", "./images/button.png").Attribute = ""
        .Add("c8","特殊产品采集", "./images/button.png").Attribute = ""
        .Add("c9","财务报销提交", "./images/button.png").Attribute = ""
        .Add("c10","出差申请", "./images/button.png").Attribute = ""
        .Add("c12","密码修改", "./images/toast.png", "密码修改.htm")
        .Add("c12","客户裂变", "./images/toast.png", "cwls.htm")
        .Add("c12","艾定制案例", "./images/toast.png", "qsqjal.htm")
        .Add("c13","报价交期查询", "./images/toast.png", "filter.htm")
        .Add("c111","项目备忘", "./images/toast.png", "xmbw.htm")
        .Add("c10","木作投诉", "./images/toast.png").Attribute = ""
        End With
End Select
e.WriteString(wb.Build) '生成网页



Select Case e.Path
    Case "zlyh.htm"
        wb.AddForm("","form1","receive.htm")
        With wb.AddInputGroup("form1","ipg1","文件上传")
            With .AddUploader("up128","照片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
            End With
        End With
        With wb.AddButtonGroup("form1","btg1",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>") '引入脚本文件
        e.WriteString(wb.Build) '生成网页
    Case "receive.htm"
        For Each key As String In e.Files.Keys
            For Each fln As String In e.Files(key)
                e.SaveFile(key,fln,"c:\web\uploadfiles\" & fln) '保存接收到的文件
            Next
        Next
        e.WriteString("OK")
End Select

[此贴子已经被作者于2018/2/26 16:45:16编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2464 积分：22751 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/26 17:30:00 [显示全部帖子]

搞定 
[此贴子已经被作者于2018/2/26 17:32:49编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07031 秒, 5 次数据查询