Ketika membuat program untuk pelanggan, saya tiba -tiba mengalami masalah, yaitu, ketika pengguna halaman produk mengirimkan file pemutaran video, cara memainkan format video yang benar dalam url yang dikirimkan ... Saya tertekan untuk sementara waktu, dan dipilih tentang ide dan mulai dari waktu ke masa depan dan dua kali ... Fungsi panggilan umum ditulis untuk memfasilitasi panggilan di sistem lain di masa depan.
Kode sumber sekarang dirilis sebagai berikut:
Salinan kode adalah sebagai berikut:
Sub Selplay (Strurl, Strwidth, Strheight)
Redup, isext
Jika Strurl <> lalu
isext = lcase (mid (strurl, instrrev (strurl ,.)+1))
Kalau tidak
iSext =
Akhiri jika
Exts = avi, wmv, asf, mov, rm, ram
If instr (exts, iSext) = 0 lalu
Response.write file video ilegal
Kalau tidak
SELECT CASE ISEXT
Case Avi, WMV, ASF, MOV
Response.write <embed id = mediaplayer src = & strurl & width = & strwidth & height = & strheight & loop = false autostart = true> </sembed>
Case mov, rm, ram
Response.write <objek tinggi = & strheight & lebar = & strwidth & classid = clsid: cfcdaa03-8be4-11cf-b84b-0020afbbccfa>
Response.write <param name = _extentX value = 12700>
Response.write <param name = _extente value = 9525>
Response.write <param name = autostart value = -1>
Response.write <param name = shuffle value = 0>
Response.write <param name = prefetch value = 0>
Response.write <param name = nolabels nilai = 0>
Response.write <param name = src value = & strurl &>
Response.write <param name = kontrol nilai = imagewindow>
Response.write <param name = value konsol = clip>
Response.write <param name = nilai loop = 0>
Response.write <param name = numLoop value = 0>
Response.write <param name = nilai tengah = 0>
Response.write <param name = maintaspect value = 0>
Response.write <param name = BackgroundColor value =#000000>
Response.write </pes 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 = _extente value = 847>
Response.write <param name = autostart value = 0>
Response.write <param name = shuffle value = 0>
Response.write <param name = prefetch value = 0>
Response.write <param name = nolabels nilai = 0>
Response.write <param name = kontrol nilai = controlpanel, statusbar>
Response.write <param name = value konsol = clip>
Response.write <param name = nilai loop = 0>
Response.write <param name = numLoop value = 0>
Response.write <param name = nilai tengah = 0>
Response.write <param name = maintaspect value = 0>
Response.write <param name = BackgroundColor value =#000000>
Response.write </pes Object>
Akhiri Pilih
Akhiri jika
Akhir sub
Metode panggilan:
Salinan kode adalah sebagai berikut:
Hubungi Selplay (DVURL, 280.220)
Faktanya, kode yang lebih baik, dalam beberapa kode sumber pemain online yang relatif baik, dll., Anda dapat merujuknya, seperti: Max dan sistem pemutaran video lainnya.