ACTIVE SERVER PAGE

  <%
  Response.Charset="euc-kr" 'asp페이지 charset설정
  keyword = "love"

  URL = "https://endic.naver.com/search.nhn?sLn=kr&searchOption=all&query="&keyword

  set winhttp = Server.CreateObject("WinHTTP.WinHTTPRequest.5.1") 
  winhttp.SetTimeouts 10 * 1000, 30 * 1000, 30 * 1000, 30 * 1000
  winhttp.Open "GET",URL, False 
  winhttp.SetRequestHeader "User-Agent", "ASP/3.0"
  winhttp.SetRequestHeader "Host", "endic.naver.com"
  winhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:70.0) Gecko/20100101 Firefox/70.0"
  winhttp.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
  winhttp.SetRequestHeader "Accept-Language", "ko-KR,ko;q=0.8,en-US;q=0.5,en;q=0.3"
  winhttp.SetRequestHeader "Connection", "keep-alive"
  winhttp.SetRequestHeader "Upgrade-Insecure-Requests", "1"
  winhttp.SetRequestHeader "TE", "Trailers"
  winhttp.Send
  T = winhttp.ResponseText

  response.write tagFree(T)
  

'정규식을 이용한 HTML 태그제거
  Function tagFree(str_)
		Dim temp_Str
		If Len(str_) > 0 Then
			Set crabz = New Regexp
			crabz.Pattern = "<[^>]+>"
			crabz.Global = True
			temp_Str = crabz.Replace(str_,"")
		End if
		tagFree = temp_Str	
  End  Function

 


%>