1. ホーム
  2. Web プログラミング
  3. プログラミング10000問

オンデマンドで曲をオンライン実装する方法は?

2022-01-17 20:46:16

<%.
dim choose、path、mydb、myset、SQL、fs、mp3
' <スパン ユーザー投稿フォームを取得する (list.htm) 選択したトラックが対応する イド <スパン いいえ。 , に代入し、それを文字列変数 を選択します。
choose=
<スパン " ("
for i=3 to request.form.count
choose=choose
<スパン + request.form(i) +" ,"

choose=left(choose,len(choose))です。
- <スパン 1) +" <スパン )"
if choose= " <スパン ()" では
response.redirect() " list.htm") <未定義

応答.終了

' <スパン <スパン 判定 <スパン 選ぶ 変数 , が含まれていない場合 id いいえ。 , <スパン 説明 リスト.htm で選択された曲はありません。 , <スパン 解約の手順 .
終了する場合
パス=
"

E:\pub ╱゙゙゙゙゙ෆ

' <スパン ファイルパスの設定 , <スパン 置く テンポ ディレクトリのパーミッションは インターネット アノニマスユーザーは 読む &です。 書く アクセス権について .
セット fs = CreateObject(
"

Scripting.FileSystemObject")を使用します。
Set mp3 = fs.CreateTextFile(path)
+ " listen.m3u", 真)

' <スパン ファイルオブジェクトの作成 .
set mydb=server.createobject()
"

adodb.connection") を使用します。

' <スパン データベースオブジェクトの作成 .
mydb.open
" music"
SQL=
" select mp3name,url from " &です。 dbname &" ここで id は " に含まれます。 &です。 choose set myset=tdb.execute(SQL)
do while not myset.eof

' <スパン <スパン データベースを検索する <スパン , <スパン トラック情報を取得する .
mp3.Write(
"

http://"。 + myset( "

url") + <スパン chr(10))
myset.movenext

' <スパン オンデマンドトラックファイルのリストを生成する .
ループ
SQL=
" update music set click=click + <スパン 1,
this=this + 1 where id in " &です。 選ぶ
mydb.execute(SQL)

' <スパン 当日のオンデマンド放送の件数とオンデマンド放送の総件数でデータベースを更新する .
set myset=nothing
mydb.closeを実行します。
set mydb=nothing
mp3.close
set mp3=nothing

' <スパン <スパン クリア .
response.redirect()
" listen.m3u")

' <スパン <スパン ユーザーへのダウンリンク .
response.end
%>

[1]