asp批量生成大量规律性文本内容的代码

<%
dxy=1
for i=1 to 300
%>
第<%=dxy%>个：<br>
<object codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" height="136" width="605" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000">
<param value="16007" name="_cx" />
<param value="3598" name="_cy" />
<param value="" name="FlashVars" />
<param value="http://files.uoften.com/file_images/article/201303/tmflash/<%=i%>.swf" name="Movie" />
<param value="Window" name="WMode" />
<param value="-1" name="Play" />
<param value="-1" name="Loop" />
<param value="High" name="Quality" />
<param value="" name="SAlign" />
<param value="-1" name="Menu" />
<param value="" name="Base" />
<param value="" name="AllowScriptAccess" />
<param value="ShowAll" name="Scale" />
<param value="0" name="DeviceFont" />
<param value="0" name="EmbedMovie" />
<param value="" name="BGColor" />
<param value="" name="SWRemote" />
<param value="" name="MovieData" />
<param value="1" name="SeamlessTabbing" />
<param value="0" name="Profile" />
<param value="" name="ProfileAddress" />
<param value="0" name="ProfilePort" />
<param value="all" name="AllowNetworking" />
<param value="false" name="AllowFullScreen" /></object>
<div align="left">上面的是透明FLASH的演示，【<a target="_blank" href="http://files.uoften.com/file_images/article/201303/<%=i%>.swf">下载</a>】 （请用“右键－目标另存为”方式下载，或是使用下载工具）</div>
<br /><br />
<%
dxy=dxy+1
if dxy mod 20=0 then
response.write "#分页符#<br>"  '其实就是输入分页，300段代码不可能不分页
end if
next
%>