オンデマンドで曲をオンライン実装する方法は?
<%.
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
で選択された曲はありません。
,
<スパン
解約の手順
.
終了する場合
パス=
"
'
<スパン
ファイルパスの設定
,
<スパン
置く
テンポ
ディレクトリのパーミッションは
インターネット
アノニマスユーザーは
読む
&です。
書く
アクセス権について
.
セット fs = CreateObject(
"
Set mp3 = fs.CreateTextFile(path) + " listen.m3u", 真)
'
<スパン
ファイルオブジェクトの作成
.
set mydb=server.createobject()
"
'
<スパン
データベースオブジェクトの作成
.
mydb.open
"
music"
SQL=
"
select mp3name,url from "
&です。
dbname
&"
ここで id は " に含まれます。
&です。
choose set myset=tdb.execute(SQL)
do while not myset.eof
'
<スパン
<スパン
データベースを検索する
<スパン
,
<スパン
トラック情報を取得する
.
mp3.Write(
"
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]
関連
-
IPv6とIPv4のアプリケーションの分析概要と相違点
-
データベースのページをリモートで読むには?
-
直近の10人の訪問者を表示するには?
-
URLのフォーマットが仕様に準拠しているかどうかを判断する方法は?
-
ユーザーが初めて私のサイトにアクセスしたことを検知し、フレンドリーなメッセージを表示するにはどうすればよいですか?
-
ASPページのロード時間を計算するには?
-
コンポーネントでメールを自動化する方法とは?
-
POP3でメールを受信するには?
-
あなたのウェブサイトの画像に違法なリンクを貼られないようにするには?
-
ページエラーやデータベース接続エラーの詳細をプログラムで教えてもらうことはできますか?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
webインタビュー よくある質問 httpキャッシュの解決関連
-
推薦システムとは何か、その基本原理 ユースケース
-
asp の RecordSet オブジェクトを使用した JScript での GetRows
-
サイト外からのフォーム送信を無効にする(author:killer)
-
フォームから参照されるASPページを修正するには?
-
ASPページにExcelファイルを入れるには?
-
ページめくり機能の書き方は?
-
ASPを使用して添付ファイル付きのメールを送信するには?
-
ASPでIndex Serverクエリオブジェクトを作成し、そのパラメータに値を割り当てるにはどうすればよいですか?
-
ASP Q&A集