ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : (6)수정 처리 페이지(BoardModifyProcess.asp)
글번호: 160
작성자: 레드플러스
작성일: 2004/04/22 오후 10:22:00
조회수: 5416
파일: boardmodifyprocess.asp (1 KB) / 전송수: 1619
<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardmodifyprocess.asp
' Program Description : 수정하기 처리 : Update문
' QueryString : modify.asp -> Num, Name, ..., Password
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
Option Explicit
Dim Num: Num = Request("Num")'//
Dim Name: Name = Request("Name")
Dim Email: Email = Request("Email")
Dim Title: Title = Request("Title")
Dim Content: Content = Request("Content")
Dim Homepage: Homepage = Request("Homepage")
Dim Encoding: Encoding = Request("Encoding")
Dim Password: Password = Request("Password")
Dim objCon: Dim objRs: Dim strSql
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open("Provider=SQLOLEDB.1;Password=Basic;Persist Security Info=True;User ID=Basic;Initial Catalog=Basic;Data Source=(local)")
Set objRs = Server.CreateObject("ADODB.RecordSet")
strSql = "Select Password From Basic Where Num = " _
         & Num
objRs.Open strSql, objCon

If objRs.BOF Or objRs.EOF Then
    Response.Write("해당되는 데이터가 없습니다.")
Else
    If objRs("Password") = Password Then
        strSql = "Update Basic Set Name = '" _
        & Name & "', Email = '" & Email & _
        "', Title = '" & Title _
        & "', Content = '" & Content & _
        "', Encoding = '" & Encoding & _
        "', Homepage = '" & Homepage & _
        "', ModifyDate = GetDate(), ModifyIP = '" & _
        Request.ServerVariables("REMOTE_ADDR") & _
        "' Where Num = " & Num
        objCon.Execute(strSql)
        Response.Redirect("./boardview.asp?Num=" & Num)
    Else
%>
    <SCRIPT LANGUAGE="JavaScript">
    window.alert("암호가 틀립니다.\n암호를 확인하세요.");
    history.go(-1);
    </SCRIPT>
<%
    End If
End If    

objRs.Close(): objCon.Close()
Set objRs = Nothing: Set objCon = Nothing
%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

(댓글을 남기려면 로그인이 필요합니다.)

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 21. 파일 업로드 연습 - 관리자 2002-03-21 7257
  20. 기본형 게시판 작성 프로젝트 - 관리자 2001-07-08 7446
  1. 기본형 게시판 테이블 설계(Basic.sql) (1) Basic.sql(2 KB) 레드플러스 2004-04-20 5557
  2. 입력 페이지 설계 - 레드플러스 2004-04-22 5350
  (1)입력 폼(BoardWrite.asp) boardwrite.asp(861 Byte(s)) 레드플러스 2004-04-22 6185
  (2)입력 처리(BoardWriteProcess.asp) boardwriteprocess.asp(1 KB) 레드플러스 2004-04-22 5292
  입력 처리(BoardWriteProcess.asp) 기능 추가 : 태그/작은따옴표 등... boardwriteprocess(1).asp(2 KB) 레드플러스 2004-04-22 7150
  3. 출력 페이지 설계 - 레드플러스 2004-04-22 5204
  (3)출력 리스트(BoardList.asp) boardlist.asp(1 KB) 레드플러스 2004-04-22 5605
  페이징 연습 페이징.asp(966 Byte(s)) 레드플러스 2004-04-22 5188
  (3)출력 리스트(BoardList.asp) 기능 추가 : 페이징 처리(기본/고급) boardlist(1).asp(2 KB) 레드플러스 2004-04-27 7450
  (3)출력 리스트(BoardList.asp)에 사용되는 고급 페이징 함수 boardfunction.asp(1 KB) 레드플러스 2004-04-27 5587
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-22 5344
  (4)세부 출력 페이지(BoardView.asp) boardview.asp(1 KB) 레드플러스 2004-04-22 5598
  세부 출력 페이지(BoardView.asp) 기능 추가 : 조회수 증가 boardview(1).asp(1 KB) 레드플러스 2004-04-27 8082
  5. 수정 페이지 설계 - 레드플러스 2004-04-22 5045
  (5)수정 폼 페이지(BoardModify.asp) boardmodify.asp(1 KB) 레드플러스 2004-04-22 5365
현재글 (6)수정 처리 페이지(BoardModifyProcess.asp) boardmodifyprocess.asp(1 KB) 레드플러스 2004-04-22 5416
  6. 삭제 페이지 설계 - 레드플러스 2004-04-22 4986
  (7)삭제 폼 페이지(BoardDelete.asp) boarddelete.asp(774 Byte(s)) 레드플러스 2004-04-22 5210
  (8)삭제 처리 페이지(BoardDeleteProcess.asp) boarddeleteprocess.asp(1 KB) 레드플러스 2004-04-22 5117
  7. 검색 페이지 설계 - 레드플러스 2004-04-22 5103
  (9)검색 페이지(BoardSearchList.asp) boardsearchlist.asp(1 KB) 레드플러스 2004-04-22 5380
다음글 19. FSO(File System Object) : 파일(File) 처리 - 관리자 2001-03-03 9752
 
손님 사용자 Anonymous (손님)
로그인 Home