asp Re:저기 주소검색 어떠케 만들져??

[햄릿]

db 파일이라면 우편번호를 말씀하시는 거겠죠?
우편번호를 엑셀용으로 배포하는 곳은 우체국사이트(?) 로 가시면 된답니다
epost.co.kr인가? 검색사이트에서 찾아봅시면 된답니다...

우편번호.xls란 파일을 다운 받으셔서 msSQL에닫가 부어버리면 되어요~~


참고로 이 소스 확인해서 쓰세여...
별 도움은 못되겠지만 ^^


<!-- #include file="../inc/db.asp" -->
<!-- #include file="../inc/style.inc" -->
<%
Dim dong, sql, rs
dong = Request("dong")
%>
<HTML>
<HEAD>
<TITLE>우편번호 확인</TITLE>
<Script>
moveTo‎(200,100)
function code_search(){
str = document.code_form
if(str.dong.value == ""){
alert(‎"읍, 면, 동 이름을 입력하세요");
str.dong.focus();
return false;
}else{
str.action="zip.asp"
str.submit();
}
}

function send_code(){
codea = document.code_form.post_code
code = codea.options[codea.selectedIndex].value
code1 = code.substring(0,3)
code2 = code.substring(4,7)
window.opener.document.member_form.zip1.value=code1
window.opener.document.member_form.zip2.value=code2
add = codea.options[codea.selectedIndex].text
add_su = codea.options[codea.selectedIndex].text.length
ad = add.substring(10,add_su);
window.opener.document.member_form.add1.value=ad
window.close();
//##########################################################################################
// temp=document.addr_search.post_no
// post=temp.options[temp.selectedIndex].value
// temp1 = post.substring(0,3)
// temp2 = post.substring(4,7)
// window.opener.document.member_form.zip1.value=temp1
// window.opener.document.member_form.zip2.value=temp2
// window.opener.document.member_form.add1.value=temp.options[temp.selectedIndex].text
// window.close()
//##########################################################################################
}
</Script>
</HEAD>
<BODY topmargin="0" leftmargin="0" bgcolor="teal">
<table border="0" cellpadding="0" cellspacing="0" width="100%" bgcolor="#99cccc">
<form name="code_form" onSubmit="return code_search()">
<tr height="250" valign="top">
<td>
<table border="0" cellpadding="0" cellspacing="0" align="center">
<tr height="10">
<td></td>
</tr>
<tr height="1">
<td bgcolor="black"></td>
</tr>
<tr height="5">
<td></td>
</tr>
<tr>
<td align="center">&nbsp;&nbsp;&nbsp;&nbsp;우편번호 자동검색&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr height="2">
<td></td>
</tr>
<tr height="1">
<td bgcolor="black"></td>
</tr>
<tr height="2">
<td></td>
</tr>
<tr>
<td align="right">
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr height="25">
<td valign="top" align="right">
<input type="text" name="dong" class="input" value="">
</td>
<td>&nbsp;</td>
<td valign="bottom" width="40">
<input type="image" src="search.gif" name="btn_search" style="height:20px">
</td>
</tr>
</table>
</td>
</tr>
<tr height="7">
<td></td>
</tr>
<tr>
<td align="right">읍, 면, 동이름을 입력하세요</td>
</tr>
<%if dong <> "" then
sql = "zip '"&dong&"'"
set rs=db.Execute(sql)
%>
<tr height="10">
<td>&nbsp;</td>
</tr>
<tr>
<td align="center">
<%if rs.Bof then%>
검색 결과값이 없습니다.
<%else%>
<select name="post_code" class="select">
<%do while not rs.eof%>
<option selected value="<%=rs("code")%>"> [<%=left(rs("code"),3)%>-<%=right(rs("code"),3)%>]&nbsp;<%=rs("city")%>&nbsp;<%=rs("goo")%>&nbsp;<%=rs("dong")%>&nbsp;<%=rs("send")%>&nbsp;<%=rs("island")%>&nbsp;<%=rs("bstart")%></option>
<%
Rs.Movenext
loop
%>
</select>
<%end if%>
</td>
</tr>
<tr>
<td align="right">
<br>
<input type="button" value="적용" onclick="send_code()" class="button" style="height:20px">
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr height="50">
<td align="center"><a href="#" onclick="javascript:window.close()">창닫기</a></td>
</tr>
</form>
</table>
</BODY>
</HTML>

[NONE]

예 님 정말 감사합니다.이것으로 열심히 공부하겠습니다. 근데, xls파일을 msSQL에다가 어떠케 부어버리는 거져?? 지성해염... 제가 워낙 몰라서...

[심재운]

asp.net 을 요구하시는것 같은데 asp 소스로 괜찮은지...^^;

[NONE]

물론 asp.net을 공부하지만 이소스는 참고로 쓰려구염.^^ 근데 엑셀파일을 한번에 SQL Server의 DB파일로 변환할수 있나여? 아님 엑셀파일을 그냥 쓸수 있나여??

[햄릿]

DTS를 이용하세여 EM의 관련 DB에서 마우스 오른쪽 가져오기/내보내기.... 를 이용해서 엑셀 파일을 가져올때는 데이터 원본을 Microsoft Excel 97-2000으로 설정하셔서 해당 파일의 경로를 설정하시면 됩니다 ^^" 책하나 사셔서 보시면 두고두고 도움이 될 것입니다...

[NONE]

정말 감사드립니닷!!!!!!!!!!!!!!!!!!!!!!!