<%@ Page Language="vb" %>
<html>
<head>
<title>Displaying the HTTP headers collection in ASP.NET</title>
</head>
<body>
<p>
<%
Select Case Request.HttpMethod
Case "POST"
Response.Write("POST requests not allowed!<br>")
Response.End
Case "HEAD"
Response.Write("HEAD requests not allowed!<br>")
Response.End
Case "GET"
'Process request
Response.Write("GET requests are allowed!<br>")
Case Else
Response.Write("Unknown request: not allowed!<br>")
Response.End
End Select
%>
</p>
</body>
</html>
|