Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Scroller

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Esta é uma Scroller que armazena as informações em um arquivo de texto e lê de volta.

 

scroller.asp

 

<html>
 <head>
   <title>Scroller</title>
   <link rel="stylesheet" type="text/css" href="scroller.css">
 </head>

<body onselectstart="return false">

<%

Set objFile = CreateObject("Scripting.FileSystemObject")
dbFile = server.mappath("scroller.txt")
IF objFile.FileExists(dbFile) Then
	Set recordGet=objFile.OpenTextFile(dbFile, 1, False)
	On Error Resume Next
	allRecords = recordGet.ReadAll
	On Error GoTo 0
	IF allRecords = ""  Or allRecords = VbCrlf Then 
		recordGet.Close: noEntry 
	Else
		recordGet.Close: Call GetRecords(allRecords)
	End IF
Else: noEntry
End IF

%>

<%
'*** Mostra se não houver registros encontrados no arquivo.

Sub noEntry()
	Dim msgEmpty
	msgEmpty = "Scroller esta vazio."
%>
	<p align="center"><b><font color="black"><%=msgEmpty%></font></b></p>
<%
End Sub

'*** Esta é a principal função que constrói a Scroller.

Function GetRecords(allRecords)
Dim globRecord, X, recArray, LinkTo, LinkTooltip, LinkText, NoOfLinks

%>
<a name="scrollingCode">
<table style="border-left: 1 solid #000000;border-right: 1 solid #D0D5DF;border-top: 1 solid #000000; border-bottom: 1 solid #D0D5DF" bgcolor=white width=140 cellpadding="2" cellspacing="0"><tr>
<td><marquee behavior=scroll direction=up width=140 height=160 scrollamount=1 scrolldelay=60 onmouseover='this.stop()' onmouseout='this.start()'><table border=0 cellpadding=0 cellspacing=0 width=128 bgcolor=white>
<tr><td><center><font size=1>
<%
	X=0
'*** Dividir os registos em linhas e atribuir ao array.
	globRecord = Split(allRecords, vbCrLf)
	
	NoOfLinks = globRecord(X)

	For Each R In globRecord
		X=X+1
		recArray = Split(Cstr(R), ",")
		LinkTo = recArray(0)
		LinkTooltip = recArray(1)
		LinkText = recArray(2)

		%><a href="<%=LinkTo%>" title="<%=LinkTooltip%>" target="main" class="scroller"><%=LinkText%></a><p><%

		Next

	%>
	</font></center></td></tr></table>
	</marquee></td></tr></table>
	<%
End Function
%>

</body>
</html>

Abaixo o arquivo texto (tx)

 

http://www.imasters.com.br/,movimente suas idéias

mailto:xanburzum@xanburzum.burzum.com,Email

scroller.css

 

 

 

.scroller:visited { COLOR: blue }
.scroller:link { COLOR: blue }
.scroller:hover { COLOR: red }

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