ASPÒÆ³ýËùÓÐHTML´úÂëµÄº¯Êý
´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐÄ³Ð©ÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó£¡
È磺
RemoveHTML = Replace(RemoveHTML," ","")
Ïà¹ØÎĵµ£º
ASPÀà
£½£½£½£½£½£½£½£½£½
ʹÓÃVBSµÄASPÒ²Äܶ¨ÒåÀàµÄ£¡±¾ÎĽ«½éÉܶ¨Ò塢ʹÓÃÀàµÄ»ù±¾·½·¨¡£
ÔÚASP£¨ÌØÖ¸Ê¹ÓÃVBSµÄASP£¬ÏÂͬ£©ÀʹÓÃClassÓï¾äÀ´ÉùÃ÷Ò»¸öÀà¡£Óï·¨ÈçÏ£º
Class ˈ̞
End Class
ÀàµÄ¶¨Òå¡¢±äÁ¿¡¢ÊôÐԺͷ½·¨µÈ¶¼°üº¬ÔÚClass...End Class¿éÖС£
ÏÂÃæ¾Í¿ÉÒÔ¶¨ÒåÀàµÄÊôÐԺͷ½·¨ÁË¡£Õýʽ½²ÊôÐÔ¡¢·½·¨µ ......
ÔÚ´óÐ͵ÄASPÏîÄ¿ÖУ¬ºÜ¶àµÄÒ³Ãæ¶¼Éæ¼°µ½·Ò³¹¦ÄÜ¡£Èç¹ûÿ¸öÒ³Ãæ¶¼Ð´Ò»¸ö·Ò³µÄ³ÌÐòµÄ»°£¬ÕâÑùµÄ¹¤×÷¼´½µµÍÁ˹¤×÷Ч
ÂÊ£¬Ò²²»ÀûÓÚ¹¤³ÌµÄÄ£¿é»¯£¬²»ÄÜʹ´úÂëÖØÓá£Òò´Ë£¬°Ñ·Ò³ÕâÑùµÄ¹¦ÄÜÄ£¿é»¯ÊǺÜÓбØÒªµÄ¡£
¡¡¡¡Éè¼Æ·½·¨£º
¡¡¡¡1¡¢µ÷ÓøÃÄ£¿éʱ£¬Ö»ÐèÒª´«µÝ¼Ç¼¼¯ºÍÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£»
¡¡¡¡2¡¢¿ÉÒÔµã»÷Á´½Ó½øÐз ......
תÌû£¬²»Ëµ»°
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
"
"
"
&
&
&
<
<
<
>
>
>
²»¶Ï¿ª¿Õ¸ñ(non-breaking space)
 
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
×Ö·û
Ê®½øÖÆ
תÒå×Ö·û
?
¡
& ......
<html>
<head>
<title>
»ù´¡HTMLѧϰ
</title> <t/±êÌâ/t>
& ......