getheader.asp

WAP2.0的手机网站留言板

<%
	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
%>