文本輸入輸出處理函數

 ' ============================================
' 把字符串進行HTML解碼,替換server.htmlencode
' 去除Html格式，用於顯示輸出
' ============================================
Function outHTML(str)
 Dim sTemp
 sTemp = str
 outHTML = ""
 If IsNull(sTemp) = True Then
  Exit Function
 End If
 sTemp = Replace(sTemp, "&", "&")
 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, "&quot;",Chr(34))
 sTemp = Replace(sTemp, "<br>", Chr(10))
 inHTML = sTemp
End Function