顧客のためにプログラムを作成するとき、私は突然問題に遭遇しました。つまり、製品ページユーザーがビデオ再生ファイルを送信するとき、提出されたURLで正しいビデオ形式を再生する方法...将来、他のシステムでの呼び出しを促進するために、一般的な呼び出し関数が書かれました。
ソースコードは次のようにリリースされます。
コードコピーは次のとおりです。
サブ販売(Strurl、Strwidth、Strheight)
dim exts、isext
strurl <> thenの場合
iSext = lcase(mid(strurl、instrrev(strurl、。)+1)))
それ以外
iSext =
ifを終了します
exts = avi、wmv、asf、mov、rm、ram
If strust(exts、isext)= 0 then
respons.write違法なビデオファイル
それ以外
ケースISEXTを選択します
ケースAVI、WMV、ASF、MOV
Response.write <embed id = mediaplayer src =&strurl&width =&strwidth&height =&strheight&loop = false autostart = true> </embed>
ケースMOV、RM、RAM
Response.Write <Object Height =&strheight&width =&strwidth&classId = clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
Response.write <param name = _extentx value = 12700>
Response.write <param name = _extenty value = 9525>
Response.write <param name = autostart値= -1>
Response.write <param name = shuffle value = 0>
Response.write <param name = prefetch value = 0>
Response.write <param name = nolabels value = 0>
Response.write <param name = src value =&strurl&>
Response.write <param name = controls value = imageWindow>
Response.write <param name = console value = clip>
Response.write <param name = loop value = 0>
response.write <param name = numloop value = 0>
Response.write <param name = center value = 0>
response.write <param name = maintingaspect value = 0>
Response.write <param name = backgroundcolor値=#000000>
Response.Write </object>
Response.Write <br>
Response.Write <Object Height = 32 width =&strwidth&classId = clsid:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA>
Response.write <param name = _extentx value = 12700>
Response.write <param name = _extenty value = 847>
response.write <param name = autostart値= 0>
Response.write <param name = shuffle value = 0>
Response.write <param name = prefetch value = 0>
Response.write <param name = nolabels value = 0>
Response.write <param name = controls value = controlpanel、statusbar>
Response.write <param name = console value = clip>
Response.write <param name = loop value = 0>
response.write <param name = numloop value = 0>
Response.write <param name = center value = 0>
response.write <param name = maintingaspect value = 0>
Response.write <param name = backgroundcolor値=#000000>
Response.Write </object>
[選択]を終了します
ifを終了します
End Sub
通話方法:
コードコピーは次のとおりです。
sellay(dvurl、280,220)に電話する
実際、比較的優れたオンラインプレーヤーソースコードなどでは、より良いコードは、次のような参照を参照できます。