Saya hampir lupa cara menulis pembuatan batch ASP. Teman-teman yang perlu menulis ASP untuk menghasilkan halaman statis sendiri dapat merujuknya.
Copy kode kodenya sebagai berikut:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<html>
<kepala>
<meta http-equiv="Isi-Bahasa" content="zh-cn">
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<title>Buat Baidu XML</title>
</kepala>
<tubuh>
<%
sisi redup, idul fitri
sid=abs(permintaan("sid"))
jika sid=0 maka
sisi=0
kalau tidak
sid=cint(permintaan("sid"))
berakhir jika
idul fitri=cint(permintaan("idul fitri"))
jika idul fitri=0 maka
Idul Fitri = 500
kalau tidak
idul fitri=cint(permintaan("idul fitri"))
berakhir jika
Redupkan,ResNum
Setel tt = Cls_Main Baru
ResNum = CLng(tt.Execute("pilih maks(id) dari tabel")(0))
Tetapkan Mesky = Tidak Ada
%>
<tabel cellpacing="0" cellpadding="0">
<formulir metode="POST" action="?action=html">
<tr>
<td>ID Awal:</td>
<td><input type="text" size="20" value="<%=sid%>"></td>
<td>ID Akhir:</td>
<td><input type="text" size="20" value="<%=eid%>">(ID Maksimum:<%=ResNum%>)</td>
<td><input type="kirim" value="kirim"></td>
</tr>
</bentuk>
<%
jika permintaan("action")="html" maka
Respon.Tulis " <tr><td colspan=5>" & vbNewLine
Respon.Tulis "<br><br>" & vbNewLine
Response.Tulis "Menghasilkan file <font color='red'><b>" & eid & ".xml</b></font>..." & vbNewLine
Respon.Tulis "<br><br>" & vbNewLine
Respon.Tulis " </td></tr><tr><td colspan=5>" & vbNewLine
Respon. Siram
Jika (Idul Fitri 500) > ResNum Lalu
Respon.Tulis "Selamat atas keberhasilan operasi Anda!"
Respon. Siram
kalau tidak
buat(sid)
sisi=sisi+500
idul fitri= idul fitri+500
Respons.Tulis "<meta http-equiv=""refresh"" content=""10;url=?action=html&sid="&sid&"&eid="&eid&""">"
Akhiri Jika
berakhir jika
Pembuatan fungsi(id)
Response.Tulis "<Nama IFRame=tt frameborder=0 lebar=100% tinggi=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid="&sid&"&endid="&eid&">< /IFrame>"
Fungsi Akhir
%>
</td></tr>
</tabel>
</tubuh>
</html>