请高手帮我修改一下科讯的首页文件，跟据域名与客户端跳转相应目录代码-领先建站CMS提供服务商我们专注于CMS建站产品的研发

12064 查看	29 回复

主题：[求助]请高手帮我修改一下科讯的首页文件，跟据域名与客户端跳转相应目录代码 [收藏主题]

转到：

d2wl 当前离线

333 主题	0 广播	0 粉丝

级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27

d2wl 发表于：2011/5/14 10:06:10 | 只看该作者查看该作者主题 21楼

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

[URL]http://www.d2wl.com[/URL]
wap在线模拟器[/url][img]http://www.d2wl.com/Blog-d2wl/logo.asp[/img]

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

支持(0) |

反对(0)

顶端

底部

licaifuwu 当前离线

653 主题	10 广播	17 粉丝

级别:六年级

用户积分:1585 分
登录次数:361 次
注册时间:2010/11/19
最后登录:2019/5/7

licaifuwu 发表于：2011/5/14 10:55:25 | 只看该作者查看该作者主题 22楼

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

复制代码

以下代码插入index.asp第57行
57行代码为 domain1= Replace (Left (domain,InStr (domain,".")),".","")
下面
<%
if domain1="wap" or domain1="3g" then
dim m,c,com
M="xxx.com/wap" '设置手机访问地址
C="xxx.com/wapmo" '设置电脑访问地址
com=true '是否为电脑访问 true false
If Request.ServerVariables("HTTP_X_WAP_PROFILE") Then com=false
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") > 0 And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html")=0 Then com=false
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")< InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
com=false
End If
End If
Set reg = New RegExp
str="CECT,Compal,CTL,LG,NEC,TCL,Alcatel,Ericsson,BIRD,DAXIAN,DBTEL,Eastcom,PANTECH,Dopod,PHILIPS,HAIER,KONKA,KEJIAN,LENOVO,BenQ,MOT,Soutec,Nokia,SAGEM,SGH,SED,Capitel,Panasonic,SonyEricsson,SIE,SHARP,Amoi,PANDA,ZTE"
str=Replace(str,",",")|(")
reg.pattern=".*("&str&").*"
reg.IgnoreCase = True
If reg.test(Request.ServerVariables("HTTP_USER_AGENT")) Then com=false
if com=true then
response.redirect c
else
response.redirect m
end if
end if
%>

点评共 1 条

d2wl 我试试威望+1 发表于 2011/5/14 12:44:00

科讯cms[/backcolor][/color][/url]web前端技术[/url] www.webx32.com[/url] [/color] 科讯有问必答QQ群 17478244（VIP高级群）[/color][/size][/align]

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

支持(0) |

反对(0)

顶端

底部

fenghuangfk 当前离线

2 主题	0 广播	0 粉丝

级别:学前班

用户积分:5 分
登录次数:2 次
注册时间:2011/5/14
最后登录:2011/5/18

fenghuangfk 发表于：2011/5/14 11:01:40 | 只看该作者查看该作者主题 23楼

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

http://www.syfhyy.com/ 看看这个的！

点评共 1 条

d2wl 你的都不是用的科讯威望+1 发表于 2011/5/14 12:44:00

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

支持(0) |

反对(0)

顶端

底部

d2wl 当前离线

333 主题	0 广播	0 粉丝

级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27

d2wl 发表于：2011/5/14 12:51:29 | 只看该作者查看该作者主题 24楼

做线上考试培训就选#科汛网校

<% 这个可以去掉吗前后的？
if domain1="wap" or domain1="3g" then
dim m,c,com
M="xxx.com/wap" '设置手机访问地址这里可否直接设置为wap目录
C="xxx.com/wapmo" '设置电脑访问地址这里是否可设置为web目录
com=true '是否为电脑访问 true false 这个是什么意思
If Request.ServerVariables("HTTP_X_WAP_PROFILE") Then com=false
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") > 0 And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html")=0 Then com=false
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")< InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
com=false
End If
End If
Set reg = New RegExp
str="CECT,Compal,CTL,LG,NEC,TCL,Alcatel,Ericsson,BIRD,DAXIAN,DBTEL,Eastcom,PANTECH,Dopod,PHILIPS,HAIER,KONKA,KEJIAN,LENOVO,BenQ,MOT,Soutec,Nokia,SAGEM,SGH,SED,Capitel,Panasonic,SonyEricsson,SIE,SHARP,Amoi,PANDA,ZTE"
str=Replace(str,",",")|(")
reg.pattern=".*("&str&").*"
reg.IgnoreCase = True
If reg.test(Request.ServerVariables("HTTP_USER_AGENT")) Then com=false
if com=true then
response.redirect c
else
response.redirect m
end if
end if
%>