国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

字符串轉換函數

2024-05-04 11:06:01
字體：大 中 小
來源：轉載
供稿：網友

以下是代碼片段：
<%
’ ============================================
’ 把字符串進行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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 普兰店市| 昌乐县| 阜平县| 彭州市| 定兴县| 泸西县| 故城县| 鄱阳县| 平果县| 两当县| 甘洛县| 嘉禾县| 日照市| 武冈市| 南开区| 海盐县| 杭锦后旗| 闽清县| 安顺市| 朝阳县| 闽侯县| 开封市| 桐城市| 武冈市| 柳河县| 静海县| 怀仁县| 区。| 宁国市| 冷水江市| 垫江县| 渭南市| 乌拉特中旗| 兴隆县| 茶陵县| 平泉县| 婺源县| 凌海市| 巩义市| 丰都县| 河源市|