알고 보면 정말 간단한. FLEX + ABC 파일 업로드 이다.
그냥 Flex 부분과 ASP 부분을 복사해서 사용하면 된다.
ABC 업로드는 만들었지만 DEXT 업로드로 파일 업로드는 ASP 부분에서 에러가 나서 포기 ;;
<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="initApp()">
<mx:Script>
<![CDATA[
import mx.controls.*;
import mx.events.*;
import flash.events.*;
import flash.net.*;
private function initApp():void {
Security.allowDomain("*");
}
public var _refAddFiles:FileReference;
private function fileup():void {
_refAddFiles = new FileReference();
_refAddFiles.addEventListener(Event.SELECT, selectHandler);
_refAddFiles.addEventListener(Event.COMPLETE, completeHandler);
_refAddFiles.browse();
}
private function selectHandler(event:Event):void {
//var request:URLRequest = new URLRequest("http://www.mentalhealth.or.kr/flex/Gallery/Upload.asp");
var request:URLRequest = new URLRequest("http://www.fileUpload.co.ke./upload.asp");
// new URLRequest () 안에 실지적으로 파일 업로드를 실행하는 ASP 주소을 적는다.
request.method = URLRequestMethod.POST;
_refAddFiles.upload(request,"Filedata");
}
private function completeHandler(event:Event):void {
Alert.show("File(s) have been uploaded.event", "Upload successful");
error.text = event.type;
}
]]>
</mx:Script>
<mx:Canvas top="10" bottom="10" left="10" right="10">
<mx:Panel width="300" height="266" layout="absolute" horizontalCenter="0" verticalCenter="0" id="panUpload" title="flex->ASP간 파일업로드 예제">
<mx:VBox left="10" bottom="10" top="10" right="10">
<mx:TextArea id="error" text="" width="100%" height="100%" />
</mx:VBox>
<mx:ControlBar horizontalAlign="right">
<mx:Button label="파일올리기" id="btnUpload" click="fileup();" />
</mx:ControlBar>
</mx:Panel>
</mx:Canvas>
</mx:Application>
ASP 부분이다.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<%
Dim abc, oFile,DirectoryPath
Set abc = Server.CreateObject("ABCUpload4.XForm")
DirectoryPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "\upload_files"
abc.AbsolutePath = True
abc.CodePage = 65001
Set oFile = abc("filedata")(1)
Dim strFileName1, FileSize1, strFileWholePath1
'실제적인 파일 업로드를 처리하는 부분
If oFile.FileExists Then
strFileName1 = oFile.SafeFileName
FileSize1 = oFile.Length
if oFile.Length > 4096000 then
Response.Write "<script language=javascript>"
Response.Write "alert(""4M 이상의 사이즈인 파일은 업로드하실 수 없습니다"");"
Response.Write "history.back();"
Response.Write "</script>"
Response.end
else
strFileWholePath1 = GetUniqueName(strFileName1, DirectoryPath)
oFile.Save strFileWholePath1
End If
Function GetUniqueName(byRef strFileName, DirectoryPath)
Dim strName, strExt
strName = Mid(strFileName, 1, InstrRev(strFileName, ".") - 1) ' 확장자를 제외한 파일명을 얻는다.
strExt = Mid(strFileName, InstrRev(strFileName, ".") + 1) '확장자를 얻는다
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim bExist : bExist = True
'우선 같은이름의 파일이 존재한다고 가정
Dim strFileWholePath : strFileWholePath = DirectoryPath & "\" & strName & "." & strExt
'저장할 파일의 완전한 이름(완전한 물리적인 경로) 구성
Dim countFileName : countFileName = 0
'파일이 존재할 경우, 이름 뒤에 붙일 숫자를 세팅함.
Do While bExist ' 우선 있다고 생각함.
If (fso.FileExists(strFileWholePath)) Then ' 같은 이름의 파일이 있을 때
countFileName = countFileName + 1 '파일명에 숫자를 붙인 새로운 파일 이름 생성
strFileName = strName & "(" & countFileName & ")." & strExt
strFileWholePath = DirectoryPath & "\" & strFileName
Else
bExist = False
End If
Loop
GetUniqueName = strFileWholePath
End Function
%>
_refAddFiles.upload(request,"Filedata"); -> 이 부분에서 filedata는 기본 디폴더 이름으로 정해저 있다. 변경 하고 싶은면 Flex 에서 변경하고 ASP 부분에서도 Set oFile = abc("filedata")(1) 을 변경 해주어야 한다.
URLRequest에 관한 설명은 아래 링크를 가면 잘 나와있다.
http://flexdocs.kr/docs/flex2/langref/flash/net/URLRequest.html#data
<div id='quick' style="position:absolute; left:970; top:180; width:30px; height:185; z-index:1"> 내용
</div>
<script language="javascript">
<!--
self.onError=null;
currentX = currentY = 0;
whichIt = null;
lastScrollX = 0; lastScrollY = 0;
action = window.setInterval('heartBeat()',1);
function heartBeat() {
diffY = document.body.scrollTop;
diffX = 0;
if (diffY != lastScrollY) {
percent = .2 * (diffY - lastScrollY);
if (percent > 0) {
percent = Math.ceil(percent);
} else {
percent = Math.floor(percent);
}
document.all.quick.style.pixelTop += percent;
lastScrollY = lastScrollY + percent;
}
if (diffX != lastScrollX) {
percent = .2 * (diffX - lastScrollX);
if (percent > 0) {
percent = Math.ceil(percent);
} else {
percent = Math.floor(percent);
}
document.all.quick.style.pixelLeft += percent;
lastScrollY = lastScrollY + percent;
}
}
-->
</script>
javascript 내에 document.all.quick.style.pixelLeft += percent;, document.all.quick.style.pixelTop += percent; 부분에서 해당 레이어 id를 변경 해주고 사용하면 됨
서울 올라온지도 벌써 2년이 되어 간다.
2년을 어떻게 버티고 살았는지도 모르겠다..
처음와서 한 고시원 월세 지금에 전세 집까지 새삼 대한민국 사람들이 왜 그렇게 집에 집착 하는줄 몸으로 많이 느낄수 있는 지난 2년이 었다.
고시원에 있을때는 월세를 월세에서는 전세를 전세에서는 좀 더 큰 전세를 원하는 욕심에 끝은 없는것 같다. ㅎㅎㅎㅎ
들어오는 돈을 항상 고정적이고 미친듯이 모아도 돈이 모이는 속도보다 올라가는 속도가 빠르다 보니 허탈하기 그지 없다.
그냥 미친척 하고 정신 놓고 편하게 살고 싶다는 생각도 많이 한다.
나도 남들 처럼 해외 여행도 가고 싶고 이리 저리 사고 싶은 것도 많지만 항상 그넘에 집이 문제다
더도 말고 15평짜리 집에서 살아봤으면 소원이 없겠다..
그날은 언제가는 오겠지만 기다림이란 항상 고달프고 괴롭다는게 문제 이다.
<?xml version="1.0" encoding="utf-8"?>
<mx:TextArea xmlns:mx="http://www.adobe.com/2006/mxml" updateComplete="initComp()" creationComplete="initComp()" show="initComp()">
<mx:Script>
<![CDATA[
private function initComp () :void
{
this.height = 16;
this.validateNow();
if (this.maxVerticalScrollPosition>0){
this.height += this.maxVerticalScrollPosition * 16;
}
this.height+=4;
this.validateNow();
}
]]>
</mx:Script>
</mx:TextArea>
textArea 는 몇줄에 글을 쓰고 나면 그 줄만큼 늘어나는 것이 아니라 그냥 옆에 스크룰이 생겨 버린다.
이렇게 사용자 정의 textArea로 만들면 maxVerticalScrollPosition 함수로 textArea 에 text 에 줄에 갯수을 구해서 곱하기 16을 해서 textArea의 높이 높혀서 전체 text를 볼수 있게 한다.
16이라는 수는 일반적으로 text에 한줄에 높이을 대략적으로 정한것이다. 사용하면서 바꿀수 있는 숫자이다.
updateComplete="initComp()" 는 이 complete가 새롭게 추가 될때 즉 스크립터 부분에서 동적으로 생성이 되었을때 발생하는 이벤트이다.
이 textArea을 만들때에 목적이 textArea가 동적으로 생성시 textArea에 text에 높이를 조절하기 위한 목적으로 만들어 졌기 때문이다.. ^^
어제 11회 밀어내기 지고 나니 이제는 마지막 희망도 없어져 버렸다..
1999년 플레이오프 이후로 가을에 야구 한지가 가물가물 거린다..
서면에서 집에 가지도 않고 시내에서 숨죽이면 보았던 야구는 정말 평생가도 기억에 남을 명승부 였다..
동점, 역적 홈런에 연장전 끝내기 안타 까지 상대방이 도망가도 포기하지 않고 1%에 가망성이라
도 있으며 포기 하지 않고 질주하는 그 모습은 정말 영웅에 모습이었다.
지금에 롯데는 어떤가 안이한 수비 투수를 힘빠지게 하는 실책 안타수만 많고 점수는 나지 않는 기이한 형상 볼넷 남발에 루상에 주자만 나가도 흔들리는 모습 휴...
박정태, 김응국, 공필성 김민재, 임수혁 기론, 호세, 마해영, 박석진 이 사람들이 그립니다. 정말.
주 20시간 이상에 야근을 해야하며
주말은 반납을 하고 이틀 동안 출근하며
쉬는 날은 집에서 업무와 관련된 책을 봐야 하며
야근, 특근 수당을 포기 해야하며
9시 정규 뉴스는 항상 인터넷 뉴스로 봐야 하며
눈가에는 항상 다크 써클이 있어야 하며
출근은 오늘 하지만 퇴근 내일 하며
갑에 말에 깔아엎기를 수십번 해야 하며
일과 사랑 둘 중에 하나를 선택해야 하는 고통이 따른다..
|
KNEditor2_Fixed.zip
