Foxtable(狐表) → 用户栏目 → 专家坐堂 → 放在内部函数里要岀错


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

主题：放在内部函数里要岀错
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		放在内部函数里要岀错  发帖心情 Post By：2022/1/24 11:59:00 [显示全部帖子]

Select Case e.Path
    Case "testres.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.PostValues.Keys
            sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
    Case Else
        Dim p As String = e.path
        If p = "" Then p = "*"
        Dim dr As DataRow = DataTables("httprequest").SQLFind("path='" & p & "' or '" & p & "' like path ")
        If dr IsNot Nothing Then
            Functions.Execute(dr("内部函数"),e)
        Else
            Dim wb As New weui
            wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
            wb.AppendHTML("<script>console.warn('" & e.path & "不在httprequest表,请检查是否没有设置.')</script>")
            e.WriteString(wb.Build)
        End If
End Select
'



图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20220124115452.png
图片点击可在新窗口打开查看



 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:授择.txt

    


放在内部函数里要岀错，
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 15:17:00 [显示全部帖子]

授择的页面必须放在
一个函数里吗
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 16:04:00 [显示全部帖子]

不放在一起直接查询关联的网页会显示404，而不是跳转登录页面

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 16:29:00 [显示全部帖子]

Dim wb As New weui
Select Case e.path
    Case "logon.htm" '登录页面
..........
Case "default.htm"
...........
Case "1.htm"
...........
Case "2.htm"
...........
End Select

我把上面每个页面全部折分成每个函数，现在如果我防问Case "2.htm"，不会跳转Case "logon.htm" '登录页面

每个函数前面是不是要加什么让没登录防问其它页面就跳转Case "logon.htm" '登录页面，而不是显示404
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 16:56:00 [显示全部帖子]

Select Case e.Path
    Case "testres.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.PostValues.Keys
            sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
    Case Else
        Dim p As String = e.path
        If p = "" Then p = "*"
        Dim dr As DataRow = DataTables("httprequest").SQLFind("path='" & p & "' or '" & p & "' like path ")
        If dr IsNot Nothing Then
            Functions.Execute(dr("内部函数"),e)
        Else
            Dim wb As New weui
            wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
            wb.AppendHTML("<script>console.warn('" & e.path & "不在httprequest表,请检查是否没有设置.')</script>")
            e.WriteString(wb.Build)
        End If
End Select


放这里面还是单独放这上面-下面 
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 17:06:00 [显示全部帖子]

我放在 Select Case e.Path之前
连我不验证的页面也要验证了
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1553 积分：10501 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/1/24 17:20:00 [显示全部帖子]

我把全部页面都函数
用下面代码自动抓取，什么弄


Select Case e.Path
    Case "testres.htm"
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name='viewport' c>")
        sb.AppendLine("接收到的数据有:<br/><br/>")
        For Each key As String In e.PostValues.Keys
            sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
        Next
        e.WriteString(sb.ToString)
    Case Else
        Dim p As String = e.path
        If p = "" Then p = "*"
        Dim dr As DataRow = DataTables("httprequest").SQLFind("path='" & p & "' or '" & p & "' like path ")
        If dr IsNot Nothing Then
            Functions.Execute(dr("内部函数"),e)
        Else
            Dim wb As New weui
            wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
            wb.AppendHTML("<script>console.warn('" & e.path & "不在httprequest表,请检查是否没有设置.')</script>")
            e.WriteString(wb.Build)
        End If
End Select
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06348 秒, 6 次数据查询