ASP批量生成静态页面的写法(批量生成技巧iframe)

复制代码代码如下:   <html> <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>生成百度XML</title> </head> <body> <% dim sid,eid sid=abs(request("sid")) if sid=0 then sid=0 else sid=cint(request("sid")) end if eid=cint(request("eid")) if eid=0 then eid=500 else eid=cint(request("eid")) end if Dim tt,ResNum Set tt = New Cls_Main ResNum = CLng(tt.Execute("select max(id) from table")(0)) Set Mesky = Nothing %> <table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0"> <form method="POST" action="?action=html"> <tr> <td width="9%">开始ID:</td> <td width="35%"><input type="text" name="sid" size="20" value="<%=sid%>"></td> <td width="8%">结束ID:</td> <td width="23%"><input type="text" name="eid" size="20" value="<%=eid%>">(最大ID:<%=ResNum%>)</td> <td width="23%"><input type="submit" value="提交" name="B1"></td> </tr> </form> <% if request("action")="html" then Response.Write " <tr><td colspan=5>" & vbNewLine Response.Write "<br><br>" & vbNewLine Response.Write "正在生成 <font color='red'><b>" & eid & ".xml</b></font> 文件…… " & vbNewLine Response.Write "<br><br>" & vbNewLine Response.Write " 　</td></tr><tr><td colspan=5>" & vbNewLine Response.Flush If (eid-500) > ResNum Then Response.Write "恭喜您操作成功!" Response.Flush else creat(sid) sid=sid+500 eid=eid+500 Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">" End If end if Function creat(id) Response.Write "<IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&"></IFrame>" End Function %> </td></tr> </table> </body> </html>

　　推荐阅读

　　asp文本框换行显示代码

复制代码代码如下: <% function CHTMLEncode(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10), "<BR> ") CHTMLEncode= fString end function %> 调用时候使用 <%=CHTMLEn>>>详细阅读

本文标题：ASP批量生成静态页面的写法(批量生成技巧iframe)

地址：http://www.17bianji.com/kaifa2/ASP/31852.html

1/2 1