Paket komponen xmlhttp di ASP
Saya menulis fungsi pencuri, memperhatikan bagian kode merah, dan menambahkan yang lain sendiri!
FunctionPoStHppageFrom (httpurl, stra, fromurl)
DIMHTTP
SetHttp = server.CreateObject ("msxml2.xmlhttp")
Http.open "post", httpurl, false
Http.setRequestHeader "panjang konten", len (stra) http.setRequestheader "konten-
ketik "," aplikasi/x-www-form-urlencoded "
Http.setRequestheader "referer", fromurl
Http.sendstra
Ifhttp.readystate <> 4then
SetHttp = tidak ada
GetHttppage = "$ false $"
Fungsi keluar
Endif
PostttppageFrom = bytestoBstr (http.responseBody, "gb2312") setHttp = tidak ada
Iferr.number <> 0then
Err.clear
Endif
Fungsi endfungsi
FunctionByTestObstr (body, cset)
Dimobjstream
SetoBjStream = server.CreateObject ("adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.open1d)
objstream.writeBody
objstream.position = 0
objstream.type = 2
objstream.charset = cset
BytestoBstr = objstream.readtext
objstream.close
setobjstream = tidak ada
Fungsi endfungsi