|
|
|
|
 |
|
문희철 / 2000-06-20 / 오후 5:45:26 / 211.51.20.144
조회수 : 117
|
| [질문] 이미지를 추가했는데,데이터에 저장이 되지 않아요 |
안녕하세요 ?
얼마나 됐다고 또 다시 이렇게 글을 남기게 되네요.
제가 정말로 알고 싶은 것은 데이터에 이미지를 남기고 싶어서 입니다.물론 웹상에서 뿌려지는 것은 당연하고요.
물론 데이터에 직접 들어가면 데이터가 힘겨울수 있으니까,images라는 폴더에 이미지를 저장시키고 db엔 그 경로만 지정하는 방법을 사용하려고 했거든요.
그런데 이지 입력이 되지 않는것 같은데요
해결 방법 좀알고 싶습니다..
이렇게 했거든요.우선 입력 모드에서
input type="file" size="40" maxlength="250" name="images"
이런식으로 받았구요..
그 다음에 넘기는 부분에서는 이렇게 했거든요
<%
'request 개체를 통해 넘어온 값들을 변수에 저장한다.
name = request("name")
email = request("email")
url = request("url") '홈페이지
title = request("title")
company = request("company")
shipment = request("shipment")
desired = request("desired")
country = request("country")
vdate = request("vdate")
mcode = request("mcode")
pregident = request("pregident")
depart = request("depart")
addre = request("addre")
tel = request("tel")
fax = request("fax")
images = request("images")
pwd = request("pwd")
content = request("content")
set db = server.CreateObject("ADODB.Connection")
'데이터베이스 연결을 위한 Connetion개체의 인스턴스를 생성한다.
db.Open("sell")
'db open(DNS)DNS연결
SQL = "Select MAX(num) as maxnum from myboard"
'데이터 쿼리문
set rs = Server.CreateObject("ADODB.Recordset")
'레코드셋 인스턴스 생성
rs.Open SQL,db
'지정한 쿼리로 db연결....레코드셋 개체 결과 db저장
If rs("maxnum")="" Then
number = 1
else
number = rs("maxnum") + 1
End If
SQL = "INSERT INTO myboard(name,email,url,title,company,shipment,desired,country,vdate,
mcode,pregident,depart,addre,tel,fax,images,content,"
SQL = SQL & " readnum,writeday,pwd)VALUES "
SQL = SQL & "('" & name & "'"
SQL = SQL & ",'" & email & "'"
SQL = SQL & ",'" & url & "'"
SQL = SQL & ",'" & title & "'"
SQL = SQL & ",'" & company & "'"
SQL = SQL & ",'" & shipment & "'"
SQL = SQL & ",'" & desired & "'"
SQL = SQL & ",'" & country & "'"
SQL = SQL & ",'" & vdate & "'"
SQL = SQL & ",'" & mcode & "'"
SQL = SQL & ",'" & pregident & "'"
SQL = SQL & ",'" & depart & "'"
SQL = SQL & ",'" & addre & "'"
SQL = SQL & ",'" & tel & "'"
SQL = SQL & ",'" & fax & "'"
SQL = SQL & ",'" & images & "'"
SQL = SQL & ",'" & content & "'"
SQL = SQl & ",0,'" & now() & "'"
SQL = SQL & ",'" & pwd & "')"
db.execute SQL '데이터베이스에insert쿼리를 보내 새로운 데이터 입력
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Response.redirect "list.asp"
%>
다른 것과 마찬가지로 이렇게 했거든요.그리고 디비는 텍스트로 했습니다.아직 이런것은 경험이 부족해서리 말입니다...조언 부탁드립니다.
response.write.sql해보니까, 이런 결과가 나오던데
넘겨지긴 하는데 이미지는 나오지 않고/기호만 나오네요 |
|
|
|