|
|
|
|
 |
|
문희철 / 2000-06-21 / 오후 4:46:01 / 211.51.20.144
조회수 : 162
|
| [질문] 자료업로드 에러 좀 봐주세요...이건 정말 중요한건데요 |
채영님 죄송하지만 이것 좀 봐주세요...현재 문장의 끝이 없다고 에러 메세지가 뜨는데,아무리 봐도 찾을수가 없군요....
이곳의 표현이 맞는지도 모르면서 그저 다른 분의 소스를 참고로 해서 만들었거든요....그래서 더 힘들구요.업로드는 첨이라서,꼭 좀 부탁합니다.그리고 이곳 말고요 입력하는 그러니까,아래 소스는 입력 받은것을 넘기는 것인데,혹시 입력 폼에서도 특별히 유의할것이 있으면 알켜주시면 감사하겠습니다.
<%
set db = server.CreateObject("ADODB.Connection")
'데이터베이스 연결을 위한 Connetion개체의 인스턴스를 생성한다.
db.Open("sell")
'db open(DNS)DNS연결
SQL = "Select MAX(num) as maxnum from myboard"
'데이터 쿼리문
set rs = Server.CreateObject("ADODB.Recordset")
'레코드셋 인스턴스 생성
rs.Open SQL,db
'지정한 쿼리로 db연결....레코드셋 개체 결과 db저장
If rs("maxnum")="" Then
number = 1
else
number = rs("maxnum") + 1
End If
Set Uploadform = Server.CreateObkect("SiteGalaxyUpload.Form") '파일 업로드 컴포넌트 생성
'request 개체를 통해 넘어온 값들을 변수에 저장한다.이곳에서는 이미지 업로드땜시 생략
'brandname = request("brandname")
'product = request("product")
'short = request("short")
'mcode = request("mcode")
'country = request("country")
'content = request("content")
'filename = request("filename")
'filesize = request("filesize")
'company = request("company")
'contactperson = request("contactperson")
'addre = request("addre")
'tel = request("tel")
'fax = request("fax")
'email = request("email")
'url = request("url")
'payment = request("payment")
'packing = request("packing")
'fob = request("fob")
'markets = request("markets")
'pwd = request("pwd")
'이곳에서 부터 업로드(사이트갤럭시)가 시작된다....
if isnull(cf("img")) = false or cf("img")<> "" then
response.write "![]("&cf("img")&") "
end if
if UploadForm("index") = "write" then
' 이곳에서부터 입력폼에서 각각의 테이블 값을 가져온다.
brandname = UploadForm("brandname")
product = UploadForm("product")
short = UploadForm("short")
mcode = UploadForm("mcode")
country = UploadForm("country")
content = UploadForm("content")
company = Uploadform("company")
contactperson = UploadForm("contactperson")
addre = UploadForm("addre")
tel = UploadForm("tel")
fax = UploadForm("fax")
email = UploadForm("email")
url = trim(UploadForm("url"))
if url="http://" then
url=""
end if
payment = UploadForm("payment")
packing = UploadForm("packing")
fob = UploadForm("fob")
markets = UploadForm("markets")
pwd = UploadForm("pwd")
upfile=UploadForm("upfile")
subject=Replace("subject","'","''")
subject=trim(subject)
content=Replace("content","'","''")
content=trim(content)
'업로드 화일 있을때 처리
if Len(upfile) > 0 then
filesize=UploadForm("upfile").size
maxsize=Cint(cf("limitfile")) * 1024
if filesize > maxsize then '파일의 크기를 체크하여 관리자가 설정한 크기보다 크면 에러처리
cf.close
Set cd=nothing
fc.close
Set fc=nothing
db.close
Set db=nothing
end if
set fc = CreateObject("scripting.FileSystemObject")
storedir = Server.mappath(",")&"/images/" '업로드한 이미지 파일 저장 폴더 경로
attach_filed=UploadForm("upfile").filepath
filename = mid(attach_file,instrrev(attach_file,"\")+1)
'경로명을 제외한 화일명 축출
strname=mid(filename, 1, instrrev(filename,".")-1)
'화일명에서 이름과 확장자 분리--------
strext=mid(filename,instrrev(filename,".")+1)
strfilename=storedir & filename
fexit = true
count=0
do while fexist '파일이 중복될 경우 이름을 다시 지정 - 파일 이름 뒤에 숫자를 붙여서 업로드
if(fc.fileexists(strfilename)) then
count=count+1
filename=strname&"-"&count&"."&strext
strfilename=storedir & filename
else
fexist=false
end if
loop
UploadForm("upfile").saveas strfilename
'콤퍼넌트에 의해 실제 화일을 업로드
end if
'일련 번호를 붙임
sqlRead="SELECT max(board_idx) FROM "&id
Set rs=db.Execute(sqlRead)
if IsNull(rs(0)) then
maxboard_idx=1
else
maxboard_idx=Cint(rs(0))+1
end if
rs.close
Set rs=nothing
'업로드 화일이 없을때 적절한 값으로 대체
if upfile = "" then
filesize=0
filename=""
end if
if cf("db")="access" then
indate="getdate()"
end if
'등록된 글을 db에 삽입
sqlInsert="INSERT INTO "&id&" values ("&maxboard_idx&","&writeday&","&brandname&",&product&","&short&","&mcode&","&country&","&content&","&filename&","&filesize&","&company&","&contactperson&","&addre&","&tel&","&fax&","&url&","&payment&","&packing&","&fob&","&markets&","&pwd&")"
=======위 insert부분의 끝이 종결되지 않았다는 메세지임다.======
'response.write sql 'response test
db.execute(sqlInsert)
end if
cf.close
Set cf=nothing
fc.close
Set fc=nothing
db.close
set db=nothing
%>
|
|
|
|