'清除HTML格式函数
Function cleanhtml(ccctxt)
ccctxt=trim(ccctxt)
ccciLen = len(ccctxt)
cccsTxt =""
cccii=0
For ccci = 1 To ccciLen
cccs=mid(ccctxt,ccci,1)
If cccii=0 Then
If cccs="<" Then
cccii=1
Else
If Asc(cccs)<0 Or Asc(cccs)>32 Then cccsTxt =cccsTxt&mid(ccctxt,ccci,1)
End If
Else
If cccs=">" Then cccii=0
End if
Next
cleanhtml = cccsTxt
End Function