|
|
 |
|
浩然之氣 / 2002-05-06 / 오전 10:33:15 / 203.255.3.190
조회수 : 187
|
| [질문] 긴급 도와주세요... 에러가...x); |
> 오류 형식:
> Microsoft VBScript 런타임 오류 (0x800A01B6)
> 개체가 이 속성 또는 메서드를 지원하지 않습니다.: 'open'
> /user/support/data/data_03.asp, line 11
>
>
> 브라우저 형식:
> Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0)
>
> 페이지:
> POST 35893 bytes to /user/support/data/data_03.asp
>
> POST Data:
> error '80020009'
> 예외 오류가 발생했습니다.
>
> -소스-
>
> <!-- #include file = ../../include_top.htm -->
> <!-- #include file = ../include_support.htm -->
> <!-- #include file = ../../../inc/dbopen.asp -->
> <!-- #include file= ../../../inc/conv.asp -->
>
> <%
> writeday = now()
> ip = request.servervariables("remote_addr")
>
> set xup = server.createobject("updownexpress.fileupload")
> xup.open
>
> email = xup.items("email")
> email = trim(replace(email,"'","''"))
>
> home = xup.items("home")
> home = trim(replace(home,"'","''"))
>
> title = xup.items("title")
> title = trim(replace(title,"'","''"))
> if title = "" then
> session("message") = "제목을 입력해 주십시오."
> response.redirect "../message.asp"
> end if
>
> content = xup.items("content")
> content = trim(content)
> if content = "" then
> session("message") = "내용을 입력해 주십시오."
> response.redirect "../message.asp"
> end if
>
> pwd = xup.items("pwd")
> pwd = trim(pwd)
> if pwd = "" then
> session("message") = "비밀번호를 입력해 주십시오."
> response.redirect = "../message.asp"
> end if
>
> if xup.isitem("h_check") = 1 then
> h_check = xup.items("h_check")
> end if
>
> if h_check <> "1" then
> h_check = "2"
> end if
>
> if h_check = "1" then
> content = checkword(content)
> else
> content = checkword1(content)
> end if
>
> filename=""
> for each xattach in xup.attachments
> filename = xattach.filename
> xattach.savefile "./down/" & filename
> next
>
> xup.close
> set xup = nothing
>
>
> sql = "select max(no) from databoard01"
>
> set rs = server.createobject("adodb.recordset")
> rs.open sql, dbcon2
>
> if isnull(rs(0)) then
> number = 1
> else
> number = rs(0) + 1
> end if
>
> rs.close
> set rs = nothing
>
> ref = number
> re_step = 0
> re_level = 0
>
> if filename = "" then
> sql = "insert into databoard01 (no, id, name, email, home, title, content, h_check, pwd, writeday, readnum, ip, ref, re_step, re_level) values"
> sql = sql & "("&number&""
> sql = sql & ",'"&session("id")&"'"
> sql = sql & ",'"&session("name")&"'"
> sql = sql & ",'"&email&"'"
> sql = sql & ",'"&home&"'"
> sql = sql & ",'"&title&"'"
> sql = sql & ",'"&content&"'"
> sql = sql & ",'"&h_check&"'"
> sql = sql & ",'"&pwd&"'"
> sql = sql & ",'"&writeday&"'"
> sql = sql & ", 0 "
> sql = sql & ",'"&ip&"'"
> sql = sql & ",'"&ref&"'"
> sql = sql & ",'"&re_step&"'"
> sql = sql & ",'"&re_level&"')"
>
> else
> sql = "insert into databoard01 (no, id, name, email, home, title, content, up_file, h_check, pwd, writeday, readnum, ip, ref, re_step, re_level) values"
> sql = sql & "("&number&""
> sql = sql & ",'"&session("id")&"'"
> sql = sql & ",'"&session("name")&"'"
> sql = sql & ",'"&email&"'"
> sql = sql & ",'"&home&"'"
> sql = sql & ",'"&title&"'"
> sql = sql & ",'"&content&"'"
> sql = sql & ",'"&filename&"'"
> sql = sql & ",'"&h_check&"'"
> sql = sql & ",'"&pwd&"'"
> sql = sql & ",'"&writeday&"'"
> sql = sql & ", 0 "
> sql = sql & ",'"&ip&"'"
> sql = sql & ",'"&ref&"'"
> sql = sql & ",'"&re_step&"'"
> sql = sql & ",'"&re_level&"')"
>
> end if
>
> dbcon2.execute(sql)
>
> dbcon2.close
> set dbcon2= nothing
>
> response.redirect "data_01.asp"
>
> %>
>
-----------------------------------------------------------
예외오류란 사실 원인을 찾기가 어렵습니다.
컴포넌트에 문제가 있는지 아닌지 알아 보기 위해서요...
일단 xup.open 이후의 모든 소스를 다 지우고 실행을 해 보세요...
그리고 제가 테스트 해 본 결과 updownexpress 컴포넌트가 시스템에 영향을 많이 받는것 같더군요...
가끔씩 에러를 발생하더라구요....
다른 컴포넌트를 고려해 보는것도 좋은 해결책일듯 합니다.
|
|
|
|