账号通
    

账号  

密码  

3860

查看

8

回复
主题:[求助]自己的主机,用端口号时出错 [收藏主题] 转到:  
mansbon 当前离线

83

主题

1

广播

1

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

用户积分:168 分
登录次数:25 次
注册时间:2011/6/24
最后登录:2016/3/30
mansbon 发表于:2011/10/18 9:03:13   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

到文件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



那个红色的干掉

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