[Resolvido] Exibindo Quote aleatóriamente

[xanburzum 169]

Este script pega aleatoriamente uma citação de um arquivo de texto. O código irá usar um Response.Write para enviar a cotação para o usuário

 

 

 

<%
    
    Const ForReading = 1
    Dim objQuoteFile, objFSO, strFilePath, iCounter, aQuote, iTotalLines, iThisLine, userPath
    '
'Manual de variáveis definidas
    "Escreva o caminho em relação à página que chama quotes.asp ao seu arquivo quotes.txt
    
    userPath = "quotes.txt"
    '
    ' Coleta e fixação de informações
    iTotalLines = 0
    iCounter = 0
    strFilePath = Server.MapPath(userPath)
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    ' verificação da quote.txt arquivo
    if (objFSO.FileExists(strFilePath)) Then
    Set objQuoteFile = objFSO.OpenTextFile(strFilePath, ForReading)
    ' Lendo o número de linhas do arquivo de texto
    Do While Not objQuoteFile.AtEndOfStream
    iTotalLines = iTotalLines + 1
    objQuoteFile.ReadLine
    Loop
    objQuoteFile.Close
    ' Se não houver pelo menos 1 linha de definir o Randomizer
    if iTotalLines <> 0 Then
    Randomize
    iThisLine = INT((iTotalLines - 1 + 1) * RND + 1)
    Set objQuoteFile = objFSO.OpenTextFile(strFilePath, ForReading)
    ' Leia o texto do arquivo até você acertar a linha aleatória
    Do While iCounter < iThisLine AND Not objQuoteFile.AtEndOfStream
         aQuote = Split(objQuoteFile.ReadLine, "**")
         iCounter = iCounter + 1
    Loop
    objQuoteFile.Close
    ' Imprimir a citação para a página
    Response.Write (aQuote(0) & " - """ & aQuote(1) & """")
    Else
    ' Imprimir uma mensagem de erro dizendo que o arquivo cotação está vazio
    Response.Write ("Anónimo - ""Um homem sábio sempre garante que não há citações em seu processo.""")
    End if
    Set objQuoteFile = Nothing
    Else
    ' Imprimir uma mensagem de erro dizendo que o arquivo de citação não pode ser encontrado
    Response.Write ("Anónimo - ""Um homem sábio sempre garante que ele sabe onde estão seus arquivos.""")
    End if
    Set objFSO = Nothing
    %>