<% 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 %> <%=escape(ext.config.title)%>

<%=escape(ext.config.title)%>

<%=escape(ext.baseLocation)%>から抽出

<% if ext.config.URLLimit then %>

URLの前方一致条件: <%=escape(ext.config.URLLimitPrefix)%>

<% end if if ext.config.img or ext.config.imgLink then %>

画像

該当数: <%=ext.img.length()%>

<% end if if ext.config.anchor then %>

リンク

該当数: <%=ext.anchor.length()%>

<% end if if ext.config.iframe then %>

リンク先ページ

該当数: <%=ext.iframe.length()%>

<% end if %>