账号通
    

账号  

密码  

4248

查看

12

回复
主题:[求助]网站地址端口出错怎么解决 [收藏主题] 转到:  
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/4 8:01:22   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

因为域名没有备案 所以 我用CDN解析到国外  可是 科讯后台地址自动识别出错

http://网址:37001  后面加了个端口号 这样我生成的文件就带端口号地址 无法浏览 怎么去掉 请教高手

.

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

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2011/3/4 10:16:30   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店

ks_cls/kesion.commoncls.asp


'**************************************************
'函数名: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


上面红色的删除

 
我爱世界杯,我爱KesionCMS.
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/5 13:42:32   | 只看该作者 查看该作者主题 藤椅 
 
恒软科技 http://www.419vip.com 辽阳在线 http://www.419line.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/5 16:45:56   | 只看该作者 查看该作者主题 板凳 
 
恒软科技 http://www.419vip.com 辽阳在线 http://www.419line.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/5 16:46:11   | 只看该作者 查看该作者主题 报纸 
 
恒软科技 http://www.419vip.com 辽阳在线 http://www.419line.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/5 16:52:07   | 只看该作者 查看该作者主题 地板 
科汛在线网校系统
以下是引用 一生有你在2011-3-4 10:16:30的发言:

ks_cls/kesion.commoncls.asp


'**************************************************
'函数名: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


上面红色的删除


后台网站地址这块是对了 可是生成文章或者添加文件的时候还是有端口号 请求帮助

 
恒软科技 http://www.419vip.com 辽阳在线 http://www.419line.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
movy 当前离线

122

主题

3

广播

1

粉丝
添加关注
级别:一年级

用户积分:793 分
登录次数:79 次
注册时间:2009/3/15
最后登录:2016/7/15
movy 发表于:2011/3/5 17:06:09   | 只看该作者 查看该作者主题 7楼 
科汛在线网校系统

刷新一下现在好像好使了

 
恒软科技 http://www.419vip.com 辽阳在线 http://www.419line.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
bluexiaoxiong 当前离线

10

主题

0

广播

0

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

用户积分:11 分
登录次数:2 次
注册时间:2011/3/5
最后登录:2011/3/5
bluexiaoxiong 发表于:2011/3/5 17:15:38   | 只看该作者 查看该作者主题 8楼 

来求助的,还要10个积分,郁闷

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

807

主题

26

广播

12

粉丝
添加关注
级别:七年级

用户积分:5898 分
登录次数:575 次
注册时间:2007/3/25
最后登录:2020/3/29
56look 发表于:2011/3/5 21:47:45   | 只看该作者 查看该作者主题 9楼 
 
www.69629.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
seekin 当前离线

442

主题

4

广播

1

粉丝
添加关注
级别:四年级

用户积分:3753 分
登录次数:277 次
注册时间:2007/6/4
最后登录:2018/5/4
seekin 发表于:2011/3/5 21:55:37   | 只看该作者 查看该作者主题 10楼 
做在线知识付费 选科汛云开店
也收藏一下做个记号
 
矢量标志下载 www.logotu.com
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.26599秒 powered by KesionCMS 9.0