begin process at 2012 02 05 01:47:24
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Javascript/DHTML

 > POPUP EN ASP

POPUP EN ASP


 Information sur la source

Note :
6,67 / 10 - par 6 personnes
6,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Javascript/DHTML Classé sous :popup, url, barres, dimension, personnalisable Niveau :Débutant Date de création :27/09/2001 Vu :31 771
Auteur : kiminox

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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 :

&lt;%
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 = "&lt;script language=""JavaScript""&gt;" & 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(""&lt;html&gt;"");" & vbcrlf
IF TitrePopup &lt;&gt; "" THEN
strRetour = strRetour & sep & "w.document.write(""&lt;TITLE&gt;"&TitrePopup&"&lt ;/TITLE&gt;"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""&lt;body&gt;"");" & vbcrlf
IF Texte &lt;&gt; "" THEN
strRetour = strRetour & sep & "w.document.write(""&lt;div align=center&gt;"&Texte&"&lt;/div&gt;"");" & vbcrlf
END IF
strRetour = strRetour & sep & "w.document.write(""&lt;br&gt;"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""&lt;div align=center&gt;&lt;a href='javascript:self.close();'&gt;fermer&lt;/a&gt ;&lt;/div&gt;"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""&lt;/body&gt;"");" & vbcrlf
strRetour = strRetour & sep & "w.document.write(""&lt;/html&gt;"");" & vbcrlf
CASE "n","fermeture","no","1","close"
' temporisation
strRetour = strRetour & sep & "temporisateur(1,""FermerFenetre(w)"");" & vbcrlf
END SELECT
strRetour = strRetour & "&lt;/script&gt;" & 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
%&gt;
&lt;!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;Acceuil&lt;/TITLE&gt;
&lt;META NAME="Generator" CONTENT="EditPlus"&gt;
&lt;META NAME="Author" CONTENT=""&gt;
&lt;META NAME="Keywords" CONTENT=""&gt;
&lt;META NAME="Description" CONTENT=""&gt;
&lt;script language="JavaScript"&gt;
&lt;!--
function temporisateur(seconde,fonction) {
setTimeout(fonction,seconde*1000);
}
functio n FermerFenetre(NomFenetre){
if (NomFenetre.document) {  NomFenetre.close(); }
}
//--&gt;
&lt;/script&gt;
&lt;/HEAD&gt;
&l t;BODY&gt;
&lt;%
call PopupSimple("","Test","150","300","Ceci est un test","Bonjour toua!","0")
call PopupSimple("","Test","","","","","1")
%&gt;
&lt ;/BODY&gt;
&lt;/HTML&gt;



 Sources du même auteur

GESTION DE FICHIER (CRÉER, LIRE, RAJOUTER DES LIGNES,EFFACER...
Toutes les sources de kiminox

 Sources de la même categorie

Source avec une capture Source .NET (Dotnet) CALENDRIER POPUP ET MULTICONTROLES par nico5969
Source avec Zip Source avec une capture Source .NET (Dotnet) ONGLETS DYNAMIQUES POUR ASP.NET par s_shadow
Source avec Zip LOADING DANS UNE PAGE par Jackboy
Source avec Zip AFFICHER / MASQUER LES COLONNES D'UN TABLEAU SANS RECHARGEME... par matche
Source avec Zip Source .NET (Dotnet) VILLE EN FONCTION DU CP SOUS FORME DE CONTROLE ET SANS POSTB... par jesusonline
Toutes les sources de la catégorie Javascript/DHTML

 Sources en rapport avec celle ci

Source avec une capture Source .NET (Dotnet) CALENDRIER POPUP ET MULTICONTROLES par nico5969
Source .NET (Dotnet) VERIFIER L'EXITENCE D'UN URL par fouedelapoche
Source avec une capture Source .NET (Dotnet) CALENDAR POPUP CUSTOMISÉ POUR DEMI JOURNÉE par Coolpix08
Source avec Zip Source avec une capture Source .NET (Dotnet) EFFET DE POPUP par Funcky
Source .NET (Dotnet) FONCTION POUR GÉNÉRER UN JAVACRIPT D'OUVERTURE D'UNE IMAGE E... par tikrimi

Commentaires et avis

Commentaire de fr64 le 25/09/2003 11:29:01

C'est du JavaScript qui avance masqué

Commentaire de Tanis49 le 02/11/2004 17:29:17

c parlant comme code.....
un vrais regal.....

Commentaire de io_ost le 11/05/2006 12:59:06

bon code bien expliquer

 Ajouter un commentaire


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=&lt;%# 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


Nos sponsors


Sondage...

Comparez les prix


Mio - Moov V735 - GPS Europe - Ecran 7"
Entre 305€ et 375€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Renewable Energy is Within ReachPhoto Underwater View of the Ocean With LIght Shining Through the Wave
Photo vue aerienne de Kerassel, Le logéo, Golfe du Morbihan (56) 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,654 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)