% Function escape(arg) If IsNull(arg) Then escape = "" Exit Function End If Dim tmp, src, c src = cstr(arg) tmp = "" For i = 1 To Len(src) c = Mid(src, i, 1) If c = ">" Then tmp = tmp & ">" ElseIf c = "<" then tmp = tmp & "<" ElseIf c = "&" then tmp = tmp & "&" ElseIf c = chr(&h22) then tmp = tmp & """ Else tmp = tmp & c End If Next escape = tmp End Function if (ext.img.length() + ext.iframe.length()) > 0 then %>
対象がありません。
<% end if %>