<% Response.write Request.ServerVariables("HTTP_URL") %>
<% Response.AddHeader "HTTP", "HTTP/1.1 200 OK" Response.write "Now URL = " & Request.ServerVariables("HTTP_URL") '** Link Page ***' Response.write "<hr>" Response.write "<a href=/hello.html>Hello ASP</a> , <a href=/config.html>Config ASP</a> , <a href=/install.html>Install ASP</a>" Response.write "<hr>" '*** Include Content ***' If Request.ServerVariables("HTTP_URL") = "/hello.html" Then Server.Transfer("hello.asp") ElseIf Request.ServerVariables("HTTP_URL") = "/config.html" Then Server.Transfer("config.asp") ElseIf Request.ServerVariables("HTTP_URL") = "/install.html" Then Server.Transfer("install.asp") Else ' Default include End IF %>
<% Response.write("Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br> " &_ "Hello ASP<br>") %>
<% Response.write("Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br> " &_ "Config ASP<br>") %>
<% Response.write("Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br> " &_ "Install ASP<br>") %>
<% Response.AddHeader "HTTP", "HTTP/1.1 200 OK" %>