<%
Fungsi DapatkanPage(url)
Pengambilan redup
Setel Pengambilan = CreateObject("Microsoft.XMLHTTP")
Dengan Pengambilan
.Buka "Dapatkan", url, False', "", ""
.Mengirim
GetPage = BytesToBstr(.ResponseBody)
Akhiri Dengan
Atur Pengambilan = Tidak Ada
Fungsi Akhir
Fungsi BytesToBstr(body)
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 = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
pada kesalahan lanjutkan berikutnya
Url=" http://www.taiang.com.cn/index.asp "
respon.tulis "开始更新首页..."
wstr = GetPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'jika bukan MyFile.FolderExists(server.MapPath("/html/")) maka
'File Saya.CreateFolder(server.MapPath("/html/"))'
'berakhir jika
Jika (fs.FileExists(server.MapPath("./")&"index.htm")) Lalu
fs.DeleteFile(server.MapPath("./")&"index.htm")
Berakhir Jika
Ditetapkan CrFi=fs.CreateTextFile(server.MapPath("./")&"index.htm")
Crfi.Writeline(wstr)
atur CrFi=tidak ada
atur fs=tidak ada
respon.tulis "...<font color=red>更新完成！</font>"
%>