Я почти забыл, как писать пакетную генерацию 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))
если sid=0 тогда
Сид=0
еще
sid=cint(запрос(sid))
конец, если
ИД = CINT (запрос (ИД))
если ИД=0, то
Ид=500
еще
ИД = CINT (запрос (ИД))
конец, если
Дим тт,ResNum
Установить tt = Новый Cls_Main
ResNum = CLng(tt.Execute(выбрать максимум(id) из таблицы)(0))
Установить Mesky = Ничего
%>
< граница таблицы = 0 ширина = 100% id = table1 cellpacing = 0 cellpadding = 0>
<метод формы=POST action=?action=html>
<тр>
<td width=9%>Идентификатор начала:</td>
<td width=35%><input type=text name=sid size=20 value=<%=sid%>></td>
<td width=8%>Конечный идентификатор:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(Максимальный идентификатор:<%=ResNum%>)</td>
<td width=23%><тип ввода=отправить значение=отправить имя=B1></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&></IFrame>
Конечная функция
%>
</td></tr>
</таблица>
</тело>
</html>