[新着] Webテンプレートを仮オープンしました
<p>
<script type="text/javascript">
var source = [ '<select>' ];
for (var i = 1; i <= 100; i++) {
source.push ('<option>', i, '<\/option>');
}
source.push ('<\/select>');
document.write (source.join (''));
</script>
</p><!-- xmlns:xhtml="http://www.w3.org/1999/xhtml" -->
<xsl:template match="xhtml:select">
<xsl:element name="select" namespace="http://www.w3.org/1999/xhtml">
<xsl:call-template name="output.option"/>
</xsl:element>
</xsl:template>
<xsl:template name="output.option">
<xsl:param name="index" select="number(1)"/>
<xsl:element name="option" namespace="http://www.w3.org/1999/xhtml">
<xsl:attribute name="value">
<xsl:value-of select="$index"/>
</xsl:attribute>
<xsl:value-of select="$index"/>
</xsl:element>
<xsl:if test="$index < 100">
<xsl:call-template name="output.option">
<xsl:with-param name="index" select="$index + 1"/>
</xsl:call-template>
</xsl:if>
</xsl:template><select> <!--#include virtual="output-options.cgi" --> </select>
#!/usr/bin/perl
my $src, $ii;
for ($ii = 1; $ii <=100; $ii++) {
$src .= qq(<option value="$ii">$ii</option>);
}
print "Content-Type: text/html\n\n" . $src . "</select>";
exit 0;