Recommandé: deux conceptions de comptoirs de visiteur intéressants En tant que partie indispensable du site Web, le compteur des visiteurs peut non seulement enregistrer le nombre de fois où le site Web est visité, mais aussi améliorer le plaisir et la vision de la page Web par conception vive et intéressante, faisant du compteur de visiteurs un paysage sur le Web page. Voici deux plaisir de conception facile
Lorsque je faisais un programme pour le client, j'ai soudainement rencontré un problème, qui était de savoir comment lire correctement le format vidéo dans l'URL soumise lorsque l'utilisateur a soumis le fichier de lecture vidéo sur la page du produit ... J'ai été déprimé pendant un certain temps et y a pensé.
L'idée est d'obtenir d'abord le type de fichier et de sélectionner différents codes de lecteur Web en fonction du type ... trois à cinq à deux ... en même temps, pour la réutilisabilité du code à l'avenir, une fonction d'appel général était écrit pour faciliter l'avenir.
Le code source est maintenant publié comme suit:
| Ce qui suit est le contenu cité: Sub Selplay (Strurl, Strwidth, Strheight) DIM EXTS, ISEXT Si strurl <> alors ISEXT = LCase (Mid (Strurl, Instrev (Strurl,.) 1)) Autre isext = Terminer si Exts = Avi, WMV, ASF, MOV, RM, RAM Si instr (exts, iSExt) = 0 alors Réponse.Write Fichier vidéo illégal Autre Sélectionner le cas ISEXT Case Avi, WMV, ASF, MOV Réponse.Write <embed id = mediaPlayer src = & strurl & width = & strwidth & height = & strheight & loop = false autostart = true> </embed> Case MOV, RM, RAM Response.Write <Object Height = & StrHeight & Width = & Strwidth & Classid = CLSID: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA> Réponse.write <param name = _extentx value = 12700> Réponse.write <param name = _Extenty Value = 9525> Réponse.write <param name = Autostart Value = -1> Réponse.write <param name = shuffle valeur = 0> Réponse.write <param name = prefetch Value = 0> Réponse.write <param name = nolabels value = 0> Réponse.write <param name = src value = & strurl &> Réponse.write <param name = Controls value = imagewindow> Réponse.write <param name = Console Value = Clip> Réponse.write <param name = Loop Value = 0> Réponse.write <param name = numloop value = 0> Réponse.write <param name = Center Value = 0> Réponse.write <param name = maintenueura valeur = 0> Réponse.Write <param name = backgroundcolor value = # 000000> Réponse.Write </BOBLE> Réponse.WRITE <br> Response.Write <Object Height = 32 Wideth = & Strwidth & Classid = ClSid: CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA> Réponse.write <param name = _extentx value = 12700> Réponse.write <param name = _Extenty Value = 847> Réponse.write <param name = Autostart Value = 0> Réponse.write <param name = shuffle valeur = 0> Réponse.write <param name = prefetch Value = 0> Réponse.write <param name = nolabels value = 0> Response.Write <param name = Controls Value = ControlPanel, Statusbar> Réponse.write <param name = Console Value = Clip> Réponse.write <param name = Loop Value = 0> Réponse.write <param name = numloop value = 0> Réponse.write <param name = Center Value = 0> Réponse.write <param name = maintenueura valeur = 0> Réponse.Write <param name = backgroundcolor value = # 000000> Réponse.Write </BOBLE> Fin de sélection Terminer si Sub-Sub |
Méthode d'appel:
| Ce qui suit est le contenu cité: Appelez SelPlay (Dvurl, 280,220) |
Partager: recommandé: Résumé du code source couramment utilisé pour les débutants de l'ASP 1. Obtenez le temps du système: <% = maintenant ()%> 2. Obtenez l'IP utilisé pour visiter: <% = request.servervariables (Remote_host)%> 3. Obtenez le système, version du navigateur: <cript>