|
|
 |
|
浩然之氣 / 2002-04-01 / 오후 7:49:45 / 203.255.3.190
조회수 : 145
|
| [질문] DB에 입력이 안되네요..후..< |
> 오류는 해결했어요.. 그런데 write.asp(글올리는페이지)에서 값이 안넘어와요.
>
> write_test.asp 소스 :
>
> <%
> set UploadForm = server.CreateObject("SiteGalaxyUpload.Form")
>
> subject = UploadForm("subject") !!!!!!!!!! <- 여기에서 uploadform("subject") 대신
> 그냥 subject = " 테스트 " 이렇게 하면 값이 입력되요.
> 그러니까 값을 입력하는 이 페이지의 소스엔 문제가 없는 것 같은데 왜 값이 안넘어오죠.
> 당연히 write.asp에서
> <form action="write_test.asp" method="POST" onsubmit=" return CheckForm()" name=regform ENCTYPE="MULTIPART/FORM-DATA"> 로 값을 넘기는 부분도 정상인데요.
>
> 왜 값이 안 넘어오는거죠.. 단지 write_test에서 입력한 visited, size, reg_date 만 입력이 되네요.
> 그러니까 입력된 값을 보여주는 목록페이지에 보면 visited와 reg_date만
> 게시가 되네요......저 이제 숨이 넘어갈것만 같아요....
>
> 어떻게 해야 되나여........
> 값을 입력하는것에 문제가 없는듯해요. 그러니까 넘어온 값이 없어서 그런것 같은데 소스상단처럼 값을 받아서 변수에
> 저장을 했는데 왜 저장이 안되는건지...
> response.write로 한번 출력해 봤더니 저렇게 나오는데요..
>
> **************************** response문 *********************88
> INSERT INTO pds0 ( Subject, Writer, Email, pdsFile, FileSize, Homepage, Content, Reg_Date, Visited, Passwd, Html) VALUES ('','','','','0','','', GetDate() ,0,'',0)
> 응답 개체 error 'ASP 0156 : 80004005'
>
> 헤더 오류
>
> /made_pds/write_test.asp, line 113
>
> ** line 113 : Response.redirect "list.asp?db=" & db
>
>
> 클라이언트 브라우저에 HTTP 헤더가 이미 쓰여 있습니다. HTTP 헤더는 페이지 컨텐트를 쓰기 전에만 수정해야 합니다.
> ************************************ 끝 ********************************
>
> db = uploadform("db")
> writer = uploadform("writer")
> email = UploadForm("email")
> homepage = UploadForm("homepage")
>
> passwd = UploadForm("passwd")
> content = UploadForm("content")
> pdsfile = UploadForm("pdsfile")
> visited = 0
> html = uploadform("html")
>
> if html = "on" then
> html = 1
> else
> html = 0
> end if
>
> subject = replace(subject,"'","'")
> content=replace(content,"'","'")
>
>
> '**********************************************************
> ' Upload File 이 있을때의 처리
> '**********************************************************
>
> if len(pdsfile) > 0 then '파일의 이름이 존재할경우.....
> filesize=UploadForm("pdsfile").size '파일의 크기를 저장
> maxsize=Cint(20) * 1024
>
> set fc = createobject("Scripting.FileSystemObject") 'fs 라는 인스턴스를 생성
>
> storedir = server.MapPath (".\") & "\pds\" '파일이 저장될 절대경로를 설정
> 'ex) storedir = "c:\pdsdata\"
> attach_file=UploadForm("pdsfile").filepath '파일이 저장될 경로를 지정
> pdsfile=mid(attach_file, instrrev(attach_file,"\")+1) '경로명을 제외한 파일명을 추출
> strname=mid(pdsfile, 1, instrrev(pdsfile, ".")-1) ' file 명에서 이름과 확장자를 분리
> strext=mid(pdsfile, instrrev(pdsfile, ".")+1) '확장자를얻는다
>
> strfilename = storedir & pdsfile ' 저장할 이름의 전체 path를 만듭니다. ex) c:\inetpub\upload\write.asp
>
> fexist = true
> count = 0
>
> do while fexist ' 파일이 중복될경우 이름을 다시 지정 - 파일이름 뒤에 숫자를 붙여서 업로드
> if(fc.FileExists(strfilename)) then
> count = count+1 '파일이름에 숫자를 붙인 새로운 파일 이름 생성
> pdsfile = strname & "-" & count & "." & strext
> strfilename=storedir & pdsfile
> else
> fexist = false
> end if
>
> loop
> UploadForm("pdsfile").saveas strfilename ' 콤포넌트에 의해 실제 파일을 업로드
> end if
>
> '****************************************************
> ' Upload 할 파일이 없을때 적절한 값으로 대체
> '****************************************************
> if pdsfile = "" then
> filesize = 0
> pdsfile = ""
> end if
>
> '*****************************************************
> ' file size변환
> '*****************************************************
>
> temp = clng(filesize)
> if temp > 1024 then '1024byte(1kbyte) 보다 크면
> temp = temp / 1024
> filesize = cstr(cint(temp)) & "k"
> end if
>
> set dbcon = server.createobject("adodb.connection")
> with dbcon
> .provider="sqloledb"
> .connectionstring="server=(local);database=made;uid=made;pwd=made;"
> .connectiontimeout=10
> .open
> end with
>
> sql = " INSERT INTO " & db & " ( Subject, Writer, Email, pdsFile, FileSize, Homepage, Content, Reg_Date, "
> sql = sql & " Visited, Passwd, Html) VALUES "
> sql = sql & "('" & subject & "'"
> sql = sql & ",'" & Writer & "'"
> sql = sql & ",'" & Email & "'"
> sql = sql & ",'" & pdsfile & "'"
> sql = sql & ",'" & fileSize & "'"
> sql = sql & ",'" & Homepage & "'"
> sql = sql & ",'" & Content & "', GetDate() ," & Visited
> sql = sql & ",'" & Passwd & "'"
> sql = sql & "," & Html & ")"
>
> dbcon.execute sql
>
> ' 데이터베이스 연결 끊기
>
> dbcon.Close
> Set dbcon = Nothing
> set FSO = Nothing
> set UploadForm = nothing
>
> Response.redirect "list.asp?db=" & db
> ' 인스턴스를 소멸......
> %>
-----------------------------------------------------------
write_test.asp가 아무런 문제가 없다면
문제는 당연히 write.asp 이겠지요...
write.asp에서 input 데이터의 이름이 제대로 매치 되었는지 살펴 보세요.... |
|
|
|