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.jb51.net/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.jb51.net/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
%>