Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Apresentação de slides

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Crie um slideshow que irá exibir o texto de um banco de dados; qualquer texto, ASP ou arquivo html em seu site na web, ou qualquer imagem na web usando um acesso a banco de dados.

 

<%@ Language = VBScript%>
<%
With Response
	.Buffer=true
	.Expires=0
	.Clear
End With
%>
<HTML>
<BODY>

<H3>Slide Show  </ h3> 
Crie um slideshow que irá exibir o texto de um banco de dados; qualquer texto, ASP ou arquivo html no seu web site, ou qualquer imagem na web usando um banco de dados. <br>
<br>
<hr width=400 align=left>
<br>
<br>


<%
 ''''''''''''''''''''''''''''''
 ' CLASS CODE
 ''''''''''''''''''''''''''''''
class Presentation
	public ConnString
	public ConnUser
	public ConnPass

	private sub class_initialize()

	end sub

	private sub class_terminate()

	end sub

	private function GetSlideShowFile(ByVal path)
		Dim FSO, file, t

		Set FSO = Server.CreateObject("Scripting.FileSystemObject")
		Set File = FSO.OpenTextFile( server.Mappath( path ) )
		t = File.ReadAll
		File.Close
		Set File = Nothing
		Set FSO = Nothing

		GetSlideShowFile = t
	end function

	public property Get TotalPages
		Dim c, r

		set c = server.createobject("adodb.connection")
		set r = server.createobject("adodb.recordset")
		c.Open ConnString, ConnUser, ConnPass
		r.Open "EXECUTE sp_GetAllSlides", c, 3, 1, &H0001
		TotalPages = r.recordcount
		r.close
		c.close
		set r = nothing
		set c = nothing
	end property

	public function GetPage(ByVal page)
		Dim c, r, slidetype, displayitem

		set c = server.createobject("adodb.connection")
		set r = server.createobject("adodb.recordset")
		c.Open ConnString, ConnUser, ConnPass
		r.open "EXECUTE sp_GetSlide " & CLng(page), c
		if not r.bof then
			slidetype = lcase(r.fields("slidetype").value)
			displayitem = r.fields("displayitem").value

			if slidetype = "text" then
'Um item de texto é levado diretamente a partir do banco de dados 

				GetPage = "<CODE>"
				GetPage = GetPage & server.htmlencode( displayitem ) 
				GetPage = GetPage & "</CODE>"
			end if

			if slidetype = "image" then
	'	Criar uma tag de imagem, porque nós estamos mostrando uma foto.				GetPage = "<IMG SRC=""" & displayitem & """>"
			end if

			if slidetype = "html" then
								GetPage = GetSlideShowFile(displayitem)
			end if
		end if

		r.close
		c.close
		set r = nothing
		set c = nothing

	end function
End Class

%>


<%
 ''''''''''''''''''''''''''''''
 ' RUNTIME CODE
 ''''''''''''''''''''''''''''''
Dim displayMethod, delay, displayPages, p, page, displayItem

displayMethod = lcase(Request("display"))
delay = 3 'seg

on error resume next
page = clng(session("slideshowcurrentpage"))
if err then page = 1 else page = page + 1
if page < 1 then page = 1
on error goto 0

Set p = new Presentation
p.ConnString = application("dbConn")
p.ConnUser = application("dbUsr")
p.ConnPass = application("dbPass")
displayPages = p.TotalPages

'Depois que ler a última página, comece de novo na página 1
If page > displayPages then page = 1

displayItem = p.GetPage(page)
Set p = nothing

session("slideshowcurrentpage") = clng(page)




response.write "Pagina: " & page & " of " & displayPages
response.write "<br>"
response.write "<br>"
response.write displayItem
response.write "<br>"
response.write "<br>"
response.write "<center>"
response.write "<a href=""./aspapps.asp?eid=3"">"
response.write "<font size=""-1"" face=arial>next page ></font></a>"
response.write "</center>"
%>

</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