Meskipun Wulin.com www.vevb.com telah merilis kode yang relevan sebelumnya, beberapa situs web khusus tidak sempurna. Baru-baru ini, saya membantu pelanggan memodifikasi sistem dan menemukan kode ini cukup bagus, jadi saya mengekstraknya untuk semua orang kenyamanan. Copy kode kodenya sebagai berikut:
<%
folder web=/
host=index_cn.asp'alamat dinamis meja depan
folder=/'folder
filename=index_cn.html'Buat nama file statis
Fso_info host, folder, nama file
respon.write menghasilkan HTML statis untuk beranda situs web berbahasa Mandarin.<br />
'Hasilkan html
Fungsi Fso_info(host,folder,nama file)
host=http://+Request.ServerVariables(HTTP_HOST)&folder web&host
jika SaveFile(&folder&nama file&,&host&) lalu
respon.Tulis &folder&nama file& berhasil dibuat
kalau tidak
Response.write &folder&filename& gagal menghasilkan <font color='#FF0000'></font>. Mungkin nama file Anda mengandung karakter khusus.<br />
berakhir jika
Fungsi Akhir
'Buat file
fungsi SaveFile(NamaFile Lokal,UrlFile Jarak Jauh)
Redupkan Iklan, Pengambilan, GetRemoteData
Pada Kesalahan Lanjutkan Berikutnya
Set Retrieval = Server.CreateObject(Microso & ft.XM & LHTTP) '//Pisahkan kata-katanya untuk mencegah pembunuhan yang tidak disengaja oleh perangkat lunak anti-virus
Dengan Pengambilan
.Buka Dapatkan, RemoteFileUrl, Salah,,
.Mengirim
GetRemoteData = .ResponseBody
Akhiri Dengan
Atur Pengambilan = Tidak Ada
Set Ads = Server.CreateObject(Ado & db.Str & eam) '//Pisahkan kata-katanya untuk mencegah pembunuhan yang tidak disengaja oleh perangkat lunak anti-virus
Dengan Iklan
.Jenis = 1
.Membuka
.Tulis GetRemoteData
.SaveToFile Server.MapPath(NamaFile Lokal), 2
.Membatalkan()
.Menutup()
Akhiri Dengan
Setel Iklan=tidak ada
jika salah <> 0 maka
SimpanFile = salah
err.jelas
kalau tidak
SimpanFile = benar
berakhir jika
Fungsi akhir
%>