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 -->
<!-- #sertakan file=../cls_main.asp -->
<html>
<kepala>
<meta http-equiv=Isi-Bahasa konten=zh-cn>
<meta http-equiv=Jenis Konten konten=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
%>
<batas tabel=0 lebar=100% id=tabel1 spasi sel=0 bantalan sel=0>
<metode formulir=tindakan POST=?aksi=html>
<tr>
<td width=9%>ID Awal:</td>
<td lebar=35%><tipe masukan=nama teks=sid ukuran=20 nilai=<%=sid%>></td>
<td width=8%>ID Akhir:</td>
<td width=23%><input type=text name=eid size=20 value=<%=eid%>>(ID Maksimum:<%=ResNum%>)</td>
<td lebar=23%><tipe masukan=nilai kirim=kirim nama=B1></td>
</tr>
</bentuk>
<%
jika permintaan(tindakan)=html maka
Respon.Tulis <tr><td colspan=5> & vbNewLine
Respon.Tulis <br><br> & vbNewLine
Response.Write 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
Respon.Tulis <meta http-equiv=segarkan konten=10;url=?action=html&sid=&sid&&eid=&eid&>
Akhiri Jika
berakhir jika
Pembuatan fungsi(id)
Respon.Tulis <IFRame name=tt frameborder=0 width=100% height=30 scrolling=no src=http://www.xx.com/cls_create.asp?startid=&sid&&endid=&eid&></IFrame>
Fungsi Akhir
%>
</td></tr>
</tabel>
</tubuh>
</html>