<% 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 E3_News_Announcement ORDER BY News_ID ASC", GetDBConn, 1 ListCount = List.RecordCount %> 뉴스그룹 테이블백업
전체선택(Ctrl+A)하시고 복사하여 메모장에 붙혀넣기 하시거나 저장하기버튼을 클릭하여 텍스트파일로 저장하시기 바랍니다.
<% For i=1 To ListCount SQL=SQL & "UPDATE E3_News_Announcement SET " SQL=SQL & "B_Category='" & List("B_Category") & "'," SQL=SQL & "Title='" & List("Title") & "'," SQL=SQL & "Content='" & List("Content") & "'," SQL=SQL & "Writer='" & List("Writer") & "'" SQL=SQL & " where News_ID =" & List("News_ID") SQL = SQL & Chr(10) List.MoveNext Next %>


<% For j=1 To 15 %> <% Next %>