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

12075 查看	29 回复

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

转到：

licaifuwu 当前离线

653 主题	10 广播	17 粉丝

级别:六年级

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

licaifuwu 发表于：2011/5/14 10:55:25 | 显示全部帖子查看该作者主题楼主

以下代码插入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
%>

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

反对(0)

底部