Nmail ASP 서비스 종료 안내(EOS)
업로드가 안돼서요. 확인좀 부탁드립니다.
versuion : 3.7
3.5버전을 3.7로 업그레이드 하여 사용중입니다.
그런데 파일 첨부가 제대로 되질 않아서요
NUpload2.cab#version=1,0,0,3
NUpload.dll
두 가지만 있으면 업로드는 문제없이 되는 걸로 아는데요...
up.asp에서 업로드 경로까지 확인했는데도 해당경로에 파일이 업로드가 안돼서요
혹시 잘못된것이 있는지 한번 봐주십시오...
폴더 권한은 everybody 입니다.
업로드파일 샘플입니다. - test.asp
-----------------------------------------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> New Document </title>
<script language="JavaScript">
function send()
{
var attCount = FRM.fUpload.SendFileCount(); // 첨부파일 갯수
var attFile = ""; // 첨부파일 명
var attSize = 0; // 첨부파일 용량
// 첨부파일이 존재하면 파일명과 용량을 가져오고 실제로 업로드 시킨다.
if (attCount > 0)
{
for (var i = 0; i < attCount; i++)
{
attFile += FRM.fUpload.SendFileName(i) + "|";
attSize += FRM.fUpload.SendFileSize(i);
}
attFile = attFile.substring(0, attFile.length - 1);
FRM.fUpload.SetUrlPath("/Email/up.asp");
FRM.fUpload.UploadStart();
frm.txtAttachFile.value = attFile;
}
}
</script>
</head>
<body>
<form name="frm" enctype="post">
<input type="text" name="txtAttachFile">
</form>
<form name="FRM" enctype="multipart/form-data">
<object id="fUpload" height=120 width=560 classid=CLSID:6C76618F-35AE-4767-99C8-1494F322EF45 codebase="http://www.passkorea.net/NUpload2.cab#version=1,0,0,3" name="fUpload" VIEWASTEXT>
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="2646">
<PARAM NAME="_ExtentY" VALUE="1323">
<PARAM NAME="_StockProps" VALUE="0">
</OBJECT>
</form>
<a href="javascript:send()">보내기</a>
</body>
</html>
-----------------------------------------------------------------------------------------
* up.asp
<%
'Option Explicit
Dim RFM, us, up, Func
Dim strUserId, pid, strSavePath
'// 스크립트 실행 시간을 늘린다.
Server.ScriptTimeout = 100000
'// 업로드 되는 파일이 저장되는 maildir 경로를 가져온다.
Set RFM = Server.CreateObject("ReadFileMail.FileMail.1")
strSavePath = RFM.Get_mailenginedbdir()
Set RFM = Nothing
'// 가져온 maildir 경로에 도메인과 사용자 경로를 붙인다.
strSavePath = strSavePath & "\" & session("Servers") & "\" & session("ID")
'// 업로드 상태 확인값을 가져온다.
Set us = Server.CreateObject("UpState.UpStateClass.1")
pid = us.CreateID()
Set us = nothing
Set up = Server.CreateObject("NUpload.upload.1")
'// 업로드 경로 설정
up.SetSavePath(strSavePath)
'// 업로드 상태 확인값 설정
up.SetId(pid)
'// 이전 폼에 있는 모든 값을 가져온다.
up.Readformdata()
'// 파일을 저장한다.
'// 이때 인자값이 0이면 중복된 파일을 덮어쓰고 1이면 파일명을 변경한다.
up.SaveFile(0)
Set up = Nothing
%>
| 이전 글 | 3.7이후 에러... 3 | 김*환 | 2006.11.13 |
|---|---|---|---|
| 다음 글 | spammer로 등록한 IP가 계속해서 스팸메일을... 1 | 박*균 | 2006.11.10 |