Bagus sekali, Anda bisa menerapkannya sendiri. <%
'//Bagian pemrosesan data
redupkan Konten, Angka, I, strCodea
Saya=permintaan(Saya)
Jika len(I)=0 maka I=0
Response.write <br><div align=center>Program ini sedang memproses data &I& dalam satu lingkaran</div><br>
strCodea=UploadFiles/News '//Perlu menanyakan apakah berisi string
strCodeb=/UploadFiles/News '//String yang diganti
strCodec=http://www.vevb.com/uploadfiles/news '//Ganti string
Setel rs = server.CreateObject(adodb.recordset)
rs.open pilih konten Dari berita di mana id=&I& dan siteid=1 diurutkan berdasarkan id desc,conn,1,1
Jika tidak (rs.eof atau rs.bof) maka
Konten=rs(konten)
Nomor=instr(konten,strCodea)
Jika Bil>0 maka
Jika kanan(kiri(isi,Jumlah),2)=/ maka
konten=ganti(konten,strCodeb,strCodec)
berakhir jika
berakhir jika
berakhir jika
Rs.tutup
II=Saya+1
respon.tulis(<meta http-equiv=segarkan konten=0;url=?I=&I>)
Setr=Tidak ada
%>