|
|
 |
|
초보 / 2002-05-04 / 오후 2:59:20 / 203.241.168.34
조회수 : 188
|
| [질문] 긴급 도와주세요... 에러가...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"
%>
|
|
|
|