영삼넷 :: ABCUpload Component 4.1

ABCUploadv4.1.zip

최신 버전이 있긴 하지만. 최신 버전은 30일 날짜 제한이 있어서..
4.1을 올렸음.

<% 
	Set theForm = Server.CreateObject("ABCUpload4.XForm")
	theForm.AbsolutePath = True '절대경로 사용가능
	theForm.Overwrite = True    '덮어쓰기 가능
	theForm.CodePage = 949      '한글파일 가능하게 %>

<%'----답변쓰기에서 넘어온 변수 / 에러시 항목을 다시 글쓰기 폼으로 전송 해야됨----%>
<form name="frmReplyBack" method=post action="tourphoto_wmd.asp">
 <input type="hidden" name="BBS_Num" value="<%=theForm("BBS_Num")%>">
 <input type="hidden" name="WriteGB" value="<%=theForm("WriteGB")%>">
 <input type="hidden" name="gotopage" value="<%=theForm("gotopage")%>">
 <input type="hidden" name="cate_sub" value="<%=theForm("cate_sub")%>">
</form>

<%  Dim Name, Title, Email, Content, Cate_Sub
    Dim Re_Num, Re_Step, Re_Level
	Dim theForm,AttachFile
	dim DirectoryPath,File,FileName,FileSize,FileWholePath

'    ON ERROR RESUME NEXT

Name        = Trim(theForm("txt_Name"))
	Email       = Trim(theForm("txt_Email"))
	Cate_Sub    = Trim(theForm("cob_Cate_Sub"))
	Title       = Trim(theForm("txt_Title"))
	Content     = Trim(theForm("txt_Content"))

Re_Num   = Trim(theForm("Re_Num"))
	Re_Step  = Trim(theForm("Re_Step"))
	Re_Level = Trim(theForm("Re_Level"))

DirectoryPath = Server.MapPath("SaveImageFiles") '이미지가 저장될 절대경로
	Set File = theForm("AttachFile")(1)

'+++++++++++++파일 업로드+++++++++++++=
	If File.FileExists Then

FileName = File.SafeFileName

FileSize = File.Length
'	    FileType = File.FileType

if FileSize > 700000 then
	        Response.Write "<script language=javascript>"
	        Response.Write " alert('700KB 이상의 사이즈인 파일은 업로드하실 수 없습니다');"
	        Response.Write " history.back(-1);"
	        Response.Write "</script>"
	        Response.end
	    else
	        FileWholePath = GetUniqueName(FileName, DirectoryPath)
	        File.Save FileWholePath
	    End if

End if

'++++++++++완료++++++++++++++++++
   
  
'-----------------------------------------
'최재남--------
'파일이 올바르게 저장되었으면 dbInsert 하고
'아니면 에러 보내면서 다시 저장 하게 한다.
'올바르게 저장 되었는지 아는 방법은 asp의 파일 객체를 
'생성해서 체크한다. 위의 파일명을 가지고 같은 파일이
'있는지 폴더에서 찾는다.
'--------------------------------------------

DIM FSystem, Folder_Dir, F1, AllFileCount
 Dim FileSaveYUMU

SET FSystem = CreateObject("Scripting.FilesystemObject")

SET Folder_Dir = Fsystem.GetFolder(DirectoryPath)  '폴더지정 
 Set AllFileCount = Folder_Dir.Files '--모든파일을 가져온다

Const DeleteReadOnly = True

'FileSaveYUMU : 파일이 있는지 없는지 구분하는 변수
'초기값 없는 것으로 셋팅

FileSaveYUMU="MU"
 For Each F1 in AllFileCount
     IF instr(F1.Name,FileName) <> "0" Then     'FileName : 찾고자 하는 파일명
        FileSaveYUMU="YU"
		Exit For
     END IF
 Next

Set FSystem	  = Nothing 
 Set Folder_Dir   = Nothing 
 Set AllFileCount = Nothing  
 
 
 
'파일이 저장되었다면 dbInsert 해준다.

IF FileSaveYUMU = "YU" Then

Call dbConnect()

DBCon.BeginTrans
   
    IF theForm("WriteGB")="reply" Then '답변이다.

SQL = "       Update TB_TOUR_BBS_TBL Set Re_Step = Re_Step + 1 "
		SQL = SQL & " Where  Re_Num=" & Cint(Re_Num) & " And Re_Step > " & Cint(Re_Step)
		DBcon.Execute(SQL)
		Re_Step  = Re_Step  + 1
		Re_Level = Re_Level + 1
	ELSE
		SQL = "       SELECT Case When Max(BBS_Num) IS Null Then 1 ELSE Max(BBS_Num)+1 End As Max_Value "
		SQL = SQL & " From TB_TOUR_BBS_TBL "
		SET RS = DBCon.Execute(SQL)
		Re_Num = RS(0)
		Call RSClose()
        Re_Step  = 0
		Re_Level = 0
	END IF

SQL = " INSERT INTO TB_TOUR_BBS_TBL Values("
	SQL = SQL & "'001003'" '-- 여행과사진
	SQL = SQL & ",'" & Cate_Sub & "'"
	SQL = SQL & ","  & Cint(Re_num)
	SQL = SQL & ","  & Cint(Re_Step)
	SQL = SQL & ","  & Cint(Re_Level)
	SQL = SQL & ",'" & Title & "'"
	SQL = SQL & ",'" & Replace(Content,"'","") & "'"
	SQL = SQL & ",'" & Name & "'"
	SQL = SQL & ",'" & Email & "'"	
	SQL = SQL & ",0" '--댓글갯수
	SQL = SQL & ",0" '--조회수
	SQL = SQL & ",getdate()" '--등록일
	SQL = SQL & ",'" & DirectoryPath & "\'" '--이미지경로
	SQL = SQL & ",'" & FileName & "'"  '--이미지파일명	
	SQL = SQL & ",'" & Request.Cookies("pamtour_client")("UserID") & "'"
	SQL = SQL & ",'" & Request.Cookies("pamtour_client")("CompCD") & "')"

DBcon.Execute(SQL)

IF Err.Number = 0 Then
       DBCon.CommitTrans 
	   Call DBClose()

IF theForm("WriteGB") = "" Then '답변쓰기에서 온것이라면.
          Response.Redirect "./tourphoto_list.asp?Cate_Sub=" & theForm("Cate_Sub")
       ELSE
          Response.Redirect "./tourphoto_list.asp?Cate_Sub=" & Cate_Sub
	   END IF
    ELSE      
       DBCon.RollbackTrans
	   Call DBClose()
       Response.Write "<script language='javascript'>"
       Response.Write "alert('시스템에 오류가 발생 했습니다.\n\n       다시 작성해 주세요.');"

IF theForm("WriteGB") = "" Then '답변쓰기에서 온것이라면.
	      Response.Write "document.frmReplyBack.submit();"
	   ELSE
          Response.Write "history.back(-1);"
	   END IF
	   Response.Write "</script>"
    End IF

Response.End

ELSE  '--파일이 올바르게 저장되지 않았다

Response.Write "<script language='javascript'>"
       Response.Write "alert('파일이 올바르게 저장되지 않았습니다.\n\n       다시 작성해 주세요.');"

END IF

'-------------------------------------------------------------------------------------------------	
'유니크한 파일경로및 파일이름을 얻어내는 함수
Function GetUniqueName(byRef FileName, DirectoryPath)

Dim Ext, FileWholePath, countFileName
	Dim fso, Exist

Name = Mid(FileName, 1, InstrRev(FileName, ".") - 1) '확장자를 제외한 파일명
    Ext = Mid(FileName, InstrRev(FileName, ".") + 1) '확장자
	Set fso = Server.CreateObject("Scripting.FileSystemObject")

Exist = True 
	'우선 같은이름의 파일이 존재한다고 가정

FileWholePath = DirectoryPath & "\" & Name & "." & Ext
	'저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성

countFileName = 0 
	'파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.

Do While Exist ' 우선 있다고 생각함.
		If (fso.FileExists(FileWholePath)) Then ' 같은 이름의 파일이 있을 때
			countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이름 생성
			FileName = Name & "(" & countFileName & ")." & Ext
			FileWholePath = DirectoryPath & "\" & FileName
		Else
			Exist = False
		End If
	Loop

GetUniqueName = FileWholePath
End Function
'-------------------------------------------------------------------------------------------------%

영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

영삼넷

Categories

Tags

Recent Posts

Recent Comments

Archives

Links

Statistics

ABCUpload Component 4.1

Trackback Address :: 이 글에는 트랙백을 보낼 수 없습니다