<% '-------------------------------------------------- ' Title : Basic º¸µå ' Program Name : boardmodify.asp ' Program Description : ¼öÁ¤Çϱâ Æû == ±Û¾²±â Æû°ú ºñ½Á ' QueryString : ¹Ýµå½Ã view.asp¿¡¼­ Num=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 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 * From Basic Where Num = " & Num objRs.Open strSql, objCon If objRs.BOF Or objRs.EOF Then Response.Write("¼öÁ¤ÇÒ ÆäÀÌÁö°¡ À߸øµÇ¾ú½À´Ï´Ù.") Else Call ShowModifyForm(objRs) End If objRs.Close(): objCon.Close() Set objRs = Nothing: Set objCon = Nothing %> <%Sub ShowModifyForm(objRs)%>

À̸§ : ">
À̸ÞÀÏ : ">
ȨÆäÀÌÁö : ">
Á¦¸ñ : ">
³»¿ë : 
ÀÎÄÚµù : 
Æнº¿öµå : 

<%End Sub%>