Ir para conteúdo

POWERED BY:

Arquivado

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

Neji

slide imagens

Por , em ASP Clássico

Recommended Posts

Neji    0

Neji
Postado

boa tarde, pretendia fazer um slide de imagens mas há um problema, é que esse slide tem de "carregar" as imagens que foram inseridas na base de dados, não sei se me faço entender mas vou dar um exemplo do que quero fazer.

 

eu sou o administrador e vou inserir uma imagem na galeria de fotos, de seguida vai adicionar o url da imagem na tabela galeria em mysql, eu quero que adicione nesse slide também, não sei se isto e possível, espero que me ajudem.

 

cumprimentos

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

procura no lab. de script , que alguns exemplos...

 

olha este aqui.

 

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

<H3>Slide Show </H3>
Criar uma apresentação que irá mostrar o texto de uma base de dados; qualquer texto, ASP ou arquivo html no seu web site, ou alguma imagem na web usando ASP e acessar 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 texto é tirado diretamente do banco de dados 
'Para mostrar que, sem formatação HTML.
				GetPage = "<CODE>"
				GetPage = GetPage & server.htmlencode( displayitem ) 
				GetPage = GetPage & "</CODE>"
			end if

			if slidetype = "image" then
				 ' criar uma tag de imagem
				GetPage = "<IMG SRC=""" & displayitem & """>"
			end if

			if slidetype = "html" then
				 ' estamos apresentando um arquivo para obtê-lo e exibi-lo abaixo.
				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 'segundos

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 de ler a última página, começa 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 "Page: " & 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

Neji    0

Neji
Postado

nao entendo esta parte

 

c.Open ConnString, ConnUser, ConnPass
		r.open "EXECUTE sp_GetSlide " & CLng(page), c

 

r.open e onde executo a minha instrução sql?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este exemplo usa StoredProcedure, você pode trocar essa parte pela sua consulta SQL

olha este link

Compartilhar este post

Link para o post
Compartilhar em outros sites

Neji    0

Neji
Postado

ja fui experimentei o script do tmferreira nao vai buscar ao mysql, ja experimentei o do outro mas nao funciona correctamente :/

 

<!--#include file="conn.asp" -->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.Open "SELECT * FROM fotos ", Conexao ,3,3

Response.Write("<script>")
Response.Write(vbnewline)
Response.Write("var SlideShowSpeed = 5000;")
Response.Write(vbnewline)
Response.Write("var CrossFadeDuration = 3;")
Response.Write(vbnewline)
Response.Write("var Menu = new Array(); ")
Response.Write(vbnewline)
Response.Write("var Picture = new Array();")
Response.Write(vbnewline)
Response.Write("var Titulo = new Array();")
Response.Write(vbnewline)
Response.Write("var Caption = new Array();")
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("Menu[1]  = 'destaque/menu001.jpg';")
Response.Write(vbnewline)
Response.Write("Menu[2]  = 'destaque/menu002.jpg';")
Response.Write(vbnewline)
Response.Write("Menu[3]  = 'destaque/menu003.jpg';")
Response.Write(vbnewline)
Response.Write("Menu[4]  = 'destaque/menu004.jpg';")
Response.Write(vbnewline)
Response.Write(vbnewline)
for x = 1 to 4
	pic = pic & vbnewline & "Picture["&x&"] = '"&rs.fields("imagens")&"';"
	tit = tit & vbnewline & "Titulo["&x&"] = """&rs.fields("texto")&""";"
   
	rs.movenext
next
Response.Write(pic)
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write(tit)
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write(cap)
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("var tss;")
Response.Write(vbnewline)
Response.Write("var iss;")
Response.Write(vbnewline)
Response.Write("var tssMenu;")
Response.Write(vbnewline)
Response.Write("var issMenu;")
Response.Write(vbnewline)
Response.Write("var jss = 1;")
Response.Write(vbnewline)
Response.Write("var pss = Picture.length-1;")
Response.Write(vbnewline)
Response.Write("var pssMenu = Menu.length-1;")
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("var preLoad = new Array();")
Response.Write(vbnewline)
Response.Write("for (iss = 1; iss < pss+1; iss++){")
Response.Write(vbnewline)
Response.Write("preLoad[iss] = new Image();")
Response.Write(vbnewline)
Response.Write("preLoad[iss].src = Picture[iss];}")
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("var preLoadMenu = new Array();")
Response.Write(vbnewline)
Response.Write("for (issMenu = 1; issMenu < pssMenu+1; issMenu++){")
Response.Write(vbnewline)
Response.Write("preLoadMenu[issMenu] = new Image();")
Response.Write(vbnewline)
Response.Write("preLoadMenu[issMenu].src = Menu[issMenu];}")
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("function runSlideShow(){")
Response.Write(vbnewline)
Response.Write("	if (document.all){")
Response.Write(vbnewline)
Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=2)"";")
Response.Write(vbnewline)
Response.Write("		document.images.PictureBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")
Response.Write(vbnewline)
Response.Write("		document.images.PictureBox.filters.blendTrans.Apply();")
Response.Write(vbnewline)
Response.Write("	}")
Response.Write(vbnewline)
Response.Write("	if (document.all){")
Response.Write(vbnewline)
Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=2)"";")
Response.Write(vbnewline)
Response.Write("		document.images.MenuBox.style.filter=""blendTrans(duration=CrossFadeDuration)"";")
Response.Write(vbnewline)
Response.Write("		document.images.MenuBox.filters.blendTrans.Apply();")
Response.Write(vbnewline)
Response.Write("	}")
Response.Write(vbnewline)
Response.Write("	document.images.PictureBox.src = preLoad[jss].src;")
Response.Write(vbnewline)
Response.Write("	document.images.MenuBox.src = preLoadMenu[jss].src;	")
Response.Write(vbnewline)	
Response.Write(vbnewline)
Response.Write("	if (document.getElementById) document.getElementById(""CaptionBox"").innerHTML= Caption[jss];")
Response.Write(vbnewline)
Response.Write("	if (document.getElementById) document.getElementById(""TituloBox"").innerHTML= Titulo[jss];")
Response.Write(vbnewline)
Response.Write("	if (document.all) document.images.PictureBox.filters.blendTrans.Play();")
Response.Write(vbnewline)
Response.Write("	if (document.all) document.images.MenuBox.filters.blendTrans.Play();")
Response.Write(vbnewline)
Response.Write(vbnewline)
Response.Write("	jss = jss + 1;")
Response.Write(vbnewline)
Response.Write("	if (jss > (pss)) jss=1;")
Response.Write(vbnewline)
Response.Write("		tss = setTimeout('runSlideShow()', SlideShowSpeed);")
Response.Write(vbnewline)
Response.Write("}")
Response.Write(vbnewline)
Response.Write("</script>")
%>
<link href="estilo/estilo.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>
<body onload=runSlideShow()>
<table width="450" height="175" border=0 cellpadding=0 cellspacing=0>
  <tr>
	<td width=450 valign="top" background="images/destaque.jpg">
	  <table width="450" height="158" border="0" cellpadding="2" cellspacing="2">
		<tr>
		  <td width="202" height="140" align="center" valign="bottom"><div align="center"><img src="destaque/carregando.jpg" name=PictureBox width=185 height=120 border="5" style="border-color:#FFFFFF; "></div></td>
		  <td width="234" rowspan="2" valign="top"><table width="100%"  border="0" cellpadding="0" cellspacing="0" class="TextoPadrao">
			<tr>
				  <td height="13" align=left id=TituloBox style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;">
					<div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;">
				</div></td>
			</tr>
			<tr>
				  <td height="40" align=left style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold;" id=CaptionBox>
					<div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF; font-weight:bold; height:40px">
				</div></td>
			</tr>
			<tr>
			  <td height="57" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;"><%=rs.fields("texto")%></div></td>
				</tr>
				
			  </table>
		   
			  </td>
			</tr>
			<tr>
			  <td height="52" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td><div align="left" style="font-family:verdana, arial; font-size:11px; color:#FFFFFF;"><%=rs.fields("texto")%></div></td>
				</tr>
			  
			  </table></td>
			</tr>
		  </table></td>
		</tr>
		<tr>
		  <td valign="top"><div align="center"><img src="destaque/menu.jpg" name=MenuBox width=201 height=22 ></div></td>
		</tr>
	  </table>	 </td>
  </tr>
  <tr>
  </tr>
</table>

aparecem as imagens sim, e mudam também, o problema esta em que nao posso escolher a imagem que quero ver ou seja ter uma "paginação de imagens" em que tenha o seguente anterior e parar.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você viu no lab. de script ???

e qual erro gerado, descricao e linha...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Neji    0

Neji
Postado

não da erro apenas não tem seguinte e anterior ou parar. o script do tmferreira esta muito bom mas não vai buscar as imagens a base de dados vai buscar a um directório

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode fazer as adaptaçoes para buscar as imagens na base de dados

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