国产探花免费观看_亚洲丰满少妇自慰呻吟_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
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 龙山县| 鹤岗市| 武宁县| 新竹县| 道孚县| 长沙市| 修武县| 霍州市| 怀远县| 宣汉县| 昆山市| 广饶县| 辰溪县| 南宁市| 沙坪坝区| 青铜峡市| 区。| 龙川县| 南陵县| 博乐市| 玉田县| 修文县| 上虞市| 迁安市| 宜丰县| 北安市| 鲁山县| 罗城| 垣曲县| 南昌市| 平阳县| 金湖县| 星子县| 清水县| 平昌县| 灌云县| 亳州市| 德兴市| 新沂市| 华容县| 丹东市|