新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
假如你的网址是:
网站建设哪家好,找创新互联公司!专注于网页设计、网站建设、微信开发、小程序设计、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了霍城免费建站欢迎大家使用!
那你的Index.asp是
那你的wap.asp是
那你的代码如下:
%
Function CheckMobile()
'是否由wap转入电脑版
If Not IsEmpty(Request.ServerVariables("HTTP_REFERER")) And InStr(LCase(Request.ServerVariables("HTTP_REFERER")),"wap.asp")=0 Then
CheckMobile=False:Exit Function
End If
'是否专用wap浏览器
If InStr(LCase(Request.ServerVariables("HTTP_ACCEPT")), "application/vnd.wap.xhtml+xml") Or Not IsEmpty(Request.ServerVariables("HTTP_X_PROFILE")) Or Not IsEmpty(Request.ServerVariables("HTTP_PROFILE")) Then
CheckMobile=True:Exit Function
End If
'是否(智能)手机浏览器
Dim MobileBrowser_List,PCBrowser_List,UserAgent
MobileBrowser_List ="up.browser|up.link|mmp|iphone|android|wap|netfront|java|opera\smini|ucweb|windows\sce|symbian|series|webos|sonyericsson|sony|blackberry|cellphone|dopod|nokia|samsung|palmsource|palmos|pda|xphone|xda|smartphone|pieplus|meizu|midp|cldc|brew|tear"
PCBrowser_List="mozilla|chrome|safari|opera|m3gate|winwap|openwave"
UserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
If CheckRegExp(UserAgent,MobileBrowser_List) Then
CheckMobile=True:Exit Function
ElseIf CheckRegExp(UserAgent,PCBrowser_List) Then '未知手机浏览器,其UA标识为常见浏览器,不跳转
CheckMobile=False:Exit Function
Else
CheckMobile=False
End If
End Function
If CheckMobile() Then Response.Redirect (“")
%
要想代码能用,你还需要CheckRegExp(UserAgent,MobileBrowser_List)这个函数的定义,就像上面的Function CheckMobile()一样。
1、应用市场下载一个AndroPHP,打开,点击服务器开关。
2、zblog官网下载一个zblogPHP博客程序。
3、手机文件管理器里创建一个名字为WWW的文件夹,把程序解压文件里。
4、打开AndroPHP,点击链接,那就是服务器地址,Zblog博客创建完成,点击写作即可发表文章。
要设置手机访问页面,您可以使用以下方法:
1. 使用响应式Web设计
使用响应式Web设计可确保您的博客可以自适应不同屏幕尺寸的设备。这样,您的博客在桌面电脑、笔记本电脑、平板电脑和智能手机等不同设备上都可以看到适合的页面。
2. 添加移动设备主题
许多博客平台和CMS都提供了移动设备主题和插件,以便您轻松地将其添加到您的博客中。这些主题和插件可以帮助您为访问您的博客的用户提供一个更好的移动体验。
3. 创建单独的移动版本
您也可以选择创建一个单独的移动版本的博客,专门针对移动设备而设计。这是一个更具挑战性的方法,因为您需要保持两个版本的内容同步并更新,但它可以提供更好的用户体验,并且使您可以精细地控制每个版本的特定功能和布局。
无论您选择哪种方法,确保测试您的博客在不同设备上的显示效果,并进行必要的优化,以确保访问您的博客的所有用户都能得到最佳的体验。