redirect.asp

来自「一个手机新闻网站」· ASP 代码 · 共 42 行

ASP
42 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'========================================================================================
' 文 件 名: Redirect.asp
' 版    本: WapForum教程--判断WEB或WAP重新转向文件
' 说    明: 自动识别WEB或WAP文件 | 请勿删除此说明内容，转载请注明出处。多谢合作！
' 文件日期: 2007-03-14
' 讨论网站: WapForum.cn
'========================================================================================
' Copyright (C) 2007 WapForum.cn. All rights reserved.
' 网    站: http://WapForum.cn
' 电子邮件: Service@WapForum.cn
' 联系ＱＱ: 13431619,44459416,82890065
' QQ交流群: 36508170
'========================================================================================
Dim strAccept
strAccept=LCase(Request.ServerVariables("HTTP_ACCEPT"))	'//获取手机相关的一些特性信息

If Instr(strAccept,"wap")>0 then
	Response.ContentType="text/vnd.wap.wml;charset=UTF-8"	'将文件的格式转换成wml，编码为UTF-8
	Response.Write ("<?xml version=""1.0"" encoding=""UTF-8""?>")&_
					"<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml""> "&_
					"<wml>"&_
					"<head>"&_
					"<meta http-equiv=""Cache-Control"" content=""max-age=0""/>"&_
					"<meta http-equiv=""Cache-Control"" content=""no-cache""/>"&_
					"</head>"&_
					"<card id=""Redirect"" title=""转向WAP页面..."">"&_
					"<onevent type=""onenterforward""><go href=""wap/index.asp""></go></onevent>"&_
					"<p align=""left"">"&_
					"<a href=""wap/index.asp"">马上进入...</a>"&_
					"</p></card></wml>"
					
	'//注释=======================================
	'//<onevent type=""onenterforward""><go href=""wap/index.asp""></go></onevent>是让页面进入时自动转向wap/index.asp
	'//<a href=""wap/index.asp"">马上进入...</a>加上链接是防止一些手机无法自动跳转时可以点击链接进入
	'=============================================					
Else
	Response.Redirect ("http://www.wapforum.cn/index.htm")				'//转想WEB首页的URL
End If

%>

redirect.asp - 源码说明

本页面展示了「一个手机新闻网站」中的 redirect.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与手机相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?