'============================== 
'格式化HTML，SDCMS加強版 
'============================== 
Function Nohtml(ByVal t0) 
IF Len(t0)=0 Or IsNull(t0) Then 
Nohtml="" 
Exit Function 
End IF 
Dim Regs,Matches,Match 
Set Regs=New Regexp 
Regs.Ignorecase=True 
Regs.Global=True 
'過濾掉JS,Iframe 
Regs.pattern ="<script.+?/script>" 
t0=Regs.Replace(t0,"") 
Regs.pattern ="<iframe.+?/iframe>" 
t0=Regs.Replace(t0,"") 
'再過濾其他 
Regs.Pattern="<.+?>" 
Set Matches=Regs.Execute(t0) 
IF Matches.Count>0 Then 
For Each Match In Matches 
t0=Replace(t0,Match.value,"") 
Next 
End IF 
t0=Replace(t0," ","") 
t0=Replace(t0,vbCrLf,"") 
t0=Replace(t0,"　","") 
t0=Replace(t0," ","") 
t0=Replace(t0,CHR(9),"") 
t0=Replace(t0,CHR(13),"") 
t0=Replace(t0,CHR(10),"") 
t0=Replace(t0,CHR(22),"") 
Set Regs=Nothing 
Nohtml=t0 
End Function