Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] popup

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Permite-lhe abrir uma popup centralizada, sem acrescentar javascript ou asp para cada página que necessita de um popup. Chamada popup.asp e adicionar a página, altura, largura, marque (sim / não), Close (closeWindow button-Yes/No) e mais à querystring.

 

<%

Sub pop(strWriteThis)
response.write(strWriteThis &vbNewLine)
end sub

varPage = Request.QueryString("Page")
varHeight = Request.QueryString("Height")
varWidth = Request.QueryString("Width")
varScroll = Request.QueryString("Scroll")
varClose = Request.QueryString("Close")
varType = Request.QueryString("Type")
varExtra = Request.QueryString("Extra")

varHeight1 = varHeight
varWidth1 = varWidth
If varExtra = Empty Then
varExtra = " O objeto está indisponível "
End If
If varClose="yes" then
If varType <> Empty Then
varType = "Type='" &varType &"'"
varPage = Chr(34) &"about:<body><div align='center'><object standby='Um momento porfavor' data=" &varPage &" height='" &varHeight &"' width='" &varwidth &"' " &varType &">" &varExtra &"</object><br><input type='button' value='close window' onclick='window.close()'></div></body>" &Chr(34)
If varWidth1 < 90 then
varWidth1 = 140
Else
varWidth1 = varWidth1 + 50
End If
varHeight1 = varHeight1 + 50
Else 
varPage = "'" &varPage &"'"
End If
Else 
varPage = "'" &varPage &"'"
End If
%>

<html>
<HEAD>

<script LANGUAGE="JavaScript">
function NewWindow(minhapage, meunome, 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(minhapage, meunome, winprops)
if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
}
</script>
</HEAD>

<BODY>
<script language='javascript'>
<% 
varWrite ("NewWindow(" &varPage &",'Fuzzy','" &varWidth1 &"','" &varHeight1 &"','" &varScroll &"');")
%>
history.go(-1)
</script>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito