página automático de slide show

[xanburzum 169]

A finalidade desse script é o de proporcionar uma página automático de slide show estilo apresentação ambiente.

 

<!-- #include file="sequence.dat" -->
<%

	Dim mySource, myPrev, myNext, IsAuto, curSec, myBot, myTop, myDelay, IsMiddle

	myBot = Fix( LBound( myPages ) )
	myTop = Fix( UBound( myPages ) )
	myIdx = Fix( Request.QueryString( "page" ) )
	myDelay = myPages(myIdx)(1)
	
	If Request.QueryString( "play" ) = "true" Then
		IsAuto = True
	Else
		IsAuto = False
	End If

	If Fix( Request.QueryString( "page" ) ) < myTop And Fix( Request.QueryString( "page" ) ) >= myBot Then
		IsMiddle = True
	Else
		IsMiddle = False
	End If

	Public Function AutoTime()
		mySec = Second(now) + myDelay
		If mySec > 59 Then
			mySec = mySec - 60
		End If
		Do While Not curSec = mySec
			curSec = Second(now)
		Loop
		myAuto = "present.asp?page=" & Request.QueryString( "page" ) + 1 & "&play=true"
		Response.Write( "<script language='JavaScript'> self.location.href='" & myAuto & "'; </script>" )
	End Function
	
	Public Function GetPage( xPage )
		Dim myFile
		myPath = Server.MapPath( "/includes/" )
		myFile = myPath & myPages( xPage )(0)
		Set FS = Server.CreateObject( "Scripting.FileSystemObject" )
		Set FN = FS.OpenTextFile( myFile )
		mySource = FN.ReadAll
		FN.Close
		Set FS = NOTHING
	End Function

	Public Function SetLinks()
		If Fix( Request.QueryString( "page" ) ) > myBot Then
			myPrev = Request.QueryString( "page" ) - 1
		End If
		If Fix( Request.QueryString( "page" ) ) < myTop Then
			myNext = Request.QueryString( "page" ) + 1
		End If
	End Function

	If Len( Request.QueryString( "page" ) ) < 0 Then
		Call GetPage( 0 )
		Call SetLinks()
	Else
		Call GetPage( Request.QueryString( "page" ) )
		Call SetLinks()
	End If
	Response.Write( "<hr>" & Chr(10) )
	Response.Write( mySource )
	Response.Write( Chr(10) & "<br><hr><br>" & Chr(10) )
	Response.Write( "<table width='350' align='center'><tr><td align='center' width='100'>" )
	Response.Write( Request.QueryString( "page" ) + 1 & " of " & myTop + 1 & "</td><td align='center' width='125'>" )
	If Len( myPrev ) > 0 Then
		Response.Write( "<a href='present.asp?page=" & myPrev & "'>Previous</a>" )
	Else
		Response.Write( "<a href='present.asp?play=true'>Automatico</a>" )
	End If
	Response.Write( "</td><td align='center' width='125'>" )
	If Len( myNext) > 0 Then
		Response.Write( "<a href='present.asp?page=" & myNext & "'>Next</a>" )
	End If
	Response.Write( "</td></tr></table>" )
	
	If IsAuto And IsMiddle Then
		Call AutoTime()
	End If
	
%>

[filipescoob 1]

A finalidade desse script é o de proporcionar uma página automático de slide show estilo apresentação ambiente.

 

<!-- #include file="sequence.dat" -->

E este include ?

[xanburzum 169]

arquivo sequence.dat

 

<%

	REM	Project:		Presentation Script
	REM	Creator:		xanburzumm
	REM	Date:		08/03/2009

	REM	myPages(x) = Array( "filename.xxx", x )
	REM	Páginas serão exibidas na ordem em que entram no Array myPages.
	REM	filename.xxx é o arquivo para dsiplay, e os x é o atraso em segundos para 

mostrar a página.

	Dim myPages(3)

	myPages(0) = Array( "page1.html", 3 )
	myPages(1) = Array( "page2.html", 5 )
	myPages(2) = Array( "page3.html", 3 )

%>

[Rodrigo Resende 1]

Não é possível exibir a página

Ocorreu um problema com a página que você está tentando acessar e não é possível exibi-la.

 

Experimente o seguinte:

 

* Clique no botão Atualizar ou tente novamente mais tarde.

* Abra a localhost home page e procure os links para as informações desejadas.

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

Informações técnicas (para a equipe de suporte)

 

* Tipo de erro:

Microsoft VBScript runtime (0x800A0035)

File not found

/Loja virtual/present.asp, line 40

 

* Tipo de navegador:

Mozilla/5.0 (Windows; U; Windows NT 5.1; pt-BR; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11

 

* Página:

GET /Loja virtual/present.asp

 

* Hora:

24 Haziran 2009 Çarşamba, 07:59:17

 

* Mais informações:

Suporte da Microsoft

Deu esse erro.

O que aconteceu?

[Ted k' 126]

Movido de Artigos, Tutoriais e Matérias (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Laboratório de scripts (ASP)