แนะนำ: การออกแบบเคาน์เตอร์ผู้เยี่ยมชมที่น่าสนใจสองรายการ ในฐานะที่เป็นส่วนที่ขาดไม่ได้ของเว็บไซต์เคาน์เตอร์ผู้เข้าชมไม่เพียง แต่สามารถบันทึกจำนวนครั้งที่เว็บไซต์ได้เข้าเยี่ยมชม แต่ยังช่วยเพิ่มความสนุกสนานและความสามารถในการดูหน้าเว็บผ่านการออกแบบที่สดใสและน่าสนใจ หน้าหนังสือ. ต่อไปนี้เป็นสองความสนุกในการออกแบบที่ง่าย
เมื่อฉันสร้างโปรแกรมให้กับลูกค้าฉันพบปัญหาทันทีซึ่งเป็นวิธีการเล่นรูปแบบวิดีโอใน 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) |
แบ่งปัน: แนะนำ: สรุปซอร์สโค้ดที่ใช้กันทั่วไปสำหรับผู้เริ่มต้นของ ASP 1. รับเวลาระบบ: <%= ตอนนี้ ()%> 2. รับ IP ที่ใช้สำหรับการเยี่ยมชม: <%= request.ServerVariables (remote_host)%> 3. รับระบบ, รุ่นเบราว์เซอร์: <script>