<%
'''''''''''''''부러진 검 댓글'''''''''''''''''''''
''''strText는 잘라낼 섹션의 내용입니다.''''''''''''
''''strStarTag는 잘라낼 내용의 시작점입니다.''''''''''
''''strEndTag는 잘라낼 내용의 끝입니다.''''''''''
''''GetText 반환 값은 잘린 내용입니다.'''''''''''''
'''''''''''''''댓글 끝''''''''''''''''''
함수 GetText(strText, strStartTag, strEndTag)
희미한 intStart
intStart = instr(strText, strStartTag)
intStart이면
intStart = intStart + len(strStartTag)
intEnd = InStr(intStart, strText, strEndTag)
GetText = Mid(strText, intStart, intEnd - intStart)
또 다른
GetText=
종료하면
기능 종료
%>
<%
''''''''부러진 검 댓글''''''''''
'''''''''다음 기능은 무시할 수 있습니다.'''''''''
''''''''입력 함수 getHTTPPage를 사용하세요'''''''
''''''''path는 읽을 웹페이지 주소입니다.''''''''
''''''''getHTTPPage는 읽은 웹페이지 콘텐츠를 반환합니다.''
'''''''' 여기서 주목해야 할 것은 읽고 있는 웹페이지의 코드가 gb2312 라면.
''gb2312의 경우 gb2312를 사용하세요. UTF-8이면 UTF-8로 변경하세요.''''
''''''''댓글 끝''''''''''
함수 getHTTPage(경로)
t = GetBody(경로)
getHTTPPage=BytesToBstr(t,gb2312)
기능 종료
함수 GetBody(url)
오류 발생 시 다음 재개
검색 설정 = CreateObject(Microsoft.XMLHTTP)
검색 포함
.가져오기, URL, False 열기,
.보내다
GetBody = .ResponseBody
끝
검색 설정 = 없음
기능 종료
함수 BytesToBstr(body,Cset)
희미한 객체 스트림
objstream = Server.CreateObject(adodb.stream) 설정
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write 본문
objstream.위치 = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 아무것도 설정하지 않음
기능 종료
%>