데이터베이스에 사진을 쉽게 업로드하십시오
나는 오랫동안 프로그램을 직접 작성하는 것에 대해 생각해 왔지만, 나에 대해 쓰고 싶지 않기 때문에 오늘 시간이 있었기 때문에이 작은 프로그램을 작성한 후에는 쉽게 알기가 쉽습니다. 많이 말하지 않으므로 여기서 시작하겠습니다.
업로드합시다. 데이터베이스의 필드는 ID에 의해 자동으로 번호가 매겨집니다. 큰 필드 유형은 OLE입니다. 헤헤, 그것은 단순한 필드입니다.
uppic.asp 프로그램 이름 업로드
<%
희미한
Dimformsize, FormData, Bncrlf, Divider, DataStart, DataEnd, MyData
formsize = request.totalBytes '클라이언트가 보낸 크기를 얻습니다
formData = request.binaryread (formsize) '고객이 보낸 데이터를 이진 프로덕션으로 변환
bncrlf = chrb (13) & chrb (10)
divider = leftb (formdata, clng (instrb (formdata, bncrlf)) -1)
DataStart = instrb (FormData, Bncrlf & Bncrlf) +4
dataend = instrb (datastart+1, formdata, divider) -datastart
MyData = MIDB (FormData, DataStart, DataEnd) '위는 전체 이미지의 이진 데이터를 얻는 것입니다.
%>
<!-#includefile = "conn.asp"->
<%
SQL = "선택*FromPicorderByIddesc"
setrs = server.createobject ( "adodb.recordset")
Rs.Opensql, Conn, 3,2
rs.addnew
rs ( "big"). AppendChunkMyData '는 데이터베이스에 추가되었습니다
Rs.update
setrs = 아무것도
setconn = 아무것도 없습니다
%>
다음은 그림을 표시하는 것입니다
display.asp
<!!
<%
id = request ( "id")
setrs = server.createobject ( "adodb.recordset")
sql = "select*frompicwhowsid ="& id
Rs.Opensql, Conn, 1,1
응답 .ContentType = "Text/Html" '는 그림을 표시하는 형식을 사용할 수도 있습니다.
'response.contentType = "image/gif"는 GIF로 표시됩니다
'response.contentType = "image/jpg"는 JPG에 표시됩니다
Response.binarywriters ( "big") '이미지 표시
Rs.Close
setrs = 아무것도
setconngraph = 아무것도
%>