최초등록

content/01message/csvadd_ok.asp

@@ -0,0 +1,104 @@
+<!--#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
+
+%>