<%@ codepage="65001" language="VBScript" %> <% Session.CodePage = 65001 Response.ChaRset = "utf-8" %> 파비넷 <% tidx = replace(trim(srequest("tidx")),"'","''") %> <% set adocmd = server.CreateObject("adodb.command") adoCmd.ActiveConnection = dbstr adoCmd.CommandType = adCmdStoredProc adoCmd.CommandText = "dbo.MainBoardViewSelect" set objParameter = adoCmd.CreateParameter ("@tidx", adInteger, adparaminput, 4 ,tidx) adoCmd.Parameters.Append objParameter set objParameter = adoCmd.CreateParameter ("@uid", adVarChar, adparaminput, 12 ,"helper") adoCmd.Parameters.Append objParameter Set adoRs = adoCmd.Execute If Not adoRs.EOF Then noticeLise_rs = adoRs.GetRows noticeLise_rs_cnt = ubound(noticeLise_rs,2) Else noticeLise_rs_cnt = -1 End If msg = noticeLise_rs(3,0) if len(msg) > 25 then msgTitle = left(msg,25)&"..." end if msg = replace(msg,chr(13)&chr(10),"
") preChk = noticeLise_rs(0,0) nextChk = noticeLise_rs(1,0) Set adoRs = Nothing Set adoCmd = Nothing %>
<%=noticeLise_rs(0, i)%> <%=msgTitle%> <% if DateDiff("h",noticeLise_rs(2, i),Now()) < 24 then response.write " " end if %> <%=left(noticeLise_rs(4, i),10)%>
<%=msg%>
<% if preChk <> "" then %><% end if %> <% if nextChk <> "" then %> <% end if %>
<% Set adoRs = Nothing Set adoCmd = Nothing %>