用JS清除word保存为html格式后产生的垃圾代码

' ============================================
' 去除Html格式，用於從資料庫中取出值填入輸入框時
' 注意：value="?"這邊一定要用雙引號
' ============================================
Function inHTML(str)
Dim sTemp
sTemp = str
inHTML = ""
If IsNull(sTemp) = True Then
Exit Function
End If
sTemp = Replace(sTemp, "&", "&")
sTemp = Replace(sTemp, "<", "<")
sTemp = Replace(sTemp, ">", ">")
sTemp = Replace(sTemp, Chr(34), """)
inHTML = sTemp
End Function
============================
结合这个用：
用JS清除word保存为html格式后产生的垃圾代码
JARON_DOT_CN 2003年12月29日 阅读:338次
　

---

Related Posts