%
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
<%=Left(p1(11,p),10)%> |
<%=year(p1(37,p))&"."&Month(p1(37,p))&"."&day(p1(37,p))%> |
<%
p=p+1
loop
else
%>
µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù. |
|
<%
end if
%>
|
<%
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
|
<%=Left(p1(3,p),10)%> |
<%
p=p+1
loop
else
%>
µ¥ÀÌÅÍ°¡ ¾ø½À´Ï´Ù. |
|
<%
end if
%>
|
|
|