<% 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.document.title)%>

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

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

画像

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

<% for each url in ext.img %> <% next %>

リンク

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

リンク先ページ

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

<% for each url in ext.iframe %> <% next %>