Accueil > > > POPUP EN ASP
POPUP EN ASP
Information sur la source
Description
cette fonction affiche ou ferme un popup
ENTREES : URL (adresse de la page à afficher dans le popup : optionnel)
NomPopup (nom du popup : optionnel)
BarreDesLiens (drapeau indiquant l'affichage ou non de la barre de liens : yes,no : optionnel, par defaut = "no")
BarreDesMenus (drapeau indiquant l'affichage ou non de la barre de menu : yes,no : optionnel, par defaut = "no")
BarreNav (drapeau indiquant l'affichage ou non de la barre de navigation : yes,no : optionnel, par defaut = "no")
BarreDuStatut (drapeau indiquant l'affichage ou non de la barre de statut : yes,no : optionnel, par defaut = "no")
ZoneAdresse (drapeau indiquant l'affichage ou non de la zone d'adresse : yes,no : optionnel, par defaut = "no")
Ascenseurs (drapeau indiquant l'affichage ou non des scrollings : yes,no,auto : optionnel, par defaut = "no")
Dimensionnable (drapeau indiquant si le popup est ou n'est pas redimensionnable : yes,no : optionnel, par defaut = "no")
Hauteur (Hauteur du popup en pixels : nombre entier)
Largeur (Largeur du popup en pixels : nombre entier)
PositionH (Position horizontale en pixels sur l'écran : nombre entier : optionnel, par defaut = 0)
PositionV (Position verticale en pixels sur l'écran : nombre entier : optionnel, par defaut = 0)
PleinEcran (drapeau indiquant l'affichage plein écran ou non du popup : yes,no : optionnel, par defaut = "no")
TitrePopup (Titre du popup : optionnel)
Texte (texte à afficher dans le popup : optionnel)
Choix (drapeau indiquant l'ouverture ou la fermeture du popup : "0","ouverture","yes" = ouverture, "1","fermeture","no" = fermeture)
SORTIES : NEANT
Source
- function PopUp(URL,NomPopup,BarreDesLiens,BarreDesMenus,BarreNav,BarreDuStatut,ZoneAdresse,Ascenseurs,Dimensionnable,Hhauteur,Largeur,PositionH,PositionV,PleinEcran,TitrePopup,Texte,Choix)
- Dim strRetour,sep
-
- sep = " "
- if (BarreDesLiens="") then BarreDesLiens="no" end if
- if (BarreDesMenus="") then BarreDesMenus="no" end if
- if (BarreNav="") then BarreNav="no" end if
- if (BarreDuStatut="") then BarreDuStatut="no" end if
- if (ZoneAdresse="") then ZoneAdresse="no" end if
- if (Ascenseurs="") then Ascenseurs="no" end if
- if (Dimensionnable="") then Dimensionnable="no" end if
- if (Hhauteur="") then Hhauteur="100" end if
- if (Largeur="") then Largeur="250" end if
- if (PositionH="") then PositionH="100" end if
- if (PositionV="") then PositionV="200" end if
- if (PleinEcran="") then PleinEcran="no" end if
- strRetour = "<script language=""JavaScript"">" & vbcrlf
- strRetour = strRetour & sep & "var w;" & vbcrlf
- SELECT CASE LCase(Choix)
- CASE "o","ouverture","yes","0","open"
- strRetour = strRetour & sep & "w = window.open ("""&URL&""",'"&NomPopup&"','directories="&BarreDesLiens&",menubar="&BarreDesMenus&",toolbar="&BarreNav&",status="&BarreDuStatut&",location="&ZoneAdresse&",scrollbars="&Ascenseurs&",resizable="&Dimensionnable&",height="&Hhauteur&",width="&Largeur&",top="&PositionV&",left="&PositionH&",fullscreen="&PleinEcran&"');" & vbcrlf
- strRetour = strRetour & sep & "w.document.write(""<html>"");" & vbcrlf
- IF TitrePopup <> "" THEN
- strRetour = strRetour & sep & "w.document.write(""<TITLE>"&TitrePopup&"</TITLE>"");" & vbcrlf
- END IF
- strRetour = strRetour & sep & "w.document.write(""<body>"");" & vbcrlf
- IF Texte <> "" THEN
- strRetour = strRetour & sep & "w.document.write(""<div align=center>"&Texte&"</div>"");" & vbcrlf
- END IF
- strRetour = strRetour & sep & "w.document.write(""<br>"");" & vbcrlf
- strRetour = strRetour & sep & "w.document.write(""<div align=center><a href='javascript:self.close();'>fermer</a></div>"");" & vbcrlf
- strRetour = strRetour & sep & "w.document.write(""</body>"");" & vbcrlf
- strRetour = strRetour & sep & "w.document.write(""</html>"");" & vbcrlf
- CASE "n","fermeture","no","1","close"
- ' temporisation
- strRetour = strRetour & sep & "temporisateur(1,""FermerFenetre(w)"");" & vbcrlf
- END SELECT
- strRetour = strRetour & "</script>" & vbcrlf
- response.write(strRetour)
- end function
- function PopupSimple(URL,NomPopup,Hhauteur,Largeur,TitrePopup,Texte,Choix)
- PopupSimple = PopUp(URL,NomPopup,"","","","","","","",Hhauteur,Largeur,"","","",TitrePopup,Texte,Choix)
- end function
-
- A ceci, il faut ajouter la fonction JavaScript :
- function temporisateur(seconde,fonction) {
- setTimeout(fonction,seconde*1000);
- }
- function FermerFenetre(NomFenetre){
- if (NomFenetre.document) { NomFenetre.close(); }
- }
- qui permettent de temporiser avant la fermeture du popup
function PopUp(URL,NomPopup,BarreDesLiens,BarreDesMenus,BarreNav,BarreDuStatut,ZoneAdresse,Ascenseurs,Dimensionnable,Hhauteur,Largeur,PositionH,PositionV,PleinEcran,TitrePopup,Texte,Choix)
Dim strRetour,sep
sep = " "
if (BarreDesLiens="") then BarreDesLiens="no" end if
if (BarreDesMenus="") then BarreDesMenus="no" end if
if (BarreNav="") then BarreNav="no" end if
if (BarreDuStatut="") then BarreDuStatut="no" end if
if (ZoneAdresse="") then ZoneAdresse="no" end if
if (Ascenseurs="") then Ascenseurs="no" end if
if (Dimensionnable="") then Dimensionnable="no" end if
if (Hhauteur="") then Hhauteur="100" end if
if (Largeur="") then Largeur="250" end if
if (PositionH="") then PositionH="100" end if
if (PositionV="") then PositionV="200" end if
if (PleinEcran="") then PleinEcran="no" end if
strRetour = "<script language=""JavaScript"">" & vbcrlf
strRetour = strRetour & sep & "var w;" & vbcrlf
SELECT CASE LCase(Choix)
CASE "o","ouverture","yes","0","open"
strRetour = strRetour & sep & "w = window.open ("""&URL&""",'"&NomPopup&"','directories="&BarreDesLiens&",menubar="&BarreDesMenus&",toolbar="&BarreNav&",status="&BarreDuStatut&",location="&ZoneAdresse&",scrollbars="&Ascenseurs&",resizable="&Dimensionnable&",height="&Hhauteur&",width="&Largeur&",top="&PositionV&",left="&PositionH&",fullscreen="&PleinEcran&"');" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""<html>"");" & vbcrlf
IF TitrePopup <> "" THEN
strRetour = strRetour & sep & "w.document.write(""<TITLE>"&TitrePopup&"</TITLE>"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""<body>"");" & vbcrlf
IF Texte <> "" THEN
strRetour = strRetour & sep & "w.document.write(""<div align=center>"&Texte&"</div>"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""<br>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""<div align=center><a href='javascript:self.close();'>fermer</a></div>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""</body>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""</html>"");" & vbcrlf
CASE "n","fermeture","no","1","close"
' temporisation
strRetour = strRetour & sep & "temporisateur(1,""FermerFenetre(w)"");" & vbcrlf
END SELECT
strRetour = strRetour & "</script>" & vbcrlf
response.write(strRetour)
end function
function PopupSimple(URL,NomPopup,Hhauteur,Largeur,TitrePopup,Texte,Choix)
PopupSimple = PopUp(URL,NomPopup,"","","","","","","",Hhauteur,Largeur,"","","",TitrePopup,Texte,Choix)
end function
A ceci, il faut ajouter la fonction JavaScript :
function temporisateur(seconde,fonction) {
setTimeout(fonction,seconde*1000);
}
function FermerFenetre(NomFenetre){
if (NomFenetre.document) { NomFenetre.close(); }
}
qui permettent de temporiser avant la fermeture du popup
Conclusion
Rien de bien compliqué!
Vous pouvez modifier le temps de temporisation de fermeture du popup
Comme vous le voyez, vous pouvez ouvrir un popup par défaut, ayant les atttributs par défaut sinon, appelez la fonction Popup avec tous les paramètres que vous voulez!
Voici une page asp exemple :
<%
function PopUp(URL,NomPopup,BarreDesLiens,BarreDesMenus,Bar reNav,BarreDuStatut,ZoneAdresse,Ascenseurs,Dimensi onnable,Hhauteur,Largeur,PositionH,PositionV,Plein Ecran,TitrePopup,Texte,Choix)
Dim strRetour,sep
sep = " "
if (BarreDesLiens="") then BarreDesLiens="no" end if
if (BarreDesMenus="") then BarreDesMenus="no" end if
if (BarreNav="") then BarreNav="no" end if
if (BarreDuStatut="") then BarreDuStatut="no" end if
if (ZoneAdresse="") then ZoneAdresse="no" end if
if (Ascenseurs="") then Ascenseurs="no" end if
if (Dimensionnable="") then Dimensionnable="no" end if
if (Hhauteur="") then Hhauteur="100" end if
if (Largeur="") then Largeur="250" end if
if (PositionH="") then PositionH="100" end if
if (PositionV="") then PositionV="200" end if
if (PleinEcran="") then PleinEcran="no" end if
strRetour = "<script language=""JavaScript"">" & vbcrlf
strRetour = strRetour & sep & "var w;" & vbcrlf
SELECT CASE LCase(Choix)
CASE "o","ouverture","yes","0","open"
strRetour = strRetour & sep & "w = window.open ("""&URL&""",'"&NomPopup&"','directories="&BarreDe sLiens&",menubar="&BarreDesMenus&",toolbar="&Barre Nav&",status="&BarreDuStatut&",location="&ZoneAdre sse&",scrollbars="&Ascenseurs&",resizable="&Dimens ionnable&",height="&Hhauteur&",width="&Largeur&",t op="&PositionV&",left="&PositionH&",fullscreen="&P leinEcran&"');" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""<html>"");" & vbcrlf
IF TitrePopup <> "" THEN
strRetour = strRetour & sep & "w.document.write(""<TITLE>"&TitrePopup&"< ;/TITLE>"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""<body>"");" & vbcrlf
IF Texte <> "" THEN
strRetour = strRetour & sep & "w.document.write(""<div align=center>"&Texte&"</div>"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""<br>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""<div align=center><a href='javascript:self.close();'>fermer</a> ;</div>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""</body>"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""</html>"");" & vbcrlf
CASE "n","fermeture","no","1","close"
' temporisation
strRetour = strRetour & sep & "temporisateur(1,""FermerFenetre(w)"");" & vbcrlf
END SELECT
strRetour = strRetour & "</script>" & vbcrlf
response.write(strRetour)
end function
function PopupSimple(URL,NomPopup,Hhauteur,Largeur,TitrePop up,Texte,Choix)
PopupSimple = PopUp(URL,NomPopup,"","","","","","","",Hhauteur,L argeur,"","","",TitrePopup,Texte,Choix)
end function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Acceuil</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<script language="JavaScript">
<!--
function temporisateur(seconde,fonction) {
setTimeout(fonction,seconde*1000);
}
functio n FermerFenetre(NomFenetre){
if (NomFenetre.document) { NomFenetre.close(); }
}
//-->
</script>
</HEAD>
&l t;BODY>
<%
call PopupSimple("","Test","150","300","Ceci est un test","Bonjour toua!","0")
call PopupSimple("","Test","","","","","1")
%>
< ;/BODY>
</HTML>
Sources du même auteur
GESTION DE FICHIER (CRÉER, LIRE, RAJOUTER DES LIGNES,EFFACER...GESTION DE FICHIER (CRÉER, LIRE, RAJOUTER DES LIGNES,EFFACER, DÉTRUIRE) Ben voilà, j'ai fait une fonction utilisant le FILESYSTEMOBJECT qui permet de manipuler des fichiers.
Vous pouvez créer, lire, rajouter des lignes, d...
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Redirection url ASP [ par plka ]
Bonjour à tout le monde.J'ai deux urls que j'ai envie de rediriger par rapport à l'adresse popup qui s'appelle: /popup-login.asp?lng=nl&url=1 une atre
utiliser un paramètre passé en paramètre d'une page à l'autre [ par weejay ]
Bonjour,alors pour mon premier message, j'ai une question TRES, TRES bête. Pardon d'avance, c'est que je débute sous asp.net.Alors j'ai 2 pages : defa
créer des url automatique selon l'utilisateur, style blog [ par wally88 ]
Coucou, je cherche comment faire des liens selon l'utilisateur ou autres infos.exemple ont s'inscrit sur un blog le blog va etre du style http://utili
Récupérer variable csharp dans un objet d'une page aspx [ par weejay ]
Bonjour,j'ai encore une question très très simple.Jai une page page_1.aspx qui ouvre une page popup_player.aspx.page_1.aspx.csstring url = "popup_play
Redimensionner un Popup [ par some_one ]
Bonjour je veux redimensionner un fenetre que j'ai ouvert de maniere suivant: href="javascript:window.showModalDialog('popup.aspx?ID=<%# Eval("id_h
Modal popup Extender [ par exxtaz ]
Bonjour,Le panel que je décide d'afficher en popup grace au control AJAX disparait après moins d'une seconde d'apparition sans intervention de ma part
Comment figer figer la dimension d'une fenêtre. [ par PascalCmoa ]
Bonjour à tous,J'aimerai savoir comment rendre une fenêtre (ie, firefox, ...) non redimensionnable. En fait, je voudrais savoir comment rendre inactif
récupérer une URL dans access [ par nico5969 ]
Hello a tous...eh oui je suis de retour avecune nouvelle question ....je vais finir par payer un coup sur le site moi...Bref....Mon new probleme....Su
problème d'un popup [ par noutazia ]
Bonjour, je developpe sur une application et mon problem est comme suit j'ai un popup qui s'ouvre à partir d'une page mére celui ci comporte un lien p
envoyer une url avec variable et jmail [ par ribeirojose ]
Bonjours à tous.apres une matinée a me prendre la teteje trouve pas ma solutionje part d'une page formulaire.asp simpleavec champ nom mail et mail d'e
|
Derniers Blogs
CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT)CSS CONTENT STATE SELECTORS (PERSONNAL DRAFT) par FREMYCOMPANY
Bonjour à tous, Je viens de publier une proposition comprenant 5 pseudo-classes pour le CSS Working Group ayant trait à l'état de chargement d'un élément (ex: IMG,VIDEO,AUDIO,OBJECT pour l'HTML.). Si le c½ur vous en dit, vous pouvez retrouver cette p...
Cliquez pour lire la suite de l'article par FREMYCOMPANY MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ?MBA : POURQUOI FAIRE ET COMMENT LE CHOISIR ? par ROMELARD Fabrice
Formation initiale Durant la formation, le découpage classique est le suivant (je donnerai les équivalences Suisse lorsque je les connaîtrais) : Ecole primaire jusqu'au Collège : Formation générale permettant d'obtenir les méthodes...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice Y'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENTY'A DES ERREURS QUI PEUVENT RENDRE LE DéVELOPPEUR VIOLENT par Aleks
Quand on a ce genre d'erreur sans log :
Et bas on a juste envie de choper le gas de Microsoft qu'a développé ça et lui foutre des baffes de Coboye ! ...
Cliquez pour lire la suite de l'article par Aleks [HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL[HYPER-V 3] PRéSENTATION DES COMMANDLETS POWERSHELL par Pierrick CATRO-BROUILLET
Avec la sortie prochaine de la Beta Consumer Preview de Windows 8, j'avais envie de revenir sur une des fonctionnalités que j'attends le plus et que, en bon geek que je suis, j'utilise déjà : Hyper-V 3 ainsi son module PowerShell.
Il y a déjà pléthor...
Cliquez pour lire la suite de l'article par Pierrick CATRO-BROUILLET IIS7 - COMPRESSION GZIPIIS7 - COMPRESSION GZIP par cyril
La compression GZIP permet d'améliorer les performances de navigation en compressant ce qu'envoie le serveur à un client. Pour comprendre comment cela fonctionne, regardons ce qu'il se passe au niveau HTTP lorsqu'un client tente d'accéder à une ress...
Cliquez pour lire la suite de l'article par cyril
Forum
SCRIPTSCRIPT par nadialadypower
Cliquez pour lire la suite par nadialadypower
Logiciels
Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning Academy System (17.1.3.0)ACADEMY SYSTEM (17.1.3.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|