|
|
 |
|
신순유 / 2001-06-28 / 오전 9:56:32 / 211.248.15.56
조회수 : 130
|
| [질문] 앗.. 자료는 업이 되는데? |
안녕하세요..?
머좀 물어보려고 하는데요...써도될지..
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에 저장이 안됩니다.
|
|
|
|