以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  通用事件头目录  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109385)

--  作者:kao_go
--  发布时间:2017/11/10 17:16:00
--  通用事件头目录
\'通用事件头,用于发送已经存在的常见文件
Select
 Case e.Path
    Case "saletj.htm","showtj.htm" \'排除两个页面,由后面的代码负责处理
    Case Else \'其他页面或文件如果已经存在,直接发送
        
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
        End 
If

End
 Select

\'通用事件头,中如果是购买的服务器,d:\\web\\这个目录要怎么填?根目录是httpdocs 这个
--  作者:有点甜
--  发布时间:2017/11/10 17:19:00
--  

1、你购买的是空间还是服务器?

 

2、如果只是购买一个空间,你不能在上面运行exe程序的。

 

3、远程进入你服务器的桌面,有我的电脑、c盘、d盘这些东西的。