Sekarang tidak ada masalah dalam menghasilkan halaman statis darinya, tetapi bagaimana cara menghasilkan file statis dengan nomor seperti 20030405-1.htm 20030405-2.htm 20030405-3.htm menurut aturan tertentu? Teman CSDN menjawabnya terakhir kali, jadi saya salin. Teks aslinya adalah sebagai berikut
============
Gunakan statistik jumlah kata dalam artikel, lalu potong hasilnya ketika mencapai jumlah kata tertentu. Namun, konten yang diberi halaman akan terpotong di tempat yang tidak dapat dijelaskan, yang sangat tidak bersahabat.
Caranya sangat sederhana, carilah simbol berikut di dekat tempat yang ingin Anda potong:
;'? . ! ;'.!
Jika ada <p> atau <br> dibelakangnya, page break. Yang utama adalah mempelajari format artikel.
<%
jika Request.ServerVariables(Content_Length) > 0 maka
content = Request.Form(textarea1)PageLength = 1000 'Jumlah kata per halaman
CPanjang = Len(isi)
PageCount = Int(Clength/PageLength) + 1 'Hitung jumlah halaman yang diredupkan PageArray
redim PageArray(PageCount)Seperator = Array(chr(13),chr(10),.,!,?,;,,,,') 'Pemisah PageArray(0) = 0
Pos = 0
untuk j=0 hingga ubound(Pemisah)
Pos = instr(PageArray(i)+900,content,Seperator(j)) 'Posisi di dekat PageArray(i)+900 adalah 100 kata, 1-999 dapat disesuaikan
sedangkan Pos > 0 dan Pos < (i+1)*PageLength dan Pos > i*PageLength
ArrayHalaman(i) = Pos
Pos = instr(Pos+Panjang Halaman,konten,Pemisah(j))
wendif PageArray(i) > 0 lalu
Respon.Tulis 0:i¦ &PageArray(i)&<br>&j&:j&Seperator(j)&<br>
j = j + ubound(Pemisah) + 1
berakhir jika
nextfor i=1 hingga PageCount-1
ArrayHalaman(i) = 0
Pos = 0
untuk j=0 hingga ubound(Pemisah)
Pos = instr(PageArray(i-1)+950,konten,Pemisah(j))
sedangkan Pos > 0 dan Pos < (i+1)*PageLength dan Pos > i*PageLength
PageArray(i) = Pos
Pos = instr(Pos+Panjang Halaman,konten,Pemisah(j))
pergi ke
jika PageArray(i) > 0 maka
Respon.Tulis i&:i¦ &PageArray(i)&<br>&j&:j&Seperator(j)&<br>
j = j + ubound(Pemisah) + 1
berakhir jika
Berikutnya
keluaran berikutnya = pertengahan(konten,1,ArrayHalaman(0))
keluaran = ganti(keluaran,chr(13),<br>)
Respon.Tulis <br><br>Paragraf 1<br>
Response.Tulis keluaran untuk i=1 ke Jumlah Halaman-2
keluaran = pertengahan(konten,PageArray(i-1)+1,PageArray(i)-PageArray(i-1))
keluaran = ganti(keluaran,chr(13),<br>)
Respon.Tulis <br><br>Paragraf &i+1&<br>
Respon. Tulis keluaran
Output paragraf terakhir berikutnya tidak ditulis lain.
%>
<Tindakan BENTUK= metode=ID POST=nama form1=form1>
<TEXTAREA baris=70 kolom=120 id=textarea1 nama=textarea1>
</TEKSTAREA>
<INPUT type=kirim nilai=Kirim id=kirim1 nama=kirim1>
</BENTUK>
<%akhir jika%>
--------------------------------------------------- -------------
Tentukan panjang setiap halaman MaxLength
Total panjang teksTotalPanjang
Pindai hasil yang sulit di akhir setiap paragraf artikel
dan hitung panjangnya
Setelah melebihi MaxLength, maka akan dibagi menjadi halaman pertama.
Hapus bagian sebelum pengembalian sulit ini dan ulangi operasi di atas.