<% Dim mobile, n, strAgent, visual If(Len(Request.ServerVariables("HTTP_USER_AGENT"))=0) Then strAgent = "NONE" Else strAgent = Request.ServerVariables("HTTP_USER_AGENT") End if mobile = Array("iPhone", "ipad", "BlackBerry", "Android", "Windows CE", "LG", "MOT", "SAMSUNG", "SonyEricsson") Dim i i = 0 For Each n In mobile If (InStr(LCase(strAgent), LCase(n)) > 0) Then i = i + 1 End If Next '¼­ºêÆäÀÌÁö If i <> 0 Then '¸ð¹ÙÀÏ mainvisual = "" Else 'PC 'mainvisual = "" mainvisual = "" End If %>   <%=mainvisual%>    
   
<% sql = "select top 5 * from mplus_board where strboardid='board2' and bitdelete='0' order by intseq desc" p1 = runsqlselect(sql) if isarray(p1) then p=0 do while p <% p=p+1 loop else %> <% end if %>
<%=Left(p1(11,p),10)%> <%=year(p1(37,p))&"."&Month(p1(37,p))&"."&day(p1(37,p))%>
µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù.
<% sql = "select top 1 a.strFIleCode,(select top 1 strFileName from mplus_board_file where a.strFileCOde = strFileCOde ),intseq,strsubject,dateregdate from mplus_board as a where a.strBoardID='board1' and bitdelete='0' order by intseq desc" p1 = runsqlselect(sql) if isarray(p1) then p=0 do while p <% p=p+1 loop else %> <% end if %>
<%=Left(p1(3,p),10)%>
µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù.