|
|
 |
|
채영이 / 2001-06-28 / 오후 3:26:15 / 203.255.3.190
조회수 : 139
|
| [질문] 앗.. 자료는 업이 되는데? |
> 안녕하세요..?
>
> 머좀 물어보려고 하는데요...써도될지..
>
> site galaxy를깔고..제가 게시판을 만들다가 자료실로 개편을 하는 중입니다.그런데..
>
> 자료업로드를 하면...자료는 자료대로 저장이 됩니다.
> 문제는.. 엑세스를 사용하는데 엑세스 db에 저장이 안된다는겁니다.
>
> 엑세스 db에 저장이 안되니..글을 쓸 수가 있어야 말이죠..
> 쏘스를 올려드릴테니..한번 보시고.. 가르쳐 주세요..
>
> 그리고...자료의 용량 제한은 어떻게 해얄지요.?
> rs_up_size 의 용량계산이 안되서 0으로 처리를했습니다.
>
> 미리 감사드립니다.
>
> <!--#include virtual='dbopen.inc'-->
> <!--#include virtual='board_setting.inc'-->
> <%
> response.expires = 0
> response.buffer = true
> ON ERROR RESUME NEXT
>
> SET uploadform = server.createobject("sitegalaxyupload.form")
> rs_id = uploadform("id")
> rs_user = uploadform("user")
> rs_passwd = uploadform("passwd")
> rs_email = uploadform("email")
> rs_homepage = uploadform("homepage")
> rs_mailreceive = uploadform("mailreceive")
> rs_html = uploadform("html")
> rs_header = uploadform("header")
> rs_title = uploadform("title")
> rs_content = uploadform("content")
> rs_up_name = uploadform("up_name")
> rs_up_size = uploadform("up_size")
> rs_up_desc = uploadform("up_desc")
> rs_ipaddr = uploadform.Servervariables("remote_host")
> rs_up_name = uploadform("up_name")
> rs_up_desc = uploadform("up_desc")
> rs_up_size = 0
> rs_up_path = server.mappath(".")& "/file_up/"
> rs_up_name = mid(rs_up_name,instrrev(rs_up_name , "\" ) + 1 )
> uploadform("up_name").SaveAs rs_up_path & rs_up_name
>
> ' 요부분이 뭔지 모르겠어요... 이부분을 실행하면 에러가 있다고 그래서 실행 안하고
> '주석으로 처리했습니다.
> ' IF Err THEN
> ' response.write err.number & "<br>" & err.source & "<br>" & err.description
> ' set uploadform = nothing
> ' 'response.end
> ' END IF
>
> SET uploadform = nothing
> %>
> <!--#include virtual='writecontrol.inc'-->
> <%
> IF rs_mailreceive = "on" THEN
> rs_mailreceive = 1
> ELSE
> rs_mailreceive = 0
> END IF
> IF rs_html = "on" THEN
> rs_html = 1
> ELSE
> rs_html = 0
> END IF
>
> sql = "SELECT id FROM " & bd_id & " ORDER BY id DESC"
> rs.pagesize = 1
> rs.open sql,db,1
>
> IF rs.eof then ' 기존의 글이 한개도 없다면?
> maxid = 1 ' 첫번째 글
> else ' 기존의 글이 있다면 그 글은 가장 번호가 높은수이다.
> maxid = rs("id") + 1 ' 글번호 = 글번호 + 1
> end if ' 글번호 추가 끝
> rs.close
>
> IF rs_id = "" THEN '만약 받아온게 없다면.... 새글이므로
> no = maxid
> no1 = maxid '받아온게 없으므로 글번호(모글)의 번호
> no2 = 0 '리플의 순서
> no3 = 0 '예비용.?
> ELSE '리플인경우라면? 여기서 리플의 순서를 파악하고 다시 순서를 교체해야 한다.
> no1 = rs_id '모글번호는 받은값.
> sql = "SELECT no1,no2,no3 FROM " & bd_id & " WHERE id = " & rs_id '모글의 데이터를 가지고 옴
> rs.open sql,db,1
> no = rs_id
> no1 = cint(rs("no1"))
> no2 = cint(rs("no2"))
> no3 = cint(rs("no3"))
> rs.close
>
> sql = "UPDATE " & bd_id & " SET no2 = no2 + 1 WHERE no1 = " & no1 & " and no2 > " & no2
> response.write sql & "<br>"
> db.execute sql
>
> no2 = no2 + 1
> no3 = no3 + 1
> END IF
>
> sql = "INSERT INTO " & bd_id & " ( id , no , no1 , no2 , no3 , user , passwd , email , homepage , ipaddr , count , wdate , "
> sql = sql & " header , title , content , up_name , up_size , up_desc , etc , mailreceive , html ) VALUES "
> sql = sql & "(" & maxid & "," & no & "," & no1 & "," & no2 & "," & no3 & ",'" & rs_user
> sql = sql & "','" & rs_passwd & "','" & rs_email & "','" & rs_homepage & "','" & rs_ipaddr
> sql = sql & "'," & 0 & ",'" & now() & "','" & rs_header & "','" & rs_title & "','" & rs_content
> sql = sql & "','" & rs_up_name & "'," & rs_up_size & ",'" & rs_up_desc & "','" & rs_etc & "'," & rs_mailreceive
> sql = sql & "," & rs_html & ")"
>
> response.write sql
>
> db.execute sql
>
> 'sql 을 찍어봐도 sql구문은 이상이 없는데 ... db에 저장이 안됩니다.
>
-----------------------------------------------------------
현재 소스상에서는 별 문제가 안 보이는데요....
bd_id 값을 받아오는 부분이 보이진 않지만....
sql 문을 찍어 봤을때 문제가 없었다고 하셨으니... 그건 아닐테고....
ON ERROR RESUME NEXT를 빼고 한번 해 보시죠...
에러가 나는지 않나는지 살펴 보게요...
만약 에러가 안 난다면.... execute가 안 된다는거닌까..
혹시 if 문 같은거 살펴 보시구요...
파일 사이즈는 아래와 같이 얻으실 수 있습니다.
P_FileSize=UploadForm("업로드파일폼이름").Size
그럼....
|
|
|
|