Meskipun Script House 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 kenyamanan semua orang.
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 "Selesaikan pembuatan 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&namafile&"",""&host&"") lalu
respon.Tulis ""&folder&namafile&" berhasil dibuat.<br />"
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
Setel 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
%>