<%@ language = "VBScript" %> <% option explicit %> ASP Project Parser <% handleUrlOutput %> <% sub handleUrlOutput const textCompare = 1 dim url dim serverUrl dim folderUrl dim pageUrl dim xmlhttp dim bodyContent dim pageText serverUrl = request.queryString("serverUrl") folderUrl = request.queryString("folderUrl") pageUrl = request.queryString("pageUrl") url = serverUrl & folderUrl & pageUrl %>
This page (<% = url %>) is written by and Copyright by Microsoft. It's reformatted on this page but in no way associated to the ASP Project Parser.
<% ' See http://www.aspfaq.com/faq/faqShow.asp?fid=119 ' http://www.aspfaq.com/faq/faqShow.asp?fid=185 on error resume next set xmlhttp = server.CreateObject("MSXML2.ServerXMLHTTP") if err <> 0 then %>

This feature only fully works using Microsoft Windows 2000.
Follow URL to help now.

<% else xmlhttp.open "GET", url, false xmlhttp.send "" pageText = xmlhttp.responseText bodyContent = getTextBetween(pageText, "", "") bodyContent = replace(bodyContent, "", "") bodyContent = deleteTextBetween(bodyContent, "", "") response.write bodyContent end if end sub function deleteTextBetween(oldText, before, after) dim textBetween dim newText newText = oldText textBetween = getTextBetween(newText, before, after) newText = replace(newText, textBetween, before & after) deleteTextBetween = newText end function %>