<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_BBS ORDER BY BBS_NO ASC", GetDBConn, 1 ListCount = List.RecordCount %>

Àüü¼±ÅÃ(Ctrl+A)ÇÏ½Ã°í º¹»çÇÏ¿© ¸Þ¸ðÀå¿¡ ºÙÇô³Ö±â ÇϽðųª ÀúÀåÇϱâ¹öÆ°À» Ŭ¸¯ÇÏ¿© ÅؽºÆ®ÆÄÀÏ·Î ÀúÀåÇϽñ⠹ٶø´Ï´Ù.

<% For i=1 To ListCount SQL=SQL&"UPDATE E_BBS SET " SQL=SQL&"BBS_Category='"&List("BBS_Category")&"'," SQL=SQL&"BBS_MID='"&List("BBS_MID")&"'," SQL=SQL&"BBS_TreeCheck='"&List("BBS_TreeCheck")&"'," SQL=SQL&"BBS_TreeID='"&List("BBS_TreeID")&"'," SQL=SQL&"BBS_LinkID='"&List("BBS_LinkID")&"'," SQL=SQL&"BBS_Subject='"&List("BBS_Subject")&"'," SQL=SQL&"BBS_Editor='"&List("BBS_Editor")&"'," SQL=SQL&"BBS_Email='"&List("BBS_Email")&"'," SQL=SQL&"BBS_Passwd='"&List("BBS_Passwd")&"'," SQL=SQL&"BBS_Visited='"&List("BBS_Visited")&"'," SQL=SQL&"BBS_DoctypeCd='"&List("BBS_DoctypeCd")&"'," SQL=SQL&"BBS_DATE='"&List("BBS_DATE")&"'," SQL=SQL&"file_name='"&List("file_name")&"'," SQL=SQL&"user_id='"&List("user_id")&"'" SQL=SQL & " where BBS_NO=" & List("BBS_NO") SQL=Replace(SQL, "&", "&") SQL=Replace(SQL, "<", "<") SQL=Replace(SQL, ">", ">") SQL=Replace(SQL, chr(13), " ") SQL = SQL & Chr(10) 'response.write SQL & " " 'SQL="" List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>