Gunakan ASP untuk mendapatkan konten yang ditentukan dari halaman web jarak jauh, Anda dapat dengan mudah mendapatkan beberapa konten yang ditentukan dari halaman web orang lain.
Kodenya adalah sebagai berikut:
<%
'Gunakan ASP untuk mendapatkan konten yang ditentukan dari halaman web target jarak jauh, kode disediakan oleh situs web Guangzhou untuk membangun http://www.vevb.com
Pada kesalahan resume berikutnya
Server.ScriptTimeout = 9999999
Fungsi getHttppage (path)
T = getbody (jalur)
GetHttppage = bytestoBstr (t, gb2312)
Fungsi akhir
Function Newstring (WSTR, STRNG)
Newstring = instr (lcase (wstr), lcase (strng))
Jika berita <= 0 maka newstring = len (wstr)
Fungsi akhir
Fungsi bytestoBstr (body, cset)
redup objstream
Set ObjStream = Server.CreateObject (adodb.stream)
objstream.type = 1
objstream.mode = 3
objstream.open
objstream.write?
objstream.position = 0
objstream.type = 2
objstream.charset = cset
BytestoBstr = objstream.readtext
objstream.close
atur objstream = tidak ada
Fungsi akhir
Fungsi getbody (url)
Pada kesalahan resume berikutnya
Set Retrieval = CreateObject (Microsoft.xmlhttp)
Dengan pengambilan
.Opeen get, url, false ,,,,,,
.Mengirim
Getbody = .responseBody
Berakhir dengan
Setrieval = tidak ada
Fungsi akhir
'ASP mendapatkan konten yang ditentukan dari halaman web jarak jauh, mulai
Redup wstr, str, url, start, over, dTime
A = Mulai konten 'ASP Dapatkan konten halaman web target dan mulailah menandai
B = Konten Akhir 'ASP Untuk Mendapatkan Tanda Akhir Konten Web
url = http://sc.vevb.com/
Wstr = getHttppage (url)
start = newstring (wstr, a)
Over = newstring (wstr, b)
Body = mid (wstr, start, overtart)
Response.write & body & 'output konten halaman web yang diperoleh
'ASP Dapatkan konten yang ditentukan dari halaman web jarak jauh
%>
Kode di atas bisa mendapatkan konten dari halaman web yang ditentukan.
Kode inti:
'ASP mendapatkan konten yang ditentukan dari halaman web jarak jauh, mulai
Redup wstr, str, url, start, over, dTime
url = http://sc.vevb.com/
Wstr = getHttppage (url)
Tubuh = wstr