ASPバッチ生成の書き方をほとんど忘れてしまったので、自分で静的ページを生成するASPを書く必要がある友人は参考にしてください。
次のようにコードをコピーします。
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<頭>
<meta http-equiv="コンテンツ言語" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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 cellpacing="0" cellpadding="0">
<form method="POST" action="?action=html">
<tr>
<td>開始 ID:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>終了 ID:</td>
<td><input type="text" size="20" value="<%=eid%>">(最大 ID:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></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.「手術成功おめでとうございます！」と書きます。
レスポンス.フラッシュ
それ以外
作成(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=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&">< /IFrame>"
終了機能
%>
</td></tr>
</テーブル>
</body>
</html>