|
|
|
|
 |
|
浩然之氣 / 2002-07-30 / 오후 1:35:36 / 203.255.3.190
조회수 : 242
|
| [질문] 며칠 째 회원가입 땜에 밤새다 글 올립니다... ㅠ.ㅠ |
> 며칠 째 고민하다 결국 도움을 청하고자 이케 글 올립니다.
> 첨엔 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 스크립트에서는 붙여서 사용하셔야 됩니다.
그럼...
|
|
|
|