-
공지사항
<% function getSiteRootUrl() dim siteRootUrl, protocol, hostname, port if Request.ServerVariables("HTTPS") = "off" then protocol = "http" else protocol = "https" end if siteRootUrl = protocol & "://" hostname = Request.ServerVariables("HTTP_HOST") siteRootUrl = siteRootUrl & hostname port = Request.ServerVariables("SERVER_PORT") if port <> 80 and port <> 443 then siteRootUrl = siteRootUrl & ":" & port end if getSiteRootUrl = siteRootUrl end function %> -
사업공고
<% Session.CodePage = 65001 Response.CharSet = "utf-8" Response.AddHeader "Pragma", "no-cache" Response.AddHeader "cache-control", "no-staff" Response.Expires = -1 Response.ContentType="text/html" %> <% targetURL = "http://www.ntis.go.kr/rndgate/unRndRss.xml?prt=5&Fi=1" Set xmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP") xmlHttp.Open "GET", targetURL, False xmlHttp.Send Set xmlDOM = server.CreateObject("Microsoft.XMLDOM") xmlDOM.async = False xmlDOM.loadXML( xmlHttp.responseText ) %><% Set nodeRows = xmlDOM.selectNodes("/rss/channel/item") For Each nodeRow In nodeRows Set nodeTitle = nodeRow.selectSingleNode("title") Set nodePubDate = nodeRow.selectSingleNode("pubDate") Set nodeLink = nodeRow.selectSingleNode("link") commaText = "" If Len(nodeTitle.text) > 36 Then commaText = "..." End if %>
<%=LEFT(nodeTitle.Text,32)%><%=commaText%>