htmlspecialchars 関数
ASP with VBScript で PHP の便利な関数を定義してみる (1)
htmlspecialchars()
特殊文字をHTMLエンティティに変換する関数。
関数の説明
htmlspecialchars (strText as String, intQuatestyle as integer) as string
htmlspecialchars のソース
<%
public Const ENT_NOQUOTES = 4
public Const ENT_QUOTES = 2
public Const ENT_COMPAT = 1
public function htmlspecialchars(strText,intQuatestyle)
strText = Replace(strText,"&","&")
strText = Replace(strText,"<","<")
strText = Replace(strText,">",">")
Select Case intQuatestyle
Case ENT_COMPAT
strText = Replace(strText,"""",""")
Case ENT_QUATES
strText = Replace(strText,"""",""")
strText = Replace(strText,"'","'")
Case ENT_NOQUATES
End Select
htmlspecialchars = strTemp
End Function
%>
public Const ENT_NOQUOTES = 4
public Const ENT_QUOTES = 2
public Const ENT_COMPAT = 1
public function htmlspecialchars(strText,intQuatestyle)
strText = Replace(strText,"&","&")
strText = Replace(strText,"<","<")
strText = Replace(strText,">",">")
Select Case intQuatestyle
Case ENT_COMPAT
strText = Replace(strText,"""",""")
Case ENT_QUATES
strText = Replace(strText,"""",""")
strText = Replace(strText,"'","'")
Case ENT_NOQUATES
End Select
htmlspecialchars = strTemp
End Function
%>
※ ただし、PHP4.1.0以降から定義されている文字セット指定引数は指定できない。
