VB6 过滤HTML
摘要:
'过滤HTML字符替换为文字
Private Function ReplaceToText(ByVal Html As String)
Dim i As Integer
Dim CurPosBefore As Long
Dim CurPosEnd As Long
Dim ReplaceTextTMP As String
Dim ReplaceText As String '替换为该字符
Do
ReplaceText = ""
CurPosBefore = InStr(1, Html, "<")
If CurPosBefore <> 0 Then
'found < text
CurPosEnd = InStr(CurPosBefore, Html, ">")
If CurPosEnd <>
阅读全文
对比国内门户网站对Flash激活限制的处理
摘要: 今年年初之时，微软发布了一个针对ActiveX控件的补丁，安装此补丁后的IE6中，当ActiveX控件获得焦点时，IE自动为其套上一个虚线矩形边框，并提示用户按下回车或者空格键以激活控件。刚刚正式发布中文版的IE7也是同样的处理。
最受影响的想必就是Flash控件了。当时我认为这对广告满屏飞的门户网站来说一定是个坏消息。不过微软也没有把事做绝，留了一条脚本方式解决的后路。
阅读全文