Я почти забыл, как писать пакетную генерацию ASP. Друзья, которым нужно написать ASP для самостоятельной генерации статических страниц, могут обратиться к нему.
Скопируйте код кода следующим образом:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<голова>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>Сгенерировать Baidu XML</title>
</голова>
<тело>
<%
дим Сид, Ид
sid=abs(запрос("сид"))
если sid=0 тогда
Сид=0
еще
sid=cint(запрос("сид"))
конец, если
ИД = CINT (запрос («Ид»))
если eid=0, то
Ид=500
еще
ИД = CINT (запрос («Ид»))
конец, если
Дим тт,ResNum
Установить tt = Новый Cls_Main
ResNum = CLng(tt.Execute("выбрать максимум(id) из таблицы")(0))
Установить Mesky = Ничего
%>
<таблица cellpacing="0" cellpadding="0">
<form метод="POST" action="?action=html">
<тр>
<td>Идентификатор начала:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>Конечный идентификатор:</td>
<td><input type="text" size="20" value="<%=eid%>">(Максимальный идентификатор:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</форма>
<%
если запрос("действие")="html" тогда
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
Ответ.Flush
Если (eid-500) > ResNum Тогда
Ответ.Напишите «Поздравляем с успешной операцией!»
Ответ.Flush
еще
создать (сид)
Сид=Сид+500
Ид=Ид+500
Response.Write "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
Конец, если
конец, если
Функциясоздание(идентификатор)
Response.Write "<IFRame name=ttframeborder=0 width=100% height=30 прокрутка=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&">< /ИФрейм>"
Конечная функция
%>
</td></tr>
</таблица>
</тело>
</html>