账号通
    

账号  

密码  

12055

查看

29

回复
主题:[求助]请高手帮我修改一下科讯的首页文件,跟据域名与客户端跳转相应目录代码 [收藏主题] 转到:  
d2wl 当前离线

333

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于:2011/5/14 10:06:10   | 显示全部帖子 查看该作者主题 11楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
d2wl 当前离线

333

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于:2011/5/14 12:51:29   | 显示全部帖子 查看该作者主题 12楼 
科汛智能建站系统
  1. <%    这个可以去掉吗前后的?
  2. if domain1="wap" or domain1="3g" then
  3. dim m,c,com
  4. M="xxx.com/wap" '设置手机访问地址   这里可否直接设置为wap目录
  5. C="xxx.com/wapmo" '设置电脑访问地址 这里是否可设置为web目录
  6. com=true '是否为电脑访问 true false    这个是什么意思
  7. If Request.ServerVariables("HTTP_X_WAP_PROFILE") Then com=false
  8. If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") > 0 And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html")=0 Then com=false
  9. If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml") And InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
  10. If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"vnd.wap.wml")< InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")),"text/html") Then
  11. com=false
  12. End If
  13. End If
  14. Set reg = New RegExp
  15. 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"
  16. str=Replace(str,",",")|(")
  17. reg.pattern=".*("&str&").*"
  18. reg.IgnoreCase = True
  19. If reg.test(Request.ServerVariables("HTTP_USER_AGENT")) Then com=false
  20. if com=true then
  21. response.redirect c
  22. else
  23. response.redirect m
  24. end if
  25. end if
  26. %>
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
d2wl 当前离线

333

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于:2011/5/16 15:36:53   | 显示全部帖子 查看该作者主题 13楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
d2wl 当前离线

333

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于:2011/5/17 9:20:56   | 显示全部帖子 查看该作者主题 14楼 
嗯 你的思路是对的,但怎么实行还是个问题!科讯没人解决,楼上哪位人兄发的又行不通,他自己跟本就没试过!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
d2wl 当前离线

333

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2143 分
登录次数:255 次
注册时间:2007/6/17
最后登录:2013/2/27
d2wl 发表于:2011/5/24 0:53:27   | 显示全部帖子 查看该作者主题 15楼 
科讯没人,也没人会管!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.18750秒 powered by KesionCMS 9.0