지금까지 작성한 회원등록폼은 다음과 같다.



이제 해야 할일은 등록하고자 하는 적절한 회원정보를 입력하고 확인을 누르면 전달되는 각각의 쿼리값들을 DB안에 저장하는 일이 필요하다. 우린 이것을 login_insert.asp 문서에서 다루게 될것이다.

그전에 다음과 같이 회원정보를 저장할 테이블을 DB안에 만들어 주어야 한다.

Login DataBase에 member 테이블만들기

고유번호 : u_num - 각각의 레코드를 구별한 고유키값.
아이디 : u_id - 길이 15
비밀번호 : u_pwd - 길이 15
이름 : u_name - 길이 15
주민등록번호 : u_jumin - 길이 14
이메일 : u_email - 길이 50
우편번호 : u_zipcode - 길이 7
주소 : u_address - 길이 100
등록일 : u_regdate - 등록날짜도 자동으로 기록하기 위해.

(1) SQL Query Analyzer 를 실행하여 다음과 같이 입력하고 실행시킨다.



(2) 정상적으로 실행이 되면 SQL Server Enterprise Manager에서 다음 그림과 같이 Login DB 의 member 테이블에서 확인.



(3) 테이블도 만들었으니깐 이제 전달받은 쿼리값들을 저장하는 login_insert.asp 문서를 다음과 같이 작성한다.

login_insert.asp
<%

'전달받은 쿼리값을 각각의 변수에 저장
Dim id,pwd,name,jumin,email,zipcode,address
id = Request("id")
pwd =Request("pwd")
name = Request("name")
jumin = Request("jumin1") & "-" & Request("jumin2")
email = Request("email")
zipcode = Request("zipcode1") & "-" & Request("zipcode2")
address = Request("address") & " " & Request("address2")

'데이터베이스 연결 설정
Dim objConn
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
    SQL = "insert into member(u_id,u_pwd,u_name,u_jumin,u_email,u_zipcode,u_address,u_regdate) "
    SQL = SQL & "values('" & id & "','" & pwd & "','" & name & "','" & jumin & "','" & email & "','" & zipcode & "','" & address & "',getdate())"
    objConn.Execute(SQL)
    '실행후 보여줄 화면 지정
    Response.Redirec "index.asp"
'중복아이디가 있을 때
else
    Response.Write "이미 등록된 아이디입니다.<br> 확인후 다시 시도해 주십시오<p>"
    Response.Write "<a href=Javascript:history.go(-1)>뒤로가기</a>"
end if

%>


(4) 다음은 login_new.asp 문서를 브라우저로 확인하고 적절한 정보를 입력한후 최종적으로 회원에 등록후의 DB안의 모습이다. ( 주민등록은 내껄 써서 임의로 지웠다. 등록안된게 아니다. --). 암턴가네...테스트해보고 그림처럼 확인해보시라..잘들어가는지..