<% '-------------------------------------------------- ' Title : Basic º¸µå ' Program Name : boarddeleteprocess.asp ' Program Description : Áö¿ì±â Æû ' QueryString : delete.asp¿¡¼­ Num=1, Password=1½ÄÀ¸·Î °ªÀÌ Àü¼ÛµÊ... ' 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 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 = " strSql = strSql & Num objRs.Open strSql, objCon If objRs("Password") = Password Then 'Æнº¿öµå°¡ °°´Ù¸é, strSql = "Delete Basic Where Num = " & Num objCon.Execute(strSql) Response.Redirect("./boardlist.asp") Else %> <% End If objRs.Close(): objCon.Close() Set objRs = Nothing: Set objCon = Nothing %>