分享

写回答

发帖

[介绍] 我使用PJblog程序会出现二级目录的问题

回答|共 23 个

txj1984

发表于 2010-1-11 17:16:13 | 显示全部楼层

其实这也是二级目录的问题,是不是能用修改server.map的方法来修改呢?

add.c

发表于 2010-1-11 17:24:37 | 显示全部楼层

回复 11# 的帖子

应该可以的,不过很多人都修改不好这个函数

txj1984

发表于 2010-1-11 18:08:23 | 显示全部楼层

那你帮我好吗?

txj1984

发表于 2010-1-11 19:51:14 | 显示全部楼层

是不是把所有代码中的涉及到server map的都修改就可以了?

txj1984

发表于 2010-1-12 23:01:10 | 显示全部楼层

谁帮帮我啊?

ifan99

发表于 2010-1-12 23:06:09 | 显示全部楼层

windows的子域名绑二级目录是有这个问题,我也遇到过,现在用linux+php了,省心!

txj1984

发表于 2010-1-13 00:33:07 | 显示全部楼层

Function LoadFromFile(ByVal File)
    Dim objStream
    Dim RText
    RText = Array(0, "")
    Set objStream = Server.CreateObject("ADODB.Stream")
    With objStream
        .Type = 2
        .Mode = 3
        .Open
        .Charset = "utf-8"
        .Position = objStream.Size
        On Error Resume Next
        .LoadFromFile Server.MapPath(File)
        If Err Then
            RText = Array(Err.Number, Err.Description)
            LoadFromFile = RText
            Err.Clear
            Exit Function
        End If
        RText = Array(0, .ReadText)
        .Close
    End With
    LoadFromFile = RText
    Set objStream = Nothing
End Function

和这个有关系吗?function里面的,我搜了一下server.map,里面有关系的代码如下

txj1984

发表于 2010-1-13 20:14:05 | 显示全部楼层

顶一顶!,希望有人回帖

okxugang

发表于 2010-1-13 21:25:55 | 显示全部楼层

我的也出现这个问题 但不是用的PJBLOG

txj1984

发表于 2010-1-14 00:43:05 | 显示全部楼层

和这段function中的代码有关系吗?

'获得基址
'*************************************
Function GetbaseUrl()
        Dim baseUrl
        baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
        baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))
        GetbaseUrl = baseUrl
End Function
您需要登录后才可以回帖 登录 | 注册

本版积分规则