根目录网址如何固定？-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4385 查看	10 回复

主题：[求助]根目录网址如何固定？ [收藏主题]

转到：

benjam 当前离线

34 主题	0 广播	0 粉丝

级别:学前班

用户积分:284 分
登录次数:56 次
注册时间:2006/7/7
最后登录:2013/4/5

benjam 发表于：2012/5/7 15:40:34 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

服务器的设置问题，网站首页有两个网址可访问，一个是 mydomain.com

另一个是mydomain.com:8022

但能正确连接数据库的是后者

可是kesion自动识别首页功能，导致有时自动识别到前者，就无法正确连接数据库

就固定根目录网址的办法

谢谢！

做考试题库就用#科汛在线考试系统!

支持(4) |

反对(4)

顶端

底部

gaogao 当前离线

328 主题	6 广播	7 粉丝

级别:三年级

用户积分:782 分
登录次数:202 次
注册时间:2012/4/24
最后登录:2016/10/2

gaogao 发表于：2012/5/7 18:14:08 | 只看该作者查看该作者主题沙发

有生源找课程就上科汛课堂街!

多点软件工作室（http://www.36dz.com)提供专业的企业网站建设,外贸网站建设，商务网站建设，域名注册，虚拟主机，网站推广等服务，5年建站经验，成功为上百家企业打造出精美的网站。

, QQ：512876561提供专业的企业网站建设,外贸网站建设，电子商务网站建设，域名注册，虚拟主机，网站推广等服务，5年建站经验，成功为上百家企业打造出精美的网站。, QQ：512876561提供专业的企业网站建设,外贸网站建设，电子商务网站建设，域名注册，虚拟主机，网站推广等服务，5年建站经验，成功为上百家企业打造出精美的网站。

做官网就用科汛智能建站系统!

支持(4) |

反对(4)

顶端

底部

benjam 当前离线

34 主题	0 广播	0 粉丝

级别:学前班

用户积分:284 分
登录次数:56 次
注册时间:2006/7/7
最后登录:2013/4/5

benjam 发表于：2012/5/8 9:24:09 | 只看该作者查看该作者主题藤椅

一分钟快速开通线上知识店铺

顶！！！！！！！！

科汛商学院助您快速入门

支持(3) |

反对(2)

顶端

底部

houdakun520 当前离线

141 主题	0 广播	0 粉丝

级别:一年级

用户积分:140 分
登录次数:12 次
注册时间:2012/4/13
最后登录:2012/5/16

houdakun520 发表于：2012/5/8 9:34:13 | 只看该作者查看该作者主题板凳

做官网就用科汛智能建站系统!

对不起，该用户所发的帖已全被锁定!

食品门户网[/url] 网易博客[/url] 新浪博客[/url] 移动中国[/url]

做新职业技能培训平台就选#科汛网校

支持(2) |

反对(2)

顶端

底部

mwmusic 当前离线

330 主题	14 广播	4 粉丝

级别:三年级

用户积分:1464 分
登录次数:217 次
注册时间:2008/8/24
最后登录:2015/12/29

mwmusic 发表于：2012/5/8 9:53:44 | 只看该作者查看该作者主题报纸

做考试题库就用#科汛在线考试系统!

到文件ks_cls/kesion.commoncls.asp里的getautodomain函数里改下，不要获取端口号就行了

'**************************************************
'函数名：GetAutoDoMain()
'作  用：取得当前服务器IP 如：http://127.0.0.1
'参  数：无
'**************************************************
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