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

txj1984 · 发表于 2010-1-11 17:16:13

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

add.c · 发表于 2010-1-11 17:24:37

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

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

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

回复 11# 的帖子

浏览过的版块

GoDaddy讨论