sign in
join
게시판 본문 ASP, ASP.NET, IIS & Script - Read Only 
| re: 전통적인 ASP 환경에서 작업하는 경우 |
|---|
|
작성자: 송원석
작성일시: 2005-09-28 21:49,
조회수: 7,271
|
|
이 경우에는 다음의 함수를 사용하시면 됩니다. 제가 직접 작성한 함수는 아니고 예전에 구글에서 발견해서 정리해 놓았던 코드입니다. 원본의 출처는 기억이 잘 나지 않는군요. 참고하시기 바랍니다.
Public Function SaveWebBinary(strUrl, strFile)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Const ForWriting = 2
Dim web, varByteArray, strData, strBuffer, lngCounter, ado
On Error Resume Next
Err.Clear
Set web = Nothing
Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
If web Is Nothing Then Set web = CreateObject("WinHttp.WinHttpRequest")
If web Is Nothing Then Set web = CreateObject("MSXML2.ServerXMLHTTP")
If web Is Nothing Then Set web = CreateObject("Microsoft.XMLHTTP")
web.Open "GET", strURL, False
web.Send
If Err.Number <> 0 Then
SaveWebBinary = False
Set web = Nothing
Exit Function
End If
If web.Status <> "200" Then
SaveWebBinary = False
Set web = Nothing
Exit Function
End If
varByteArray = web.ResponseBody
Set web = Nothing
Set ado = Nothing
Set ado = CreateObject("ADODB.Stream")
If ado Is Nothing Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(strFile, ForWriting, True)
strData = ""
strBuffer = ""
For lngCounter = 0 to UBound(varByteArray)
ts.Write Chr(255 And Ascb(Midb(varByteArray, lngCounter + 1, 1)))
Next
ts.Close
Else
ado.Type = adTypeBinary
ado.Open
ado.Write varByteArray
ado.SaveToFile strFile, adSaveCreateOverWrite
ado.Close
End If
SaveWebBinary = True
End Function
코드가 무척 흥미롭다는 것을 알 수 있으실 것입니다. ^_^감사합니다. |
|
IP 주소: 211.226.151.37
|
|
송원석 |
다음의 사이트가 원본 코드의 출처입니다. 겨우 찾았네요. 또 다른 흥미로운 코드들을 많이 발견하실 수 있으실 것입니다.
|
2005-09-28 21:58 |
|
송원석 |
2005-09-28 21:59 |
|
게시물 | |||
|---|---|---|---|---|
| 1,332 | 2005-11-01 | 7,065 | ||
| 1,331 |
궁금이 |
2005-10-31 | 1,517 | |
| 1,330 | 2005-10-31 | 3,900 | ||
| 1,329 |
궁금이 |
2005-10-31 | 2,829 | |
| 1,328 | 2005-10-31 | 4,512 | ||
| 1,327 |
영이 |
2005-10-25 | 1,691 | |
| 1,326 | 2005-10-25 | 3,951 | ||
| 1,325 |
궁금이 |
2005-10-18 | 1,707 | |
| 1,324 | 2005-10-19 | 4,053 | ||
| 1,323 |
김수민 |
2005-10-17 | 2,995 | |
| 1,322 | 2005-10-18 | 4,604 | ||
| 1,321 |
김수민 |
2005-10-18 | 2,024 | |
| 1,320 | 2005-10-19 | 4,115 | ||
| 1,319 |
정규식 표현 질문.... [1] |
영이 |
2005-10-05 | 1,438 |
| 1,318 | 2005-10-06 | 4,265 | ||
| 1,317 |
영이 |
2005-10-06 | 1,289 | |
| 1,316 |
영이 |
2005-09-30 | 1,519 | |
| 1,315 | 2005-09-30 | 4,639 | ||
| 1,314 |
영이 |
2005-09-30 | 1,311 | |
| 1,313 |
파일 큐브 질문입니다. [1] |
궁금이 |
2005-09-28 | 1,222 |
| 1,312 |
훈스 |
2005-09-28 | 1,283 | |
| 1,311 | 2005-09-28 | 4,120 | ||
 |
2005-09-28 | 7,271 | ||
| 1,309 |
궁금이 |
2005-09-28 | 1,241 | |
| 1,308 | 2005-09-28 | 3,909 |
re: XSS (Cross Site Scripting)
확인
취소