getheader.asp

来自「手机WAP留言板WiiMsg WiiMsg是一个基于WAP2.0的手机网站留」· ASP 代码 · 共 15 行

<%
	dim header,acceptHeader
	acceptHeader=Request.ServerVariables("HTTP_ACCEPT")
	If InStr(acceptHeader,"application/vnd.wap.xhtml+xml")>0 Then
		header="application/vnd.wap.xhtml+xml"
	ElseIf InStr(acceptHeader,"application/xhtml+xml")>0 Then 
		header="application/xhtml+xml"
	ElseIf InStr(acceptHeader,"text/html")>0 Then
		header="text/html"
	ElseIf InStr(acceptHeader,"text/vnd.wap.wml")>0 Then 
		response.redirect "info.wml"
	Else
		header="text/html"
	End if
%>