Codango: ASP Code Snippet

JSP

Share The Love

You are 1 of 25 Active ASP Visitors

ASP Home | Resources | Write a Review | My Favor-Its | Login

Fuzzy PopupCode Snippet

Read Reviews | Report Errors

[+][+]

1
Reviews

4
Favor-It

Enables you to open a centered popup without adding javascript or asp to every page that needs a popup. Call popup.asp and add the page, Height, Width, Scroll(yes/no), Close(closewindow button-Yes/No) and more to the querystring. Manual is included. Code: ASP 2.0 & VBScript


		Code Snippet

Code Written By: Fuzzy Daze from www.thicor.com

<%
'**********************************************************************************************************
'* This page opens a popup window with the page you want at any size                                      *
'* centered on the screen regardless of resolution                                                        *
'*                                                                                                        *
'* Syntax = popup.asp?page=YourPage&Height=xx&Width=xx&Scroll=Yes/No&Close=Yes/No&Type=doctype&Extra=Text *
'*   YourPage = The page you want to open                                                                 *
'*   Height = The Height of the window / object you want to display in pixels                             *
'*   Width = The Width of the window / object you want to display in pixels                               *
'*   Scroll = Wether you want scrollbars in your window                                                   *
'*   Close = Wether you want a close button below your page/object                                        *
'*           The window will be slightly bigger than the height and width you supply                      *
'*           to hold the close-button and you must supply the                                             *
'*   Type = Type of object to display                                                                     *
'*           If either Close or Type is omitted, the button will not display                              *
'*           Valid types are among others: (Do not use the quotes)                                        *
'*           "image/gif" (also for jpeg), "image/png", "audio/wav", "audio/midi",                         *
'*           "video/mpeg", "video/quicktime", "application/x-shockwave-flash",                            *
'*           "text/html" en "text/plain"                                                                  *
'*    Extra = Fallbacktext or htmlcode in case the object doesn't show when you use a closebutton         *
'*                                                                                                        *
'* created by Fuzzy Daze  Please do not remove this line.                                                 *
'**********************************************************************************************************

Sub FuzWrite(strWriteThis)
         'This subroutine just writes out whatever is
         'passed to it.
         'syntax: FuzWrite("Text" or Variable)
         response.write(strWriteThis &vbNewLine)
end sub

FuzPage   = Request.QueryString("Page")
FuzHeight = Request.QueryString("Height")
FuzWidth  = Request.QueryString("Width")
FuzScroll = Request.QueryString("Scroll")
FuzClose  = Request.QueryString("Close")
FuzType   = Request.QueryString("Type")
FuzExtra  = Request.QueryString("Extra")

FuzHeight1 = FuzHeight
FuzWidth1 = FuzWidth
If FuzExtra = Empty Then
	FuzExtra = "The object is unavailable"
End If
If FuzClose="yes" then
  If FuzType <> Empty Then
    FuzType = "Type='" &FuzType &"'"
	  FuzPage = Chr(34) &"about:<body><div align='center'><object standby='One moment please' data=" &FuzPage &" height='" &FuzHeight &"' width='" &Fuzwidth &"' " &FuzType &">" &FuzExtra &"</object><br><input type='button' value='close window' onclick='window.close()'></div></body>" &Chr(34)
    If FuzWidth1 < 90 then
    	FuzWidth1 = 140
    Else
      FuzWidth1 = FuzWidth1 + 50
    End If
    FuzHeight1 = FuzHeight1 + 50
  Else 
    FuzPage = "'" &FuzPage &"'"
  End If
Else 
  FuzPage = "'" &FuzPage &"'"
End If
%>

<html>
<HEAD>

<SCRIPT LANGUAGE="JavaScript">
function NewWindow(mypage, myname, w, h, scroll) {
var winl = (screen.width - w) / 2;
var wint = (screen.height - h) / 2;
winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable=no'
win = window.open(mypage, myname, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
</script>
</HEAD>

<BODY>
<script language='javascript'>
<% 
  FuzWrite ("NewWindow(" &FuzPage &",'Fuzzy','" &FuzWidth1 &"','" &FuzHeight1 &"','" &FuzScroll &"');")
%>
history.go(-1)
</script>
</body>
</html>


	Shopping Cart

To use the code above, click and drag your mouse over the code to highlight it. Then right click on the highlighted code and click "Copy." Now you may paste it into your code editor.

Submit Your Own Code to Codango


Link to Us \| About Us		Advertise \| Contact Us \| Website Help
Write a User Review Today! Its Fun, Fast, and Easy!	Codango Home \| PHP \| ASP.NET \| ASP \| JSP Advertise With Us \| About Us \| Terms of Use \| Privacy Policy


� 2013 ezd.com, All rights reserved