|
|
 |
|
문희철 / 2000-06-26 / 오후 2:39:14 / 211.51.20.144
조회수 : 118
|
| [질문] 업로드 입력값이 넘어오지 않네요 |
정말 죄송...매일 질문만 드리는군요...
다름이 아니라 아래 부분의 문제는 해결했습니다.그런데 가장 중요한 화일 업로드가 되지 않는군요.혹시 문법 상의 잘못이 있는것은 아닌지 해서요.
사이트갤럭시를 사용하려고요...
입력값이 하나도 저장이 되지 않고 있씁니다.
혹시 잘못된 구문이라도 사용하것인지.....
Response.Buffer=true
Response.Expires=0
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=sell;UID=;PWD="
SQL1 = "SELECT MAX(num) as m FROM myboard" '======>의심가는 부분
Set rs = Conn.Execute( SQL1 )
'글의 고유번호를 구한다.
if rs("m") <> 0 then
no = rs("m")+1
else
no = 1
end if
set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form") '업로드용 객체를 생성한다.
upddate=year(now())&"-"&month(now())&"-"&day(now()) '현재날짜를 구한다.
brandname = UploadForm("brandname") '모든 폼의 request된 값을 이런 식으로 받는다.
brandname = Replace(brandname,"'","''")
brandname = replace(brandname,"<","< ")
product = UploadForm("product") 'product
product = Replace(product,"'","''")
product = replace(product,"<","< ")
short = UploadForm("short") 'short product description
short = Replace(short,"'","''")
short = replace(short,"<","< ")
mcode = UploadForm("mcode") 'mscode
mcode = Replace(mcode,"'","''")
mcode = replace(mcode,"<","< ")
country = UploadForm("country") 'country of origine
country = Replace(country,"'","''")
country = replace(country,"<","< ")
specification = UploadForm("specification") 'Count항목 세부자료....
specification = Replace(specification,"'","''")
specification = replace(specification,"<","< ")
filename = UploadForm("filename") 'filename
filename = Replace(filename,"'","''")
filename = replace(filename,"<","< ")
filesize = UploadForm("filesize") 'filesize:숫자
filesize = Replace(filesize,"'","''")
filesize = replace(filesize,"<","< ")
company = UploadForm("company") 'company
company = Replace(company,"'","''")
company = replace(company,"<","< ")
url = UploadForm("url") 'url
url = Replace(url,"'","''")
url = replace(url,"<","< ")
addre = UploadForm("addre") 'address
addre = Replace(addre,"'","''")
addre = replace(addre,"<","< ")
contactperson = UploadForm("contactperson") 'contactperson
contactperson = Replace(contactperson,"'","''")
contactperson = replace(contactperson,"<","< ")
tel = UploadForm("tel") 'tel
tel = Replace(tel,"'","''")
tel = replace(tel,"<","< ")
fax= UploadForm("fax") 'fax
fax = Replace(fax,"'","''")
fax = replace(fax,"<","< ")
email= UploadForm("email") 'email
email = Replace(email,"'","''")
email = replace(email,"<","< ")
packing= UploadForm("packing") 'packing method
packing = Replace(packing,"'","''")
packing = replace(packing,"<","< ")
payment= UploadForm("payment") ' Terms of payment
payment = Replace(payment,"'","''")
payment = replace(payment,"<","< ")
fob= UploadForm("fob") 'Fob price and Fob port
fob = Replace(fob,"'","''")
fob = replace(fob,"<","< ")
markets= UploadForm("markets") 'main export markets
markets = Replace(markets,"'","''")
markets = replace(markets,"<","< ")
pwd = UploadForm("pwd")
pwd = replace(pwd,"<","< ")
strDirectory = "C:\Inetpub\wwwroot\sell\image" '저장할 디렉토리 지정
filebe = UploadForm("file1")
if filebe <> "" then
attach_file = UploadForm("file1").FilePath
filename = Mid(attach_file, InstrRev(attach_file, "\") + 1)
' 올리는 파일이름만 뽑아냄.
strFile2 = Mid(filename ,1, Instr(filename , ".")-1)
' 파일 확장자를 제거한 파일 이름을 구함.
strExt = Mid(filename ,Instr(filename , ".")+1)
'확장자를 구함.
' 파일 관련 기본 콤포넌트를 생성
Set fso = CreateObject("Scripting.FileSystemObject")
bExist = True
' 우선 파일이 존재한다고 가정
strFileNameTemp = strDirectory & filename
' 저장할 파일의 완전한 이름을 만듦
countfilename = 0
' 파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
While bExist = True ' 우선 있다고 생각함.
If (fso.FileExists(strFileNameTemp )) Then
' 파일이 있으면, 여기로 들어 옵니다.
'파일 이름에 숫자를 붙인 새로운 파일 이름 생성
countfilename = countfilename + 1
strFileNameTemp = strDirectory & strFile2 & countfilename & "." & strExt
filename = strFile2 & countfilename & "." & strExt
else
filename = filename
bExist = False
' 파일이 존재하지 않으므로.
End If
Wend
Set fso = nothing
' Scripting.FileSystemObject를 닫아줌.
strFileName = strFileNameTemp
' 위에서 구한 이름을 저장할때 사용하기 위해
' 저장할 파일이름을 만듦.
filesize = UploadForm("file1").Size
UploadForm("file1").SaveAs strFileName
end if |
|
|
|