BSNラジオTOP

<%@ LANGUAGE = VBScript %> <% Option Explicit Dim fsContent,tsWk Dim myyear,mymonth,mydate,myweek,myday,mytime,mysecn Dim strWk,strFile,strDat,strDate,strImg,strMenu,strNews Dim i,ct,MaxCt,strTitle(100),strUpdDate 'エンコード設定 Response.ContentType = "text/html" Response.Charset = "Shift_JIS" '今日の日付読み込み myyear = DatePart("yyyy", Now) mymonth = DatePart("m", Now) mydate = DatePart("d", Now) mytime = DatePart("h", Now) mysecn = DatePart("s", Now) myweek = Weekday(Date()) myday = WeekdayName(myweek,true) 'TXT取込 Set fsContent = CreateObject("Scripting.FileSystemObject") 'アナウンサーイメージ名取込 strDat = FormatDateTime(Date(),vbGeneralDate) strDate = mid(strDat,6,2) & right(strDat,2) strFile = Server.MapPath("/") & "\anno04\diary\txt\" strFile = strFile & strDate & ".txt" If fsContent.FileExists(strFile) Then Set tsWk = fsContent.OpenTextFile(strFile) '１行目はイメージ名 strWk = tsWk.ReadLine() strImg = "img04/" & strWK & ".gif" 'File Close tsWk.close Else strImg = "img04/0yasumi.gif" End IF 'MENU部分読みこみ strFile = "d:\Mydomain\ohbsn\menu\menu.txt" If fsContent.FileExists(strFile) Then Set tsWk = fsContent.OpenTextFile(strFile) strWk = "" & vbcrlf Do Until tsWk.AtEndOfLine strWk = strWk & tsWk.ReadLine & vbcrlf Loop strMenu = strwk 'File Close tsWk.close End if 'ラジオ最新ニュース読みこみ strFile = "\\db01\mdb\csv\rd_news.txt" If fsContent.FileExists(strFile) Then Set tsWk = fsContent.OpenTextFile(strFile) strWk = "" & vbcrlf Do Until tsWk.AtEndOfLine strWk = strWk & tsWk.ReadLine & "
" & vbcrlf Loop strNews = strwk 'File Close tsWk.close End if %> BSNラジオTOP

<% If mysecn MOD 2 = 0 Then %>

<% Else %>

<% End If %>

<%= myyear %>/<%= mymonth %>/<%= mydate %> (<%= myday %>)

<%= strMenu %>