<% strPathInfo = request("name") a = Right(strPathInfo, 13) b = Mid(a, 1, 9) strPhysicalPath = Server.MapPath(strPathInfo) set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFile(strPhysicalPath) set objFileTextStream = objFile.OpenAsTextStream(1, -2) strFileLine = objFileTextStream.ReadLine flag = 0 If Mid(strFileLine,13,2) = "국내" Then strPhysicalPath2 = Server.MapPath("/news/template/local_mountain.htm") ' 국내산 ElseIf Mid(strFileLine,13,2) = "마운" Then strPhysicalPath2 = Server.MapPath("/news/template/mountain.htm") ' 마운틴광장 flag = 1 ElseIf Mid(strFileLine,13,2) = "기획" Then strPhysicalPath2 = Server.MapPath("/news/template/culture.htm") ' 기획문화 ElseIf Mid(strFileLine,13,2) = "인물" Then strPhysicalPath2 = Server.MapPath("/news/template/people.htm") ' 인물 ElseIf Mid(strFileLine,13,2) = "업체" Then strPhysicalPath2 = Server.MapPath("/news/template/tool.htm") ' 장비 flag = 1 Else strPhysicalPath2 = Server.MapPath("/news/template/overseas_mountain.htm") ' 해외산 End If set objFSO2 = Server.CreateObject("Scripting.FileSystemObject") set objFile2 = objFSO2.GetFile(strPhysicalPath2) set objFileTextStream2 = objFile2.OpenAsTextStream(1, -2) k=0 Do while k < 71 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '날짜 response.Write Left(b, 4) & " ." & Mid(b, 5, 2) Do while k < 86 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '제목 i = 0 Do while i < 1 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") 'strLine = replace(strLine, """, "'") if i = 0 Then response.Write strLine & "
" title = strLine title = replace(strLine,"
", "") title = replace(strLine,"
", "") title = replace(strLine,"
", "") End If i = i + 1 loop '부제목 Do while i < 3 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") If i = 1 Then response.Write strLine Else response.Write "
" & strLine End If i = i + 1 loop Do while k < 88 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop '본문 c = Mid(strPathInfo,1,22) i=0 '최근 3개월거 체크 ch = Left(a, 6) cd = Left(date(), 4) cd = cd & Mid(date(), 6,2) kt = cd - ch If (kt < 3 AND flag = 0) Then Do while i < 16 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,b, c) ' 절대링크로 바꾸기... strLine = replace(strLine,">", ">") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") intwhere = InStr(strLine, "") If (b = 200709039 or b= 200611006 or b = 200611008 or b = 200608007) Then tail_flag = 1 '아님 원래 Do while i < 10000 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,b, c) ' 절대링크로 바꾸기... strLine = replace(strLine,">", ">") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") intwhere = InStr(strLine, "") If intwhere > 0 Then i = 9999 End If response.Write strLine i = i + 1 loop ElseIf intwhere > 0 Then i = 9999 End If response.Write strLine i = i + 1 loop If tail_flag = 1 Then Else tail = "
" tail = tail & "
" tail = tail & "
본 기사는 3개월 후 인터넷에 모든 내용이 공개됩니다.
" tail = tail & "자세한 내용을 보시려면
월간 MOUNTAIN " & Left(b,4) & "년 " & Mid(b, 5, 2) & "월호
를 참조하세요
" tail = tail & "
" tail = tail & "
" response.Write tail End If Else '아님 원래 Do while i < 10000 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,b, c) ' 절대링크로 바꾸기... strLine = replace(strLine,">", ">") strLine = replace(strLine, """, chr(34)) strLine = replace(strLine, "굛", "세") intwhere = InStr(strLine, "") if intwhere > 0 Then i = 9999 End If response.Write strLine i = i + 1 loop End If Do while k < 100 strFileLine = objFileTextStream2.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"&", "&") strLine = replace(strLine,"<", "<") strLine = replace(strLine,">", ">") strLine = replace(strLine, """, "'") response.Write strLine k = k + 1 loop %>
