(1) 다음의 그림과 같이 아이디의 중복성을 입력폼에서 확인하는 기능을 추가하자



(2) login_new.asp 문서를 다음과 같이 수정하자.

login_new.asp


.. 생략

<tr><td align=center bgcolor=#eff8ff>아이디</td>
        <td> <input type=text size=15 name=id style="border:1 dashed;">
※ <a href='#' ONCLICK="window.open('login_id_check.asp','win','width=450,height=200,
menubar=no,scrollbars=yes');return false">중복체크</a></td></tr>

... 생략


(3) login_id_check.asp 문서를 다음과 같이 작성하자

login_id_check.asp
<html>
<head>
<title>중복아이디확인</title>
<style type="text/css">
<!--
    BODY, table, tr, td, font,input, textarea, select
    {
        font-family: 굴림;
        font-size: 9pt;
    }
-->
</style>
<script Language="JavaScript">
<!--
function confirm(idck)
{
    var id = idck.id.value
    opener.form.id.value = id;
    opener.form.pwd.focus();
    self.close();
}
//-->
</script>
</head>

<body>

<center>
<font color=Green size=3>중복아이디 검사</font>
<form method='POST' action="./login_id_check.asp">
<hr size=0 width=300>
<input type=text name=id size=15 maxlength=15 style='border:solid 1;'>
<input type=image src=./img/ok.gif alt='중복확인' align=absmiddle>
<hr size=0 width=300>
</form>

<%
Dim id
id = Request.form("id")
if(id = "") then
    Response.Write "<font>원하시는 아이디(ID)를 입력하시오 <br>(영문과 숫자를 이용한 4자 이상)</font>"
elseif(Len(id) < 4 or Len(id) > 15) then
    Response.Write "<font>4자 이상의 아이디만 가능합니다.</font>"
else
    '데이터베이스 연결 설정
    Dim objConn,objRS,SQL
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open ("DSN=dsn_login;UID=abcd;PWD=abcd;")
    '중복아이디체크
    Dim MemberCnt
    sql = "select Count(u_num) from member where u_id ='" & id & "'"
    MemberCnt = objConn.execute(sql)
    if MemberCnt(0) = 0 then
        Response.Write "입력하신 아이디 <font color=blue>" & id & "</font>은 사용가능합니다.<br>" & _
            "이 아이디를 사용하시겠습니까? <p>" &_
            "<form method='POST' name='check'>" & _
            "<input type=hidden name=id value='" & id & "'>" &_
            "<IMG align=absmiddle SRC='./img/ok.gif' BORDER=0 OnClick='confirm(document.check);'>" & _
            "</form>"
    else
        Response.Write "입력하신 아이디 <font color=blue><b>" & _
            id & "</font></b>은(는) " & _
            "<font color=red>존재하는 아이디</font>입니다.<p>" & _
            "다른 아이디를 입력하세요"
    end if
    Set objConn = nothing
end if
%>
</center>
<body>
</html>


(4) 다음은 아이디중복체크에 대한 사용예입니다.