请问如何使用同一个域名访问wap网站和web网站

发布网友 发布时间：2022-04-21 23:15

我来回答

共3个回答

热心网友 时间：2023-10-06 23:05

<%
Call Displayer("/wap.asp","/web.asp") '这里设置访问路径，手机前，电脑后

Function Displayer(WapUrlGo,WebUrlGo)
HTTP_ACCEPT=Request.ServerVariables("HTTP_ACCEPT") '获取浏览器信息
HTTP_USER_AGENT=LCase(Request.ServerVariables("HTTP_USER_AGENT")) '获取AGENT
HTTP_X_WAP_PROFILE=Request.ServerVariables("HTTP_X_WAP_PROFILE") 'WAP特定信息 品牌机自带浏览器都会有
HTTP_UA_OS=Request.ServerVariables("HTTP_UA_OS") '手机系统 电脑为空
HTTP_VIA=LCase(Request.ServerVariables("HTTP_VIA")) '网关信息
Dim WapStr
WAPstr=False
If ubound(split(HTTP_ACCEPT,"vnd.wap"))>0 Then WAPstr=True
If HTTP_USER_AGENT="" Then WAPstr=True
If HTTP_X_WAP_PROFILE<>"" Then WAPstr=True
If HTTP_UA_OS<>"" Then WAPstr=True
IF ubound(split(HTTP_VIA,"wap"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"netfront"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"iphone"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"opera mini"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"ucweb"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"windows ce"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"symbianos"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"java"))>0 Then WAPstr=True
IF ubound(split(HTTP_USER_AGENT,"android"))>0 Then WAPstr=True
If WAPstr=True Then
'Response.Write "我是手机访问"
response.redirect ""&WapUrlGo
Else
'Response.Write "我是电脑访问"
response.redirect ""&WebUrlGo
End if
End Function
%>

热心网友 时间：2023-10-06 23:06

在页面头判断浏览器信息，在显示对应的页面。

热心网友 时间：2023-10-06 23:06

只是在入口处简单的判断对方是否手机用户或是PC用户，然后做重定向判断的方法有1.根据是否能取得手机号码或是MID码，如果能得到其一，都认为是手机用户2.所有由移动或联通的网关IP过来的定向到wap，需要维护一份IP列表，不过在实际的应用中发现此列表不是十分的稳定的。 http://www.cnscu.com/thread-9552-1-1.html关于这个问题看一下