账号通
    

账号  

密码  

4297

查看

5

回复
主题:[求助]怎么回事?急 [收藏主题] 转到:  
kesion 当前离线

2176

主题

0

广播

1

粉丝
添加关注
级别:高三年

用户积分:6810 分
登录次数:1247 次
注册时间:2006/2/23
最后登录:2014/9/16
kesion 发表于:2006/4/18 8:09:00   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统
-0还不如不要减了
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
kesion 当前离线

2176

主题

0

广播

1

粉丝
添加关注
级别:高三年

用户积分:6810 分
登录次数:1247 次
注册时间:2006/2/23
最后登录:2014/9/16
kesion 发表于:2006/4/17 22:06:00   | 显示全部帖子 查看该作者主题 沙发 

解决办法:


打开 syscls/Common.asp ,然后找到 第498行


'**************************************************
'函数名:GetAutoDoMain()
'作  用:取得当前服务器IP 如:http://127.0.0.1
'参  数:无
'**************************************************
Function GetAutoDomain()
  Dim TempPath
  If Request.ServerVariables("SERVER_PORT") = "80" Then
   GetAutoDomain = Request.ServerVariables("SERVER_NAME")
  Else
   GetAutoDomain = Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT")
  End If
  TempPath = Request.ServerVariables("APPL_MD_PATH")
  TempPath = Right(TempPath, Len(TempPath) - InStr(TempPath, "Root") - 3)
  GetAutoDomain = "http://" & GetAutoDomain & TempPath
End Function


把最后加红的三行删除即可


[此贴子已经被作者于2006-4-17 22:12:55编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0