어떻게 정적 문장 시스템 을 수집 합 니까
5117 단어 어떻게 정적 문장 시스템 을 수집 합 니까
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 FunctionFunction BytesToBstr(body,Cset)dim obstream set obstream=Server.CreateObject("adodb.stream")obstream.Type=1 obstream.Mode=3 obstream.Open obstream.Write body obstream.Position=0 obstream.Type=2 obstream.Charset=Cset Bytes ToBstr=obstream.ReadText obstream.Close set obstream=nothing End Function 다음 에 가장 간단 한 프로그램 을 쓰 겠 습 니 다.한 걸음 한 걸음 가 르 치고,(허,쓸데없는 소리 많이 했 어*.*)위의 코드 를 get.asp 라 고 명명 하 세 요.한 페이지 코드 를 getfilename.asp 라 고 부 르 세 요.코드 는 다음 과 같 습 니 다:<%response.write gethttppage("http://www.asp315.com/artical/2/1.htm")%>허,getfilename.asp 가 완성 되 었 습 니 다.물론 이것 은 가장 간단 한 그대로 옮 기 는 것 입 니 다.우 리 는 한 걸음 한 걸음 고 쳐 서 코드 를 보완 해 야 합 니 다.그 페이지 와 기본 적 인 페이지 를 볼 수 있 습 니 다.물론 일부 그림 은 표시 되 지 않 습 니 다!그리고 우 리 는 이 페이지 를 분석 합 니 다.첫 페이지 에서 오른쪽 단 추 를 누 르 고 소스 코드 를 보고 이 줄 을 찾 습 니 다.페이지 수 흐,이 코드 들 을 찾 았 습 니 다.이것 은 많 고 적 습 니 다.괜 찮 습 니 다.우리 코드 는 한 걸음 한 걸음 완벽 해 야 합 니 다.그리고 우 리 는 getfilename.asp 를<%dim dj,l1,l2dj=gethttppage(""http://www.asp315.com/artical/2/1.htm")l1=instr(dj,"인기")l2=instr(l1,dj,"페이지 수")dj1=mid(dj 1,dj,l1,l2-l1)response.write dj 1%>이 파일 을 다시 실행 해 보 세 요.물건 이 많이 줄 어 든 것 을 발견 할 수 있 습 니 다.흐,훨씬 간단 합 니 다.그럼 규칙 을 찾 아 보 겠 습 니 다.똑 같이 소스 코드 를 살 펴 본 다음 에 모든 것 이태그 로 구성 되 어 있 는 것 을 발견 할 수 있 습 니 다.이것 은 훨씬 쉬 워 집 니 다.djmore=split(dj 1,"tr")기억 하 세 요.자세히 보면가 몇 개 더 있 는 것 을 발견 할 수 있 습 니 다.그러면 첫 번 째 와 마지막 두 개 를 제거 하고 이렇게 되 었 습 니 다.response.write dj 1 을 djmore=split(dj 1,"")for i=1 to ubound(djmore)-2response.write djmore(i)next 이렇게 하면 모든 줄 을 나 누 어 다음 과 같은 것 으로 나 눌 수 있 습 니 다. CSS 문법 매 뉴 얼(1)글꼴 속성 2005-7-21