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


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

主题: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/ 这样访问不行啊

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/5 10:04:00 [只看该作者]

测试了一下,没你说的问题。请加入msgbox,看弹出的东西对不对。

 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/5 13:03:00 [只看该作者]

 你3楼什么意思?你的代码,就是说访问 knpc.html 或者 空白,就显示【你好,世界】的啊


 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/5 13:51:00 [只看该作者]

 不理解你表达什么。你要显示什么,你就在里面写什么代码。

 

 如果你是想显示 C:\Users\baihe\OneDrive\ApplicationData\WWW\ 里面的某某文件,那就这样写

 

 e.WriteFile("C:\Users\baihe\OneDrive\ApplicationData\WWW\xxx.html")


 回到顶部
帅哥哟,离线,有人找我吗?
baiheinet
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


怎么搞

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2017/3/5 17:10:00 [只看该作者]

我也看不懂,代码没有任何问题。

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


加好友 发短信
等级:五尾狐 帖子:1077 积分:9923 威望:0 精华:0 注册:2008/9/2 11:34:00
  发帖心情 Post By:2017/3/5 19:21:00 [只看该作者]

楼主应该是说只要输入网站IP,就会自动打开默认页,如新浪只要输入www.sina.com.cn就行,不需要指定要打开网页的文件名。

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/3/5 21:29: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.WriteFile("C:\Users\baihe\OneDrive\ApplicationData\WWW\KNPC.html")
End Select

 回到顶部