<%
If Request("GoTopage")="" Then
curpage = 1
Else
curpage = cint(Request("GoTopage"))
End If
CurPage2 = CurPage
ipp = 15
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\cons2.dat")
strconnect = f.Readline
set Dbcon=Server.CreateObject("ADODB.Connection")
Dbcon.Open strconnect
If curpage = 1 Then
postcount = 500
Else
sql = "SELECT count(DISTINCT CMSRELATIONNAME) AS cnt FROM newsinfo where (SVC_CODE like '02010%' OR SVC_CODE like '0020%')"
set rs=Dbcon.Execute(sql)
postcount = rs("cnt")
'총 글의 개수를 구한다
rs.Close
set rs = nothing
End If
Set DbRec=Server.CreateObject("ADODB.RecordSet")
DbRec.CursorType = 1
If curpage = 1 Then
DbRec.Open "SELECT NEWSKEY, CMSRELATIONNAME,SVC_DATE,MODIFYDATE,NEWSTITLE,ISWEBSERVICETYPE FROM newsinfo where (modifydate in (select max(modifydate) from newsinfo group by CMSRELATIONNAME) AND (SVC_CODE like '02010%' OR SVC_CODE like '02020%')) ORDER BY MODIFYDATE DESC fetch first 15 rows only",DbCon
Else
DbRec.Open "SELECT NEWSKEY, CMSRELATIONNAME,SVC_DATE,MODIFYDATE,NEWSTITLE,ISWEBSERVICETYPE FROM newsinfo where (modifydate in (select max(modifydate) from newsinfo group by CMSRELATIONNAME) AND (SVC_CODE like '02010%' OR SVC_CODE like '02020%')) ORDER BY MODIFYDATE DESC",DbCon
End If
totpage = fix(postcount / ipp)
'전체 페이지의 수를 구한다
If (totpage * ipp) <> postcount Then
totpage = totpage + 1
End If
For a = 1 To (curpage - 1) * ipp
DbRec.MoveNext
Next
%>
-
<%
i = 1
k = 1
Do until DbRec.EOF Or i>ipp
'기사 내용 추리기
file_id = DbRec("NEWSKEY")
xml_file_name = file_id & ".xml"
servicedate = DbRec("SVC_DATE")
' XML 데이터 주소
url = "http://218.145.26.131/news/html/" & Left(servicedate,4) & "/" & Mid(servicedate,5,2) & "/" & Mid(servicedate,7,2) & "/" & xml_file_name
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Set oDOM = Server.CreateObject("Microsoft.XMLDOM")
with oDOM
.async = False ' 동기식 호출
.setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴
.Load(url)
end with
Set Nodes = oDOM.getElementsByTagName("WebNewsLayoutML")
For each SubNodes in Nodes
photocount = SubNodes.getElementsByTagName("PhotoCount")(0).Text
CreateDate = SubNodes.getElementsByTagName("ModifyDate")(0).Text
If photocount <> 0 Then
ImgFilename = SubNodes.getElementsByTagName("ServerDataFileName")(0).Text
End If
WebText = SubNodes.getElementsByTagName("WebText")(0).Text
Next
ImgFilename = replace(ImgFilename, ".j", "_l.j")
Set Nodes = Nothing
Set oDOM = Nothing
CreateDate = replace(CreateDate, "T", " ")
CreateDate = Left(CreateDate, 16)
If photocount = 0 Then
%>
- <% Else %>
-
&ServiceDate=<%=DbRec("SVC_DATE")%>">
<%
MyChoice = 10
Total_Block = int(TotPage / MyChoice)
If int(TotPage) Mod MyChoice = 0 Then
Total_Block = Total_Block - 1
End If
If Request("block") <> "" Then
NowBlock = Request("block")
Else
NowBlock = 0
End If
If TotPage > 0 Then
If Cint(NowBlock) > 0 Then
CurPage = (int(NowBlock * MyChoice) - (MyChoice - 1))
%>
이전
<%
Else
%>
<%
End If
%>
<%
If Cint(Total_Block) <> Cint(NowBlock) Then
For Gopage = 1 To MyChoice
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
Else
If (TotPage Mod MyChoice = 0) Then
ttt = MyChoice
Else
ttt = TotPage Mod MyChoice
End If
For Gopage = 1 To ttt
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
End If
'다음 블럭의 첫페이지 수를 계산한다.
CurPage = (int(NowBlock * MyChoice) + Gopage)
If (Cint(Total_Block) > 0) and (Cint(NowBlock) < Cint(Total_Block)) Then
%>
<%
End If
End If
%>
다음 
이전
<%
Else
%>
<%
End If
%>
<%
If Cint(Total_Block) <> Cint(NowBlock) Then
For Gopage = 1 To MyChoice
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
Else
If (TotPage Mod MyChoice = 0) Then
ttt = MyChoice
Else
ttt = TotPage Mod MyChoice
End If
For Gopage = 1 To ttt
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
End If
'다음 블럭의 첫페이지 수를 계산한다.
CurPage = (int(NowBlock * MyChoice) + Gopage)
If (Cint(Total_Block) > 0) and (Cint(NowBlock) < Cint(Total_Block)) Then
%>
<%
End If
End If
%>
다음
