<% '-------------------------------------------------- ' 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 = Request("Name") Dim Email : Email = Request("Email") Dim Homepage : Homepage = Request("Homepage") Dim Title : Title = Request("Title") Dim Content : Content = Request("Content") Dim Encoding : Encoding = Request("Encoding") Dim Password : Password = Request("Password") Dim PostIP PostIP = Request.ServerVariables("REMOTE_HOST") Dim objCon '[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") %>