Empfohlen: zwei interessante Besucher -Zählerdesigns Als unverzichtbarer Bestandteil der Website kann der Besucherschalter nicht nur die Anzahl der Besuche der Website aufzeichnen, sondern auch die Spaß und die Sehbarkeit der Webseite durch lebendiges und interessantes Design verbessern, wodurch der Besucher eine Landschaft im Internet enthält Seite. Das Folgende sind zwei einfache Designspaß
Als ich ein Programm für den Kunden machte, stieß ich plötzlich auf ein Problem, das war, wie man das Videoformat in der eingereichten URL korrekt abgespielt hat und dachte darüber nach.
Die Idee besteht geschrieben, um die Zukunft zu erleichtern.
Der Quellcode wird jetzt wie folgt veröffentlicht:
| Das Folgende ist der zitierte Inhalt: Sub -Selple (StRURL, STRWIDTH, STRHEYHT) Dim Exts, ist ISEXT Wenn Streurl <> dann isext = lase (Mid (StRURL, Instrrev (Streurl,.) 1)) Anders isext = Ende wenn Exts = AVI, WMV, ASF, MOV, RM, RAM Wenn Instrum Antwort.Write illegale Videodatei Anders Wählen Sie den Fall Isext Fall AVI, WMV, ASF, MOV Response.write <Einbett ID = MediaPlayer src = & stRURL & width = & strwidth & height = & strHeight & loop = false autostart = true> </einbett> Fall Mov, RM, Ram Antwort. Antwort.Write <param name = _extentx value = 12700> Antwort.Write <param name = _extenty value = 9525> Antwort.Write <param name = autostart value = -1> Antwort.Write <param name = shuffle value = 0> Antwort.Write <param name = prefetch value = 0> Antwort.Write <param name = nolabels value = 0> Response.write <param name = src value = & stRURL &> Antwort. Antwort.Write <param name = console value = clip> Antwort.Write <param name = Loop value = 0> Antwort.Write <param name = numloop value = 0> Antwort.Write <param name = center value = 0> Antwort. Antwort. Antwort.Write </Object> Response.write <br> Antwort. Antwort.Write <param name = _extentx value = 12700> Antwort.Write <param name = _extenty value = 847> Antwort.Write <param name = autostart value = 0> Antwort.Write <param name = shuffle value = 0> Antwort.Write <param name = prefetch value = 0> Antwort.Write <param name = nolabels value = 0> Antwort.Write <Paramame Antwort.Write <param name = console value = clip> Antwort.Write <param name = Loop value = 0> Antwort.Write <param name = numloop value = 0> Antwort.Write <param name = center value = 0> Antwort. Antwort. Antwort.Write </Object> Ende auswählen Ende wenn Ende sub |
Anrufmethode:
| Das Folgende ist der zitierte Inhalt: Rufen Sie SULPSE (DVURL, 280,220) an |
Teilen: Empfohlen: Zusammenfassung des häufig verwendeten Quellcode für Anfänger von ASP 1. Systemzeit erhalten: <%= Now ()%> 2. Erhalten Sie die für den Besuch verwendete IP: <%= Request.Servervariables (Remote_host)%> 3. System erhalten, Browserversion: <Script>