<% if request("page") <> "" then page = cint(request("page")) else page = 1 end if 'Set rs = Server.CreateObject("ADODB.RecordSet") 'Dim GetData, GetCnt, i, sSql, rs, MinNo 'Dim totalpage, total_num 'Dim SubQuery, s_check, search 'page_size = 5 'sSql = "select id from ASP_member where id='"&session("HTTP_SERVER_ID")&"'" 'rs.Open sSql,strConnect_ASP,adOpenKeyset,,adCmdText 'if not rs.EOF then ' rs.PageSize = page_size ' rs.absolutepage = page ' GetData = rs.GetRows(page_size) ' GetCnt = UBound(GetData,2) ' total_num = rs.RecordCount ' totalpage=int(total_num/page_size) ' if (totalpage*page_size) <> total_num then ' totalpage=totalpage+1 ' end if 'else ' GetCnt = -1 'end if 'rs.Close 'Set rs = nothing page_size = 1 page=1 SQL = "select id from ASP_MEMBER where id='"&session("HTTP_SERVER_ID")&"'" Set MSSQL_Conn = Server.CreateObject("ADODB.Connection") MSSQL_Conn.Open strConnect_MYSQL SET Rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 Rs.open SQL,MSSQL_Conn , 1 'Rs.Open SQL , strConnect_ASP, adOpenStatic, adLockReadOnly, adCmdText 'Response.write sql if not rs.EOF then rs.PageSize = page_size rs.absolutepage = page GetData = rs.GetRows(page_size) GetCnt = UBound(GetData,2) total_num = rs.RecordCount totalpage=int(total_num/page_size) if (totalpage*page_size) <> total_num then totalpage=totalpage+1 end if else GetCnt = -1 end if %>

¢Ç °¡¸ÍÁ¡ Admin Page ¾ÆÀ̵ð :   ºñ¹Ð¹øÈ£ :     <% 'Response.write Request.Servervariables("SERVER_NAME") If InStr(Request.Servervariables("SERVER_NAME"),"dacom.http.or.kr") > 0 then%> <%else%> <%End if%>

<%session("HTTP_SERVER_ID")%>