<%
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	7509
	17. ADO(ActivX Data Object) : 데이터베이스(DataBase) ...	-	관리자	2000-12-27	7265
	사이트갤럭시 업로드 컴포넌트 사용법 간단한 소스		관리자	2001-09-11	11795
	1. OLE DB를 사용한 데이터베이스 연결	-	레드플러스	2004-04-05	6824
	2. ADO 상수 사용법	-	레드플러스	2004-04-17	7319
	3. ADO 학습을 위한 Memo 테이블 생성(한줄 메모장 작성)		레드플러스	2004-04-17	6005
	4. UDL파일을 통한 데이터베이스 연결 문자열 생성	-	레드플러스	2004-04-18	6771
	Insert문.asp : ADO의 Connection객체를 사용한 Insert문 실행		레드플러스	2004-04-18	8065
	Update문.asp		레드플러스	2004-04-18	6529
	Delete문.asp		레드플러스	2004-04-18	6035
	Select문.asp		레드플러스	2004-04-18	6842
	Select문2.asp		레드플러스	2004-04-18	6303
	한줄메모장(글쓰기 폼) : MemoWrite.asp		레드플러스	2004-04-20	7140
	한줄메모장(글쓰기 처리) : MemoWriteProcess.asp		레드플러스	2004-04-20	6157
	한줄메모장(리스트) : MemoList.asp		레드플러스	2004-04-20	6970
	한줄메모장(지우기 폼) : MemoDelete.asp		레드플러스	2004-04-20	6140
	한줄메모장(지우기 처리) : MemoDeleteProcess.asp		레드플러스	2004-04-20	6797
	16. ASP사용자를 위한 SQL문	-	관리자	2000-12-27	9040