Foxtable(狐表)用户栏目专家坐堂 → foxtable2017默认页问题


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

主题:foxtable2017默认页问题

帅哥哟,离线,有人找我吗?
baiheinet
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1540 威望:0 精华:0 注册:2015/7/14 15:05:00
foxtable2017默认页问题  发帖心情 Post By:2017/3/5 9:14:00 [显示全部帖子]

'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "C:\Users\baihe\OneDrive\ApplicationData\WWW\"  & 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",".svg"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
'以下是动态生成网页的代码
Select Case e.Path
    Case "KNPC.html",""
        '这是默认页面
End Select


现在http://127.0.0.1/KNPC.HTML这么访问 没问题
http://127.0.0.1/ 这样访问不行啊

 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1540 威望:0 精华:0 注册:2015/7/14 15:05:00
  发帖心情 Post By:2017/3/5 10:30:00 [显示全部帖子]

'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "C:\Users\baihe\OneDrive\ApplicationData\WWW\"  & 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",".svg"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
'以下是动态生成网页的代码
Select Case e.Path
    Case "KNPC.html",""
        '这是默认页面
    e.WriteString("你好,世界")
End Select


访问http://127.0.0.1/  显示你好,世界  不显示KNPC.html

 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1540 威望:0 精华:0 注册:2015/7/14 15:05:00
  发帖心情 Post By:2017/3/5 13:41:00 [显示全部帖子]

我要 就显示knpc.html
[此贴子已经被作者于2017/3/5 13:43:39编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:190 积分:1540 威望:0 精华:0 注册:2015/7/14 15:05:00
  发帖心情 Post By:2017/3/5 14:00:00 [显示全部帖子]

默认页 知道吧

就是输入http://127.0.0.1/

打开默认页knpc.html

iis什么的都能定义默认页 一般是Index.html 我的事knpc.html


怎么搞

 回到顶部