ASP 101 - Active Server Pages 101 - Web03
The Place ASP Developers Go!

Please visit our partners


Windows Technology Windows Technology
15 Seconds
4GuysFromRolla.com
ASP 101
ASP Wire
VB Forums
VB Wire
WinDrivers.com
internet.commerce internet.commerce
Partners & Affiliates














ASP 101 is an
internet.com site
ASP 101 is an internet.com site
IT
Developer
Internet News
Small Business
Personal Technology

Search internet.com
Advertise
Corporate Info
Newsletters
Tech Jobs
E-mail Offers

ASP 101 News Flash ASP 101 News Flash





ASP Source Code:
<strong>ASP Source Code:</strong>
<hr />
<%
Dim objFSO, objInFile
Dim strIn, strTemp
Dim I, J
Dim strFileName
Dim ProcessString
Dim bCharWritten
Dim bInsideScript
Dim bInsideString
Dim iInsideComment
ProcessString = 0
bCharWritten = False
bInsideScript = False
bInsideString = False
iInsideComment = 0
strFileName = Request.QueryString("file")
' Conditional limiting use of this file
If InStr(1, strFileName, "\", 1) Then strFileName=""
If InStr(1, strFileName, "/", 1) Then strFileName=""
strFileName = Replace(strFileName, "%2E", ".")
strFileName = Replace(strFileName, "%5F", "_")
If strFileName <> "" Then
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objInFile = objFSO.OpenTextFile(Server.MapPath(strFileName))
	Response.Write "<PRE>" & vbCRLF
	' Loop Through Real File and Output Results to Browser
	Do While Not objInFile.AtEndOfStream
		strIn = Server.HTMLEncode(objInFile.ReadLine)
		' If we find Begin Script Tag start processing
		If InStr(1, strIn, "<!-- BEGIN SCRIPT -->", 1) Then
			ProcessString = 1
			strIn = Server.HTMLEncode(objInFile.ReadLine)
		End If
		' If we find End Script Tag stop processing
		If InStr(1, strIn, "<!-- END SCRIPT -->", 1) Then ProcessString = 0
		If ProcessString = 1 Then
			strTemp = ""
			For I = 1 to Len(strIn)
				bCharWritten = False
				If InStr(I, strIn, "<%", 1) = I Then
		 			strTemp = strTemp & "<FONT COLOR=#0000FF>"
					bInsideScript = True
				Else
					If InStr(I, strIn, "%>", 1) = I Then
						strTemp = strTemp & "%></FONT>"
						bCharWritten = True
						' so we dont get the trailing end of this tag again!
						' ie. Len("%>") - 1 = 4
						I = I + 4
						bInsideScript = False
					End If
				End If
				' Toggle Inside String if needed!
				If bInsideScript And iInsideComment = 0 And InStr(I, strIn, """, 1) = I Then bInsideString = Not bInsideString
				' Now do comments if we're in script
				If bInsideScript And Not bInsideString And InStr(I, strIn, "'", 1) = I Then
		 			strTemp = strTemp & "<FONT COLOR=#009900>"
					iInsideComment = iInsideComment + 1
				End If
				' End comment at end of line if needed
				If iInsideComment > 0 And I = Len(strIN) Then
						strTemp = strTemp & Mid(strIn, I, 1)
						For J = 1 to iInsideComment
							strTemp = strTemp & "</FONT>"
						Next 'J
						bCharWritten = True
						iInsideComment = 0
				End If
				If bCharWritten = False Then
					strTemp = strTemp & Mid(strIn, I, 1)
				End If
			Next
			Response.Write strTemp & vbCRLF
		End If
	Loop
	Response.Write "</PRE>" & vbCRLF
	objInFile.Close
	Set objInFile = Nothing
	Set objFSO = Nothing
Else
	strFileName = "index.asp"
End If
%>

Back the the Sample Output

Back to the Sample Index


Home |  News |  Samples |  Articles |  Lessons |  Resources |  Forum |  Links |  Search |  Feedback

Internet.com
The Network for Technology Professionals

Search:

About Internet.com

Legal Notices, Licensing, Permissions, Privacy Policy.
Advertise | Newsletters | E-mail Offers