| 일 | 월 | 화 | 수 | 목 | 금 | 토 |
|---|---|---|---|---|---|---|
| 1 | 2 | 3 | 4 | 5 | 6 | 7 |
| 8 | 9 | 10 | 11 | 12 | 13 | 14 |
| 15 | 16 | 17 | 18 | 19 | 20 | 21 |
| 22 | 23 | 24 | 25 | 26 | 27 | 28 |
| 29 | 30 | 31 |
- FileSystemObject
- asp함수
- ERD
- MSSQL보안
- 이미지가로길이
- xmldom
- inner join
- update
- SPLIT
- instr
- 한글입력체크
- XML
- tempDB
- sql순위
- 이미지세로길이
- jdbc driver
- join
- 정규식
- sql업데이트
- WML
- wap
- JavaScript
- VARIABLE
- 자바기초
- sql랭킹
- injection
- javascript 한글입력체크
- array
- VarType
- 인젝션
- Today
- Total
3초기억력
ASP - 오라클 BLOB type 에 외부 URL 이미지의 Binary 를 insert 하고, view 하는 소스 본문
제목 : 오라클 BLOB type 에 외부 URL 이미지의 Binary 를 insert 하고, view 하는 소스
1. form 파일 : form.asp
<HTML>
<BODY>
<FORM NAME="writeform" METHOD="post" ACTION="process.asp">
<INPUT TYPE="text" NAME="id" /><BR>
<INPUT TYPE="text" NAME="url" /><BR>
<INPUT TYPE="submit" VALUE="upload" />
</FORM>
</BODY>
</HTML>
2. process.asp
<%
'외부 경로의 이미지 binary 가져오는 함수
function BinaryGetURL(URL)
Dim Http
'방법은 아래의 것 중 알아서 선택
'Set Http = CreateObject("Microsoft.XMLHTTP")
'Set Http = CreateObject("MSXML2.ServerXMLHTTP")
Set Http = CreateObject("WinHttp.WinHttpRequest.5.1")
'Set Http = CreateObject("WinHttp.WinHttpRequest")
Http.Open "GET", URL, False
Http.Send
BinaryGetURL = Http.ResponseBody
End Function
'외부 경로의 파일의 확장자 추출 ( 컨텐츠 타입 추출 하기 위함 )
Function GetFileExt(str)
Dim filepath, fileext
filePath = str
fileExt = Mid(filePath, InStrRev(filePath, ".") + 1)
GetFileExt = fileExt
End Function
Dim id, url, ContentTypePre, binaryImage
id = request("id")
url = request("url")
binaryImage = BinaryGetURL(url)
ContentTypePre = "image/"
Dim conn, rs, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=OraOLEDB.Oracle.1;Password=test;Persist Security Info=True;User ID=test;Data Source=test"
sql = "insert into test_img (id, img, photo_type) values ('"& id &"', empty_blob(), '"& ContentTypePre & GetFileExt(url) &"')"
response.write sql & "<br>"
conn.execute(sql)
sql = "select img from TEST_IMG where id='"& id &"'"
response.write sql & "<br>"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
rs.fields("img").appendChunk(binaryImage)
rs.Update
rs.Close
Set rs = Nothing
%>
<a href="view.asp?id=<%=id%>">확인하러 가기 (<%=id%>)</a>
3. view.asp
<%
Dim id
id = request("id")
Dim conn, rs, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=OraOLEDB.Oracle.1;Password=test;Persist Security Info=True;User ID=test;Data Source=test"
sql = "select * from TEST_IMG where id='"& id &"'"
Set rs = conn.execute(sql)
If Not rs.eof Then
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = rs("photo_type")
Response.BinaryWrite rs("img")
Else
response.write "데이타 없음<br>"
End If
%>
오라클 BLOB type 에 이미지를 저장 후 페이지에서 보여주기 인데, 특이한건, 외부 URL 에서 이미지를 가져와서 처리하는 법
출처 :
'플밍_ASP' 카테고리의 다른 글
| ASP - html 중 img 태그 내부 속성값만 가져오기 (0) | 2011.04.15 |
|---|---|
| ASP - 정규식을 이용한 html 중 img 태그만 추출 (0) | 2011.04.15 |
| ASP - ASP, Upload컴포넌트 활용. 오라클 insert, select 하는 법 (0) | 2011.04.15 |
| ASP - 이미지 URL경로의 BinaryWrite 하기 (1) | 2011.04.15 |
| ASP Function - 시작문자, 끝문자 사이의 문자열 추출하기 (0) | 2011.04.13 |