เมื่อสร้างโปรแกรมสำหรับลูกค้าฉันพบปัญหาทันทีนั่นคือเมื่อผู้ใช้หน้าผลิตภัณฑ์ส่งไฟล์การเล่นวิดีโอวิธีการเล่นรูปแบบวิดีโอที่ถูกต้องใน URL ที่ส่ง ... ฉันรู้สึกหดหู่อยู่พักหนึ่งและคิดเกี่ยวกับความคิด เขียนเพื่ออำนวยความสะดวกในการโทรในระบบอื่น ๆ ในอนาคต
ซอร์สโค้ดได้รับการเผยแพร่ในขณะนี้:
การคัดลอกรหัสมีดังนี้:
Sub Selplay (Strurl, strwidth, stheight)
Dim exts, isext
ถ้า strurl <> แล้ว
isext = lcase (mid (strurl, instrrev (strurl,.)+1))
อื่น
isext =
สิ้นสุดถ้า
exts = avi, wmv, asf, mov, rm, ram
ถ้า instr (exts, isext) = 0 แล้ว
Response.write ไฟล์วิดีโอที่ผิดกฎหมาย
อื่น
เลือกกรณี ISEXT
Case Avi, WMV, ASF, MOV
response.write <embed id = mediaPlayer src = & strurl & width = & strwidth & height = & stheight & loop = false autostart = true> </embed>
Case Mov, Rm, Ram
response.write <object height = & strieight & 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 value = -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 = value console = clip>
response.write <param name = ค่า loop = 0>
response.write <param name = numloop value = 0>
Response.write <param name = ค่าศูนย์ = 0>
response.write <param name = reaveSpect value = 0>
response.write <param name = backgroundColor value =#000000>
Response.write </jobch>
Response.write <br>
Response.write <ความสูงของวัตถุ = 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 value = 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 = value console = clip>
response.write <param name = ค่า loop = 0>
response.write <param name = numloop value = 0>
Response.write <param name = ค่าศูนย์ = 0>
response.write <param name = reaveSpect value = 0>
response.write <param name = backgroundColor value =#000000>
Response.write </jobch>
สิ้นสุดเลือก
สิ้นสุดถ้า
สิ้นสุดย่อย
วิธีการโทร:
การคัดลอกรหัสมีดังนี้:
โทร Selplay (Dvurl, 280,220)
ในความเป็นจริงรหัสที่ดีกว่าในซอร์สโค้ดผู้เล่นออนไลน์ที่ค่อนข้างดี ฯลฯ คุณสามารถอ้างถึงได้เช่น: Max และระบบการเล่นวิดีโออื่น ๆ