asp 원 격 웹 페이지 의 지정 한 내용 구현 코드 가 져 오기
<%
' ASP , //www.jb51.net
On Error Resume Next
Server.ScriptTimeOut=9999999
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage=BytesToBstr(t,"GB2312")
End function
Function Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then Newstring=Len(wstr)
End Function
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetBody(url)
on error resume next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
'ASP
Dim wstr,str,url,start,over,dtime
a=" " 'ASP
b=" " 'ASP
url="http://sc.jb51.net/"
wstr=getHTTPPage(url)
start=Newstring(wstr,a)
over=Newstring(wstr,b)
body=mid(wstr,start,over-start)
response.write ""&body&"" '
'ASP
%>
위의 코드 는 지정 한 웹 페이지 의 내용 을 가 져 올 수 있 으 며,전부 가 져 오 면 더욱 간단 합 니 다.코드 는 다음 과 같 습 니 다:
'ASP
Dim wstr,str,url,start,over,dtime
url="http://sc.jb51.net/"
wstr=getHTTPPage(url)
body=wstr
코드 를 로 컬 에 저장 하려 면
Dim wstr,str,url,start,over,dtime
url="https://www.jb51.net/"
wstr=getHTTPPage(url)
filename="index.htm"
if wstr<>"" and request("action")="makeindex" then
body=wstr
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(""&filename&""))
fout.Write body
fout.close
set fout=nothing
set fso=nothing
If Err.number=0 then
response.write("<div class=""tishi""> !!</div>")
end if
end if
구체 적 인 것 은 필요 에 따라 스스로 수정 하면 된다.이상 은 asp 가 원 격 웹 페이지 의 지정 한 내용 을 가 져 오 는 실현 코드 에 대한 상세 한 내용 입 니 다.원 격 웹 페이지 의 내용 을 가 져 오 는 데 관 한 자 료 는 저희 의 다른 관련 글 을 주목 하 시기 바 랍 니 다!
이 내용에 흥미가 있습니까?
현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:
백 엔 드 아파 치가 프론트 엔 드 Nginx 리 버스 에이전트 의 실제 IP 주 소 를 가 져 옵 니 다.백 엔 드 아파 치가 프론트 엔 드 Nginx 리 버스 에이전트 의 실제 IP 주 소 를 가 져 옵 니 다. 환경: 전단 Nginx 는 역방향 프 록 시 서버 입 니 다.백 엔 드 는 Apache, WEB 프로젝트 ...
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.