当前位置：
|
主题：如果网站端口不是80，那么网站无法正常使用（BUG） [收藏主题] | 转到： |
 guxiaokang 发表于：2010/1/21 13:12:00 | 只看该作者 查看该作者主题
楼主  我用的是科讯推荐的 名网 空间，原来空间商是采用80端口，网站一切正常，现在空间商改变了端口为37001端口，网站就无法正常使用！ 然后我按照插件区的修改了后台的文件，还是不行！ 还是自己获取网站地址，后面加上了端口号，现在网站的多处功能不能使用（只要是不是直接地址就无法使用）！
现在本站的广告已无法正常显示了！
请管理员帮忙修改下！ 谢谢！ |
|
 支持(0) |  反对(0)
 顶端  底部
|
![电子邮件:[ guxiaokang_555@163.com ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
|
guxiaokang 发表于：2010/1/21 14:46:00 | 只看该作者 查看该作者主题
沙发 |
|
|
支持(0) | 反对(0)
顶端 底部
|
 把程序自动获取域名的代码稍改下
ks_cls/kesion.commoncls.asp
找到 getautodomain函数,把这个函数里面的代码改成
getautodomain="你的域名" |
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
 '函数名：GetAutoDoMain()
'作 用：取得当前服务器IP 如：http://127.0.0.1 '参 数：无 '************************************************** Public Function GetAutoDomain() Dim TempPath If Request.ServerVariables("SERVER_PORT") = "81" 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)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
guxiaokang 发表于：2010/1/21 13:49:00 | 只看该作者 查看该作者主题
7楼 |
|
|
支持(0) | 反对(0)
顶端 底部
|
|
guxiaokang 发表于：2010/1/21 14:06:00 | 只看该作者 查看该作者主题
8楼 |
|
|
支持(0) | 反对(0)
顶端 底部
|
| ＜上一主题 | 下一主题 ＞ |