|
|
 |
|
마르스 / 2002-04-01 / 오후 5:15:56 / 210.221.61.104
조회수 : 141
|
| [질문] 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
' 인스턴스를 소멸......
%> |
|
|
|