ASPバッチ生成の書き方をほとんど忘れてしまったので、自分で静的ページを生成するASPを書く必要がある友人は参考にしてください。次のようにコードをコピーします。
<!-- #include file=../conn.asp -->
<!-- #include file=../cls_main.asp -->
<html>
<頭>
<meta http-equiv=コンテンツ言語 content=zh-cn>
<meta http-equiv=コンテンツタイプ content=text/html;
<title>Baidu XML を生成</title>
</head>
<本文>
<%
ディムシド、イード
sid=abs(リクエスト(sid))
sid=0の場合
シド=0
それ以外
sid=cint(リクエスト(sid))
終了する場合
eid=cint(リクエスト(eid))
eid=0 の場合
イード=500
それ以外
eid=cint(リクエスト(eid))
終了する場合
ディム tt、ResNum
tt = 新しい Cls_Main を設定します。
ResNum = CLng(tt.Execute(テーブルから最大(id)を選択)(0))
Mesky = 何も設定しない
%>
<table border=0 width=100% id=table1 cellpacing=0 cellpadding=0>
<フォームメソッド=POSTアクション=?アクション=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=submit name=B1></td>
</tr>
</form>
<%
request(action)=html の場合
Response.Write <tr><tdcolspan=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><tdcolspan=5> & vbNewLine
レスポンス.フラッシュ
If (eid-500) > ResNum then
Response.Write 手術の成功おめでとうございます。
レスポンス.フラッシュ
それ以外
作成(SID)
シド=シド+500
イード=イード+500
Response.Write <meta http-equiv=refresh content=10;url=?action=html&sid=&sid&&eid=&eid&>
終了の場合
終了する場合
関数作成(id)
Response.Write <IFRame name=tt Frameborder=0 width=100% height=30scrolling=no src=http://www.xx.com/cls_create.asp?startid=&sid&&endid=&eid&></IFrame>
終了機能
%>
</td></tr>
</テーブル>
</body>
</html>