You are 1 of 20 Active ASP Visitors
 
 
  ASP Home  |  Resources  |  Write a Review  |  My Favor-Its  |  Login
Add to Del.icio.us  Add to StumbleUpon
 


 
Resource Menu


 Reviews Written By This User 

List of All Reviews Written By Eric Fogleman from Sacramento, CA:

Great Code, which I enhanced a little    
Written by Eric Fogleman from Sacramento, CA   (Monday, November 28, 2005)
Writer is with: http://www.google.com
Listing Reviewed:   Strip HTML
Strengths:   Filters out HTML well and is quick and to the point  
Weaknesses:   Doesn't loop to replace all instances  
Details:   I modified it slightly to add a loop to remove all instances of HTML, within the passed string. '************************************** ' Name: Strip HTML ' Description:Strips any HTML tags from ' a string and returns the results. I use ' this for data that users submit through ' forms to prevent them from using HTML. ' By: Lewis E. Moten III ' ' Inputs:asHTML - the string that may contain HTML code ' ' Returns:Returns a string that has been stripped of HTML code. ' ' Assumes:This function assumes that you ' have vbScript 5.0 or higher installed. ' ' Side Effects:Your page will come up with errors if you do not have vbScript 5.0 ' or higher installed on your server (or on the client browser ' if that is where it is being used) ' ' This code is copyrighted and has limited warranties. Please see ' http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=6269&lngWId=4 ' for details. '************************************** Function StripHTML(ByRef asHTML) Dim loRegExp ' Regular Expression Object Dim theOutString ' string for output Dim theLastStringVal ' out string copy for loop comparison Dim filteringComplete ' flag for filtering loop ' Create built In Regular Expression object to look for HTML tags Set loRegExp = New RegExp loRegExp.Pattern = "<[^>]*>" ' Set the out string theOutString = asHTML ' Loop through the out string looking for HTML and strip it filteringComplete = FALSE While filteringComplete = FALSE theOutString = loRegExp.Replace(theOutString, "") If theLastStringVal = theOutString Then filteringComplete = TRUE End If theLastStringVal = theOutString WEnd ' Return the original String stripped of HTML StripHTML = theOutString ' Release object from memory Set loRegExp = Nothing End Function
Review Based On:   1 Hour(s) of usage  



 
 

 

 
  
  Link to Us  |  About Us Advertise  |  Contact Us  |  Website Help  
Write a User Review Today!
Its Fun, Fast, and Easy!

2014 ezd.com, All rights reserved
 

Google Analytics Alternative