2881 查看 7 回复

主题：如果网站端口不是80，那么网站无法正常使用（BUG） [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:liuxf1336 性别:男 积分:147分 威望:182 帖子:17 精华:0 广播:0 粉丝:0 登录次数:18 次 注册时间:2009/12/20 10:08:00 最后登录:2014/2/16 16:54:56 liuxf1336 当前离线 17 主题 0 广播 0 粉丝 级别:学前班 用户积分:147 分 登录次数:18 次 注册时间:2009/12/20 最后登录:2014/2/16	liuxf1336 发表于：2010/3/7 18:31:00   | 显示全部帖子 查看该作者主题 楼主  做官网 就用科汛智能建站系统! ks_cls >>> Kesion.CommonCls.asp
	做新职业技能培训平台 就选#科汛网校
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:liuxf1336 性别:男 积分:147分 威望:182 帖子:17 精华:0 广播:0 粉丝:0 登录次数:18 次 注册时间:2009/12/20 10:08:00 最后登录:2014/2/16 16:54:56 liuxf1336 当前离线 17 主题 0 广播 0 粉丝 级别:学前班 用户积分:147 分 登录次数:18 次 注册时间:2009/12/20 最后登录:2014/2/16	liuxf1336 发表于：2010/3/7 18:26:00   | 显示全部帖子 查看该作者主题 沙发  有生源 找课程 就上科汛课堂街! '函数名：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) 顶端 底部

＜上一主题 | 下一主题 ＞

首 页 1