<% Option Explicit Response.Buffer = True ' インクルードがある場合は↓に! %> <% Dim ErrorFlag ErrorFlag = True Dim melody_id melody_id = Request("id") If Not CheckNumber(melody_id,5,5) Then ErrorFlag = False End If If ErrorFlag Then ' カウントの処理をしてください。 ' テーブル用の【YYYYMM】を取得 'Dim sDate, sDay 'sDate = CStr(Year(Date)) & Right("0" & CStr(Month(Date)), 2) ' ダウンロード日用の日付を取得 'sDay = Day(Date) 'Dim DB, RS, Query 'Set DB = Server.CreateObject("ADODB.Connection") 'DB.Open "PROVIDER=SQLOLEDB;SERVER=192.168.2.232;DATABASE=AuditionInfo;UID=audition01;PWD=audition01" 'DB.BeginTrans 'Query = _ ' "SELECT * FROM AuditionInfo.dbo.NmeloPlayHistory" & sDate & _ ' " WHERE dl_day = " & sDay & "" & _ ' " AND song_id = '" & melody_id & "'" 'Set RS = Server.CreateObject("ADODB.RecordSet") 'RS.Open Query, DB, adOpenKeyset, adLockPessimistic, adCmdText 'If RS.EOF Then ' RS.AddNew ' RS("dl_day") = sDay ' RS("song_id") = melody_id ' RS("cnt") = 1 'Else ' RS("cnt") = RS("cnt") + 1 'End If 'RS.Update 'RS.Close 'Set RS = Nothing 'DB.CommitTrans 'DB.Close 'Set DB = Nothing Response.ContentType="video/x-ms-asf" %> <% Else %> ページを表示出来ませんでした。
ページを表示出来ませんでした。
The page you requested could not be accessed.

(株)NHKグローバルメディアサービス
<% End If Response.End ' チェック用サブルーチン Function CheckNumber(sAddr,sAddrMin,sAddrMax) Dim iLen, sError, I iLen = Len(sAddr) CheckNumber = False If iLen = 0 Then Exit Function ElseIf iLen < sAddrMin Then Exit Function ElseIf iLen > sAddrMax Then Exit Function End If For I = 1 To iLen If InStr("0123456789", UCase(Mid(sAddr, I, 1))) = 0 Then Exit Function End If Next CheckNumber = True End Function %>