Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
hzyt
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：823 威望：0 精华：0 注册：2013/11/18 21:59:00 		[求助]  发帖心情 Post By：2018/4/27 14:48:00 [显示全部帖子]

求助：（1）以下代码在内部函数里这么写对吗？ （2）在HttpRequest事件代码怎么写？
Dim e As RequestEventArgs = args(0)
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
     Dim sb As New StringBuilder
    sb.Appendline("产品展示<br/><br/>")
    Select Case e.path
        Case "a.htm"
            sb.AppendLine("<img src='/images/004.jpg'>")
        Case "b\a.htm"
            sb.AppendLine("<img src='/images/013.jpg'><br/><br/>")
            sb.AppendLine("<img src='/images/010.jpg'><br/><br/>")
            sb.AppendLine("<img src='/images/011.jpg'><br/><br/>")
             sb.AppendLine("<img src='/images/012.jpg'><br/><br/>")
        Case "a\a.htm"
            sb.AppendLine("<img src='/images/008.mp4'>")
    End Select
    e.WriteString(sb.ToString())
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hzyt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：823 威望：0 精华：0 注册：2013/11/18 21:59:00 		  发帖心情 Post By：2018/4/27 16:49:00 [显示全部帖子]

老师您好！以下是我在HttpRequest事件的代码，还是显示不出来呢
Select Case e.Path
    Case "ybtpa.htm"
        Functions.Execute("ybtpa",e)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
hzyt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：823 威望：0 精华：0 注册：2013/11/18 21:59:00 		  发帖心情 Post By：2018/4/27 17:00:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)
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
     Dim sb As New StringBuilder
    sb.Appendline("产品展示<br/><br/>")
    Select Case e.path
        Case "a.htm"
            sb.AppendLine("<img src='/images/004.jpg'>")
        Case "b\a.htm"
            sb.AppendLine("<img src='/images/013.jpg'><br/><br/>")
            sb.AppendLine("<img src='/images/010.jpg'><br/><br/>")
            sb.AppendLine("<img src='/images/011.jpg'><br/><br/>")
             sb.AppendLine("<img src='/images/012.jpg'><br/><br/>")
        Case "a\a.htm"
            sb.AppendLine("<img src='/images/008.mp4'>")
    End Select
    e.WriteString(sb.ToString())
End If
 回到顶部
帅哥哟，离线，有人找我吗？
hzyt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：823 威望：0 精华：0 注册：2013/11/18 21:59:00 		  发帖心情 Post By：2018/4/27 17:27:00 [显示全部帖子]

老师，我是初学的 麻烦您了，我已按照您的要求写了：
msgbox(e.path)  

Functions.Execute("ybtpa",e)

我手机打开网页时，电脑端显示 b\a.htm 要求点“确定”

不过我点确定后还是没用
 回到顶部
帅哥哟，离线，有人找我吗？
hzyt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：38 积分：823 威望：0 精华：0 注册：2013/11/18 21:59:00 		  发帖心情 Post By：2018/4/27 19:27:00 [显示全部帖子]

OK了，谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询