账号通
    

账号  

密码  

2102

查看

1

回复
主题:[讨论][原创]关于服务器端口问题的简单解决方法! [收藏主题] 本贴被认定为精华  
当前离线

17

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:330 分
登录次数:8 次
注册时间:2007/10/3
最后登录:2007/12/27
发表于:2007/11/8 22:13:00   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

前两天用kesion做了个网站,上传后发现服务器的端口是8080,而在"基本信息设置"--"网站地址"里总是显示只有网站IP,而端口号8080,却没有

没办法,发了个求助贴,连接在下面,可以去看看

http://bbs.kesion.com/dispbbs.asp?BoardID=41&ID=34400&replyID=&skin=1

在"网站地址"显示http://***.***.***.***        端口没有怎么办呢,自己加吧!!

就改成了http://***.***.***.***:8080     然后保存,看了一下右上角的"网站首页",端口号有了,点了一下,进主页了,问题就是从这里开始的

主页的图片没显示,地址还是没有端口号8080,到后台刷新一下一看,端口号又没了

网站辛辛苦苦做好了,发求助没有得到解决,怎么办呢?我心一狠,花了一天时间,翻代码!

原来以为在数据库里,结果翻了一遍数据库没找到,有点失落.不过,还是让我找到了,代码如下:

Public 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
   If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then
      GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))
   End If
   GetAutoDomain = "http://" & GetAutoDomain
 End Function

本来以为kesion没有设置端口号的检查的,看一下上面代码才知道,如果端口号是"80"就不显示端口号,其他情况就会显示端口号

端口号是服务器问题,可以检测的时候端口号是80,但实际上并不是,不过这种情况是少数的,现在说一下简单的修改.

如果你的端口号检测不出或跟实际不一样,简单的,先到KS_Cls目录下找到KS.PublicCls.asp文件,占最大空间的那个文件,打开后找到上面的代码

把 GetAutoDomain = Request.ServerVariables("SERVER_NAME")

GetAutoDomain = Request.ServerVariables("SERVER_NAME") &":8080"  这里的8080是你要的端口号,按实际情况自己改

然后保存上传就行了,  第二,你也可以把 If Request.ServerVariables("SERVER_PORT") = "80" Then里的80随便改个数字,让服务器自己找端口

不过你是上的情况的话,改这个端口也应该显示错误.建议试试就行,改第一种就好了

改完后的文件只适合你自己的网站服务器,换别的服务器可能就不能用了

具体的解决办法还需要加两条判别语句,这个就等官方解决了

这个是我具体遇到的问题,希望对其他跟我一样情况的朋友有所帮助!!!!!

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
当前离线

17

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:330 分
登录次数:8 次
注册时间:2007/10/3
最后登录:2007/12/27
发表于:2007/11/8 22:17:00   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.06250秒 powered by KesionCMS 9.0