以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  foxtable2017默认页问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=97049)
--  作者：baiheinet
--  发布时间：2017/3/5 9:14:00
--  foxtable2017默认页问题
\'通用事件头,用于发送已经存在的常见文件
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/ 这样访问不行啊
--  作者：有点色
--  发布时间：2017/3/5 10:04:00
--  
测试了一下，没你说的问题。请加入msgbox，看弹出的东西对不对。
--  作者：baiheinet
--  发布时间：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
--  作者：有点色
--  发布时间：2017/3/5 13:03:00
--  

 你3楼什么意思？你的代码，就是说访问 knpc.html 或者 空白，就显示【你好，世界】的啊
--  作者：baiheinet
--  发布时间：2017/3/5 13:41:00
--  
我要 就显示knpc.html
[此贴子已经被作者于2017/3/5 13:43:39编辑过]
--  作者：有点色
--  发布时间：2017/3/5 13:51:00
--  

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

 

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

 

 e.WriteFile("C:\\Users\\baihe\\OneDrive\\ApplicationData\\WWW\\xxx.html")
--  作者：baiheinet
--  发布时间：2017/3/5 14:00:00
--  
默认页 知道吧

就是输入http://127.0.0.1/

打开默认页knpc.html

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


怎么搞
--  作者：狐狸爸爸
--  发布时间：2017/3/5 17:10:00
--  
我也看不懂，代码没有任何问题。
--  作者：bohe
--  发布时间：2017/3/5 19:21:00
--  
楼主应该是说只要输入网站ＩＰ，就会自动打开默认页，如新浪只要输入www.sina.com.cn就行，不需要指定要打开网页的文件名。
--  作者：有点色
--  发布时间：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