%@ 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)
'1行目はイメージ名
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 %>
|
|
|
|
<%
If mytime >= 6 and mytime < 9 then
%>
<% Else If mytime >= 9 and mytime < 12 then %>
<% Else If mytime >= 12 and mytime < 15 then %>
<% Else If mytime >= 15 and mytime < 18 then %>
<% Else %>
<%
End If
End If
End If
End If
%>
|
|
|
|
|
|
|