<% 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) cnt=request("cnt") If cnt="" Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT top 1000 * FROM E_log_visit ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=1 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 1001 and 2000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=2 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 2001 and 3000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=3 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 3001 and 4000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=4 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 4001 and 5000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=5 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 5001 and 6000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=6 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 6001 and 7000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=7 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 7001 and 8000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=8 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 8001 and 9000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=9 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx between 9001 and 10000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount ElseIf cnt=10 Then Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E_log_visit where idx > 10000 ORDER BY idx ASC", GetDBConn, 1 ListCount = List.RecordCount End If %>

Àüü¼±ÅÃ(Ctrl+A)ÇÏ½Ã°í º¹»çÇÏ¿© ¸Þ¸ðÀå¿¡ ºÙÇô³Ö±â ÇϽðųª ÀúÀåÇϱâ¹öÆ°À» Ŭ¸¯ÇÏ¿© ÅؽºÆ®ÆÄÀÏ·Î ÀúÀåÇϽñ⠹ٶø´Ï´Ù. ¢Ñ µ¥ÀÌÅÍ 1000¹Ì¸¸ ¢Ñ µ¥ÀÌÅÍ 1000~2000 ¢Ñ µ¥ÀÌÅÍ 2001~3000 ¢Ñ µ¥ÀÌÅÍ 3001~4000 ¢Ñ µ¥ÀÌÅÍ 4001~5000 ¢Ñ µ¥ÀÌÅÍ 5001~6000 ¢Ñ µ¥ÀÌÅÍ 6001~7000 ¢Ñ µ¥ÀÌÅÍ 7001~8000 ¢Ñ µ¥ÀÌÅÍ 8001~9000 ¢Ñ µ¥ÀÌÅÍ 9001~10000 ¢Ñ µ¥ÀÌÅÍ 10000ÀÌ»ó

<% For i=1 To ListCount SQL=SQL & "UPDATE E_log_visit SET " SQL=SQL & "userip='" & List("userip") & "'," SQL=SQL & "referer='" & List("referer") & "'," SQL=SQL & "refererDetail='" & List("refererDetail") & "', " SQL=SQL & "os='" & List("os") & "' " SQL=SQL & " where idx =" & List("idx") SQL = SQL & Chr(10) List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>