<% strPathInfo = request("name") k = Right(Trim(strPathInfo),5) If (k = "h.htm" OR k = "o.htm" OR k = "e.htm" OR k = "up.js" OR k = "p.htm" OR k = "e.htm" OR k = "nt.js" OR k = "n.ico" OR k = " .gif" OR k = "-.gif" OR k = "t.htm" OR k = "m.htm") Then Else strPhysicalPath = Server.MapPath(strPathInfo) set objFSO = Server.CreateObject("Scripting.FileSystemObject") set objFile = objFSO.GetFile(strPhysicalPath) set objFileTextStream = objFile.OpenAsTextStream(1, -2) %>
스포츠조선 > 라이프 > 경마/경륜/경정 > 출마표
<% '본문 추려내기... i = 0 Do while i < 2 strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"뎽", "분") strLine = replace(strLine,"뎾", "초") If i = 0 Then a = Mid(strLine, 3, 2) b = Mid(strLine, 5, 2) c = Right(strLine, 1) %> <%=a%>월 <%=b%>일 <%=c%>요일 <% End If i = i + 1 loop %>

★ 낙승가능마 ◎ 우승예상마 ○ 입상후보마 △ 도전마 ※ 복병마
대 = 김대유 경 = 경마팬신보 스 = 스포츠경마 마 = 김영호 검 = 검빛경마
3F기록 = Srace.com제공 이 = 이규승 애 = 애마신보 명 = 김명원
조교상태 =마사일호 제공 출전마 평균기록 및 최근성적 = 신마뉴스제공



<% l = 0 Do while l < 2 If l = 1 Then %> <% End If strFileLine = objFileTextStream.ReadLine strLine = Server.HTMLEncode(strFileLine) strLine = replace(strLine,"뎽", "분") strLine = replace(strLine,"뎾", "초") If strLine = "" Then l = l + 1 Else If Left(strLine, 1) = "제" Then %> <% Else %> <% End If End If loop End If %>
마번
마명
성별
연령
중량
증감
산지
기수
조교사
경
스
검
마
조교
질주
3F 기록
평균기록
승군
출전마 최근성적(원안은 착순)
마번
마명
성별
연령
중량
증감
산지
기수
조교사
경
스
검
마
조교
질주
3F 기록
평균기록
승군
출전마 최근성적(원안은 착순)
<% response.Write strLine %>
<% strLine = replace(strLine,"=", "
") response.Write strLine %>