ASP3.0 기초 강의실

시삽: 레드플러스 님 
게시판 이동:
 제목 : 입력 처리(BoardWriteProcess.asp) 기능 추가 : 태그/작은따옴표 등 처리
글번호: 165
작성자: 레드플러스
작성일: 2004/04/22 오후 10:27:00
조회수: 7150
파일: boardwriteprocess(1).asp (2 KB) / 전송수: 1735
<%
'--------------------------------------------------
' Title : Basic 보드
' Program Name : boardwriteprocess.asp
' Program Description : 글쓰기 처리 페이지
' Include Files : None
' Copyright (C) 2004 Park Yong Jun
' E-mail: redplus@redplus.net
' Support: http://www.dotnetkorea.com/
'--------------------------------------------------
%>
<%
'[1] 변수 선언
Option Explicit
Dim Name
    Name = Trim(Replace(Request("Name"), "'","''"))
Dim Email : Email = Request("Email")
Dim Homepage : Homepage = Request("Homepage")
Dim Title
    Title = Trim(Replace(Request("Title"),"'","''"))
Dim Content
    Content = Replace(Request("Content"), "'", "''")
Dim Encoding : Encoding = Request("Encoding")
Dim Password : Password = Request("Password")
Dim PostIP
    PostIP = Request.ServerVariables("REMOTE_HOST")
Dim objCon
'[!] 주요 로직 적용
If Encoding = "Text" Then '텍스트일 때에만 엔터처리
    '태그 처리 제한 : &, <, >를 특수기호로 변환
    Name = Replace(Name, "&", "&amp;")
    Name = Replace(Name, "<", "&lt;")
    Name = Replace(Name, ">", "&gt;")
    Title = Replace(Title, "&", "&amp;")
    Title = Replace(Title, "<", "&lt;")
    Title = Replace(Title, ">", "&gt;")
    Content = Replace(Content, "&", "&amp;")
    Content = Replace(Content, "<", "&lt;")
    Content = Replace(Content, ">", "&gt;")
    '엔터 처리/탭 처리
    Content = Replace(Content, vbCrLf, "<br>")
    Content = Replace(Content, Chr(9), "&nbsp;&nbsp;&nbsp;&nbsp;")
Else
    Content = Replace(Content, "<xmp>", "")
End If
'[2] 데이터베이스의 인스턴 생성
Set objCon = Server.CreateObject("ADODB.Connection")
'[3] 열기
objCon.Open("Provider=SQLOLEDB.1;Password=Basic;Persist Security Info=True;User ID=Basic;Initial Catalog=Basic;Data Source=(local)")
'[4] 명령 실행 : 홍길동 -> " & 변수 & "
objCon.Execute("Insert Basic Values('" & Name & "', '" & Email & "', '" & Title & "', GetDate(), '" & PostIP & "', '" & Content & "','" & Password & "', 0, '" & Encoding & "', '" & Homepage & "', GetDate(), '127.0.0.1')")
'[5] 닫기
objCon.Close()
'[6] 해제
Set objCon = Nothing
'[7] 리스트로 이동
Response.Redirect("./boardlist.asp")
%>
 
이전 글   다음 글 삭제 수정 답변 글쓰기 리스트

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

관련 아티클 리스트
  제       목 파일 작성자 작성일 조회
이전글 21. 파일 업로드 연습 - 관리자 2002-03-21 7256
  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 5291
현재글 입력 처리(BoardWriteProcess.asp) 기능 추가 : 태그/작은따옴표 등... boardwriteprocess(1).asp(2 KB) 레드플러스 2004-04-22 7150
  3. 출력 페이지 설계 - 레드플러스 2004-04-22 5203
  (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 7449
  (3)출력 리스트(BoardList.asp)에 사용되는 고급 페이징 함수 boardfunction.asp(1 KB) 레드플러스 2004-04-27 5587
  4. 세부 출력 페이지 설계 - 레드플러스 2004-04-22 5343
  (4)세부 출력 페이지(BoardView.asp) boardview.asp(1 KB) 레드플러스 2004-04-22 5597
  세부 출력 페이지(BoardView.asp) 기능 추가 : 조회수 증가 boardview(1).asp(1 KB) 레드플러스 2004-04-27 8081
  5. 수정 페이지 설계 - 레드플러스 2004-04-22 5044
  (5)수정 폼 페이지(BoardModify.asp) boardmodify.asp(1 KB) 레드플러스 2004-04-22 5364
  (6)수정 처리 페이지(BoardModifyProcess.asp) boardmodifyprocess.asp(1 KB) 레드플러스 2004-04-22 5415
  6. 삭제 페이지 설계 - 레드플러스 2004-04-22 4986
  (7)삭제 폼 페이지(BoardDelete.asp) boarddelete.asp(774 Byte(s)) 레드플러스 2004-04-22 5209
  (8)삭제 처리 페이지(BoardDeleteProcess.asp) boarddeleteprocess.asp(1 KB) 레드플러스 2004-04-22 5117
  7. 검색 페이지 설계 - 레드플러스 2004-04-22 5102
  (9)검색 페이지(BoardSearchList.asp) boardsearchlist.asp(1 KB) 레드플러스 2004-04-22 5380
다음글 19. FSO(File System Object) : 파일(File) 처리 - 관리자 2001-03-03 9750
 
손님 사용자 Anonymous (손님)
로그인 Home