字符串轉換函數

<%

' ============================================

' 把字符串進行HTML解碼,替換server.htmlencode

' 去除Html格式，用於顯示輸出

' ============================================

Function outHTML(str)

Dim sTemp

sTemp = str

outHTML = ""

If IsNull(sTemp) = True Then

Exit Function

End If

sTemp = Replace(sTemp, "&", "&amp;")

sTemp = Replace(sTemp, "<", "&lt;")

sTemp = Replace(sTemp, ">", "&gt;")

sTemp = Replace(sTemp, Chr(34), "&quot;")

sTemp = Replace(sTemp, Chr(10), "<br>")

outHTML = sTemp

End Function

' ============================================

' 去除Html格式，用於從數據庫中取出值填入輸入框時

' 注意：value="?"這邊一定要用雙引號

' ============================================

Function inHTML(str)

Dim sTemp

sTemp = str

inHTML = ""

If IsNull(sTemp) = True Then

Exit Function

End If

sTemp = Replace(sTemp, "&", "&amp;")

sTemp = Replace(sTemp, "<", "&lt;")

sTemp = Replace(sTemp, ">", "&gt;")

sTemp = Replace(sTemp, Chr(34), "&quot;")

inHTML = sTemp

End Function

%>