<%
Dim Num: Num = Request("Num")
Dim Password: Password = Request("Password")

If Password = "1234" Then
    Call DeleteArticle()
    Response.Redirect("./MemoList.asp")
Else
%>
    <SCRIPT LANGUAGE="JavaScript">
    window.alert("해킹하려구???");
    history.go(-1);
    </SCRIPT>
<%
End If
%>
<%
Sub DeleteArticle()
    Set objCon = Server.CreateObject("ADODB.Connection")
    objCon.Open("Provider=SQLOLEDB.1;Password=memo;Persist Security Info=True;User ID=Memo;Initial Catalog=Memo;Data Source=(local)")
    '// 1 -> " & 변수 & "
    objCon.Execute("Delete Memo Where Num = " & Num)
    objCon.Close()
    Set objCon = Nothing
End Sub
%>

관련 아티클 리스트
	제       목	파일	작성자	작성일	조회
	18. CDO(Collaboration Data Object) : 메일 전송(SMTP...	-	관리자	2000-12-27	7512
	17. ADO(ActivX Data Object) : 데이터베이스(DataBase) ...	-	관리자	2000-12-27	7267
	사이트갤럭시 업로드 컴포넌트 사용법 간단한 소스		관리자	2001-09-11	11797
	1. OLE DB를 사용한 데이터베이스 연결	-	레드플러스	2004-04-05	6828
	2. ADO 상수 사용법	-	레드플러스	2004-04-17	7322
	3. ADO 학습을 위한 Memo 테이블 생성(한줄 메모장 작성)		레드플러스	2004-04-17	6009
	4. UDL파일을 통한 데이터베이스 연결 문자열 생성	-	레드플러스	2004-04-18	6778
	Insert문.asp : ADO의 Connection객체를 사용한 Insert문 실행		레드플러스	2004-04-18	8067
	Update문.asp		레드플러스	2004-04-18	6531
	Delete문.asp		레드플러스	2004-04-18	6039
	Select문.asp		레드플러스	2004-04-18	6845
	Select문2.asp		레드플러스	2004-04-18	6307
	한줄메모장(글쓰기 폼) : MemoWrite.asp		레드플러스	2004-04-20	7143
	한줄메모장(글쓰기 처리) : MemoWriteProcess.asp		레드플러스	2004-04-20	6161
	한줄메모장(리스트) : MemoList.asp		레드플러스	2004-04-20	6974
	한줄메모장(지우기 폼) : MemoDelete.asp		레드플러스	2004-04-20	6145
	한줄메모장(지우기 처리) : MemoDeleteProcess.asp		레드플러스	2004-04-20	6800
	16. ASP사용자를 위한 SQL문	-	관리자	2000-12-27	9043