顧客のためにプログラムを作成するとき、私は突然問題に遭遇しました。つまり、製品ページユーザーがビデオ再生ファイルを送信するとき、提出された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）に電話する
実際、比較的優れたオンラインプレーヤーソースコードなどでは、より良いコードは、次のような参照を参照できます。