<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<%
Server.ScriptTimeout=10000'-엑셀데이터의 원활한 처리를 위해 타임아웃 설정
Set objApp = nothing

Set uploadform = Server.CreateObject("DEXT.FileUpload")
uploadform.DefaultPath = server.MapPath("./")
'--업로드컴포넌트를 이용해 엑셀파일을 받아오는 부분


If uploadform("csvfile") <> "" Then

	'------------파일 저장--------------------
	strName		= uploadform("csvfile").FileName
	ext_arr		= Split(strName,".")

	Select Case UCase(ext_arr(UBound(ext_arr)))
		Case "CSV", "TXT"
		Case Else
			Set uploadform = Nothing
			alertMsg "유효한파일이 아닙니다."
			response.end
	End select

	strDirectory = server.MapPath("/")&"\data\csv\"
	strName = wfile2("csvfile", 10, strDirectory, "csv,txt")


	'------------파일 저장--------------------

	alertMsg("[추가완료] 메세지가 나올때까지 기다리세요.")

	'------------전화번호 추가----------------
	Set fs = Server.CreateObject("Scripting.FileSystemObject")
	Set objFile = fs.OpenTextFile(strDirectory & strName, 1)

%>
<SCRIPT LANGUAGE="JavaScript">
<!--

<%
	i = 1
	Do Until objFile.AtEndOfStream

		if i = 1000 then
			'1000건 넘어가면 경고메세지!!
%>
			if(confirm("1000건 이상의 전송은 시간이 오래 걸리거나 중단될 수 있습니다.\n\n계속하시겠습니까?")){
<%
		end if
		
		number = phoneValue( objFile.readLine )
		'response.write "//" & number & vbcrlf
		if number <> "--" and number <> "" then
%>
		parent.add_input2("<%=number%>");
<%
		end if 
		i = i + 1
	loop
	
	'1000건 이상이면 alert창을 띄울것이므로 닫기'}'도 해준다.
	if i >= 1000 then
		response.write "}"
	end if
%>

	parent.document.getElementById("csvfile").value = "";
	parent.closeArea();

//-->
</SCRIPT>

<%

	Set fs = Nothing
	Set objFile = nothing
	'------------전화번호 추가끝--------------
	
	'------------파일삭제---------------------
	dfile strDirectory , strName
	'------------파일삭제---------------------
	alertMsg("추가완료")
	response.end
Else
	Set uploadform = nothing
End If



'----------함수--------

Function alertMsg(msg)
%>
	<SCRIPT LANGUAGE="JavaScript">
		<!--
		alert("<%=msg%>");
		//-->
	</SCRIPT>
<%
End Function

%>