Metode 1
<%
'Fungsi yang umum digunakan
'1. Masukkan alamat halaman web target url, dan nilai kembalian getHTTPage adalah kode html halaman web target.
fungsi getHTTPage(url)
redupHttp
setel Http=server.buat objek("MSXML2.XMLHTTP")
Http.buka "GET", url, salah
Http.kirim()
jika Http.readystate<>4 lalu
fungsi keluar
berakhir jika
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
atur http=tidak ada
jika err.number<>0 maka err.Clear
fungsi akhir
'2. Konversi Ranma. Langsung gunakan xmlhttp untuk memanggil halaman web dengan karakter Cina. Yang Anda dapatkan adalah Ranma.
Fungsi BytesToBstr(tubuh,Cset)
objek redup
setel objstream = Server.CreateObject("adodb.stream")
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Setel FileObject=Server.CreateObject("Scripting.FileSystemObject")
nama file="../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true artinya tidak ada dan akan dibuat dengan sendirinya
openFile.writeline(sTeks)
Setel OpenFile=tidak ada
%>
<skrip>
alert("Pembuatan halaman web statis selesai");
sejarah.kembali();
</script>
Metode 2:
resourcefile=server.MapPath("../index.asp")
file target=server.MapPath("../index.htm")
Setel html = Server.CreateObject("CDO.Pesan")
html.Buat file sumber daya MHTMLBody,31
kode indeks=html.HTMLBody
Setel html = Tidak ada
jika instr(kode indeks,"</BODY></HTML>")<=0 maka
respon.Write("Pembuatan halaman beranda gagal")
respon.Akhir()
kalau tidak
Setel oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Setel file keluar=oFileSys.CreateTextFile(file target)
kode indeks outfile.WriteLine
file keluar.tutup
Setel file keluar=tidak ada
atur oFileSys=tidak ada
respon.Write("Halaman beranda dibuat!")
berakhir jika