꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	> 며칠 째 고민하다 결국 도움을 청하고자 이케 글 올립니다. > 첨엔 Microsoft VBScript 컴파일 오류 error '800a0409' > > 종결되지 않은 문자열 상수입니다. > > /join_ok.asp, line 34 > > SQL = "INSERT INTO join (user_id, password, name, reg_num1, reg_num2, sex, birth_y, birth_m, birth_d, birthtype, job, > ---------------------------------------------------------------------------------------------------------------------^ > 이라는 이런 오류가 뜨더니, 다시 새로 고침하니까 그이후로는 계속 페이지를 찾을수 없다고 하네요... > 확인해 보면 HTTP403 - 사용금지 오류라고 나오거든요... 왜이러죠? > Sql이랑 ODBC 연결 제대로 해줬거든요. > <% > ' 3∼18줄 까지 "join.htm"에서 넘겨준 값을 Request 객체의 Form 컬렉션을 이용하여 변수에 저장 > user_id=Request.Form("user_id") > password=Request.Form("password") > name=Request.Form("name") > reg_num=Request.Form("reg_num1") &"-"& Request.Form("reg_num2") > sex=Request.Form("sex") > birthday=Request.Form("birth_y") &"."& Request.Form("birth_m") &"."& Request.Form("birth_d") > birtytype=Request.Form("birthtype") > job=Request.Form("job") > teltype=Request.Form("teltype") > tel=Request.Form("tel1") &"-"& Request.Form("tel2") &"-"& Request.Form("tel3") > email=Request.Form("email") > content=Request.Form("content") > joinday=Request.Form("joinday") > > ' ADODB를 사용해 데이터베이스 연결을 하기 위해 CreateObject를 이용. 이때 설정한 값을 저장하기 위해 변수 con 사용한다. > Set con = Server.CreateObject("ADODB.Connection") > ' "DSN=join"을 열었을 때 'jjy' 계정사용. > con.Open ("DSN=join; UID=jjy; PWD=1119") > > ' 같은 ID가 있는지 확인하기 위해 ID를 select한다. > SQL = " SELECT user_id from join where user_id =' " & Request("user_id") & " ' " > set result=con.Execute (SQL) > ' 같은 주민등록번호가 있는지 확인. > SQL = " SELECT reg_num from join where reg_num =' " & Request("reg_num") & " ' " > set rec=con.Execute (SQL) > > ' 만일 "join" 테이블에 id가 저장되어 있다면 > if not result.EOF then > > <script language="javascript"> > <!-- 만약 사용자가 입력한 ID가 데이터베이스에 저장된 ID와 일치하면, 다음과 같이 "ID가 존재합니다. 다시 입력해 주세요."라는 메시지 창 출력 --> > alert("ID가 존재합니다. 다시 입력해 주세요.") > <!-- ID를 다시 입력할 수 있도록 이전 화면으로 돌아간다--> > history.back(); > </script> > > ' 만일 "join" 테이블에 주민등록번호가 저장되어 있다면 > else if not rec.EOF then > > <script language="javascript"> > <!-- 만약 사용자가 입력한 주민등록번호가 데이터베이스에 저장된 주민등록번호와 일치하면, 다음과 같이 "주민등록번호가 존재합니다. 다시 입력해 주세요."라는 메시지 창 출력 --> > alert("주민등록번호가 존재합니다. 다시 입력해 주세요.") > history.back(); > </script> > > > ' 만일 "join" 테이블에 자료가 없다면, 다음 수행 > else > ' 변수 SQL에 입력한 값을 저장. 이 때 입력한 정보는 데이터베이스 파일에 저장. > SQL = "INSERT INTO join (user_id, password, name, reg_num, sex, birthday, birthtype, job, teltype, tel, email, content, joinday) values(' " > SQL=SQL & "(' " & user_id & " ' " > SQL=SQL & ",' " & password & " ' " > SQL=SQL & ",' " & name & " ' " > SQL=SQL & ",' " & reg_num & " ' " > SQL=SQL & ",' " & sex & " ' " > SQL=SQL & ",' " & birthday & " ' " > SQL=SQL & ",' " & birthtype & " ' " > SQL=SQL & ",' " & job & " ' " > SQL=SQL & ",' " & teltype & " ' " > SQL=SQL & ",' " & tel & " ' " > SQL=SQL & ",' " & email & " ' " > SQL=SQL & ",' " & content & " ' " > SQL=SQL & ",' " & now() & " ')" > > 'Response.write SQL > con.Execute SQL > > Response.Cookies("MyNet").Expires=#12/31/2010 00:00:00# > Response.Cookies("Mynet")("name")=name > Response.Cookies("MyNet")("user_id")=user_id > > '가입 완료 창으로 넘어간다. > Response.Redirect "join_ok.asp" > %> > > <% end if %> > > <% > ' 회원 관리 데이터베이스의 기록과 연결 설정을 닫는다. > rec.close > result.close > con.close > ' 회원 관리 데이터베이스의 기록과 연결 설정을 초기화한다. > set rec=Nothing > set result=nothing > set con=Nothing > %> ----------------------------------------------------------- if not result.EOF then 다음에 자바 스크립트가 나오는데... 각각을 <% %>로 묶어주셔야죠.... 즉 if not result.EOF then%> 자바스크립트 <%elseif not rec.EOF then%> 자바스크립트 <%else ~~~ end if%> 그리고 else if를 사용하실때는 VB 스크립트에서는 붙여서 사용하셔야 됩니다. 그럼...

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *