自动识别手机或电脑的访问

把下面的代码复制,要utf-8编码的,保存为index.asp就可以了。注意,index.asp的优先级要高于default.asp。
也可以把default.asp改名为index.asp
<%
rpath=“http://“&Request.ServerVariables(“HTTP_HOST“)&“/“
dim agent,str,siteid,tourl
agent=request.ServerVariables(“HTTP_USER_AGENT“)
if instr(agent,“Mozilla“)=0 then
tourl= “wap.asp“ ‘WAP page
toWML()
else
str=agent
str=replace(str,“Opera“,““)
str=replace(str,“SmartPhone“,““)
str=replace(str,“CE“,““)
str=replace(str,“UC“,““)
str=replace(str,“Symbian“,““)
str=replace(str,“NetFront“,““)
if Len(agent)=Len(str) then
response.redirect “default.asp“ ‘web
else
tourl= “wap.asp“ ‘WAP page
toWML()
end if
end if
sub toWML()
response.redirect rpath&tourl
response.end
end sub%>