<% '-------------------------------------------------- ' 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 %> <% End If End If objRs.Close(): objCon.Close() Set objRs = Nothing: Set objCon = Nothing %>