<%
''''''''''''''''Komentar Pedang Patah'''''''''''''''''''''''''
''''strText adalah isi bagian yang akan dipotong''''''''''''
''''strStarTag adalah titik awal konten yang akan dipotong''''''''''
''''strEndTag adalah akhir dari konten yang akan dipotong''''''''''
''''Nilai yang dikembalikan GetText adalah konten yang dipotong''''''''''''''
'''''''''''''''Akhiri komentar''''''''''''''''''''
Fungsi GetText(strTeks, strStartTag, strEndTag)
redupkan intStart
intStart = instr(strTeks, strStartTag)
jika intStart maka
intStart = intStart + len(strStartTag)
intEnd = InStr(intMulai, strTeks, strEndTag)
GetText = Pertengahan(strText, intStart, intEnd - intStart)
kalau tidak
Dapatkan Teks=
berakhir jika
Fungsi Akhir
%>
<%
'''''''''Komentar Pedang Patah''''''''''
'''''''''Fungsi berikut dapat diabaikan'''''''''
''''''''Cukup gunakan fungsi entri getHTTPPage'''''''
''''''''path adalah alamat halaman web yang akan dibaca''''''''
''''''''getHTTPpage mengembalikan konten halaman web yang telah dibaca''
'''''''' Yang perlu diperhatikan disini adalah gb2312. Jika kode halaman web yang dibaca adalah
''Untuk gb2312, gunakan gb2312. Jika UTF-8, ubah ke UTF-8''''
''''''''Akhir komentar''''''''''
Fungsi getHTTPage(Jalur)
t = GetBody(Jalur)
getHTTPHalaman=BytesToBstr(t,gb2312)
Fungsi akhir
Fungsi GetBody(url)
pada kesalahan lanjutkan berikutnya
Setel Pengambilan = Buat Objek (Microsoft.XMLHTTP)
Dengan Pengambilan
.Buka dapatkan, url, False, ,
.Mengirim
GetBody = .ResponseBody
Akhiri Dengan
Setel Pengambilan = Tidak Ada
Fungsi Akhir
Fungsi BytesToBstr(tubuh,Cset)
objekstream 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
%>