<% System sysRSSnews dim f, b, l, i, boxes, boxname, sysoraperc l = request.item("l") if l = "" then l = "j" end if if l = "j" and sysRSSnews <> "1" and Abs(now() - DateToSeconds(SecondsToDate(FileModified("j-boxes/idopont")))) > 14400 then spawn "j-rssnews.asp" end if if l = "e" and sysRSSnews <> "1" and Abs(now() - DateToSeconds(SecondsToDate(FileModified("e-boxes/idopont")))) > 14400 then spawn "e-rssnews.asp" end if //f = FileOpen(l & "-boxes/idopont") //= FileRead(f) //FileClose f f = Fileopen(l & "-boxes/idopont") sysoraperc = FileRead(f) Fileclose f b = request.item("b") if b = "" then b = "general" end if if l = "e" then ParseString boxes, "general it forbes sport travel movies hollywood fun journal", " " ParseString boxname, "General,IT,Forbes,Sports,Travel,Movies,Hollywood,Fun,Online Journal", "," else ParseString boxes, "general regional it sport music job", " " ParseString boxname, "一般ニュース,地域ニュース,I T,スポーツ/芸能,音 楽,仕 事", "," end if %> <% if l = "j" then %> <% else %> <% end if %>


<% = iif(l=" width="226" height="62">
Last updated: <% if l = "j" then %> <% = SecondsToDate(now(), "yyyy") %> <% = SecondsToDate(now(), "m") %> <% = SecondsToDate(now(), "d") %> <% = sysoraperc %> <% else %> <% = SecondsToDate(now(), "dd") %> <% = SecondsToDate(now(), "mmm") %> <% = SecondsToDate(now(), "yyyy") %> <% = sysoraperc %> <% end if%>
 
<% if l = "j" then %>
ニュース FLASH
<% else %>
NEWS FLASH EN
<% end if %>
 
<% For i = 1 to Ubound(boxes) if boxes(i) = b then = "" & boxname(i) & " " else = "" & boxname(i) &" " end if if i < Ubound(boxes) then = "" end if next %>
 
<% f = FileOpen(l & "-" &"boxes/" & b) = FileRead(f) FileClose f %>





© 2007- <% = SecondsToDate(now(), "year") %> naruhodo.com • e-mailsitemap

Bookmark and Share