| 以下是代碼片段： <% ’ ============================================ ’ 把字符串進行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, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, Chr(34), """) 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, "&", "&") sTemp = Replace(sTemp, "<", "<") sTemp = Replace(sTemp, ">", ">") sTemp = Replace(sTemp, Chr(34), """) inHTML = sTemp End Function %> |
新聞熱點
疑難解答
