Ir para conteúdo
Fórum Script Brasil

AndreFogaca

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    3

  • Registro em

  • Última visita

Sobre AndreFogaca

AndreFogaca's Achievements

0

Reputação

  1. AndreFogaca
    No script asp está informado o caminho através do aliás "Base_de_Dados" strPath = "/Base_de_Dados/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) e este aliás é o mesmo que foi utilizado na criação/configuração do diretorio virtual
  2. AndreFogaca
    Olá Pessoal ! Criei um Diretório Virtual Remoto no IIS 5.0, criei no PC Servidor e no PC Remoto uma conta de usuário para ser utilizada no acesso do servidor ao diretorio virtual. Criei um Script ASP que lista o conteudo do diretorio virtual. Problema : No IE do Servidor se eu digitar htt://meusite/diretoriovirtual, é listado o conteúdo do endereço e se eu acessar via script ASP tambem é listado. Porém se eu tentar o mesmo procedimento de um PC remoto qualquer, no primeiro caso o IE me informa que não tenho autorização de visualizar o conteúdo e segundo via script ASP aparece o erro Caminho não Encontrado. alguém pode me ajudar a resolver isso ? Agradeço desde já Abraço
  3. AndreFogaca
    Tenho o código listado abaixo que mostra no site todos os arquivos que possuo em uma determinada pasta para download. No PWS este código funcionava direitinho mas no IIS esta dando erro de ODBC e ADODB.RecordSet. O que pode ser ? alguém pode me ajudar ? <html> <% ' Esta Função recebe o nome do arquivo e retorna a imagem ' correspondente ao mesmo baseado em sua extensão. Function ShowImageForType(strName) Dim strTemp strTemp = strName If strTemp <> "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End If Select Case strTemp Case "asp" strTemp = "asp" Case "dir" strTemp = "dir" Case "htm", "html" strTemp = "htm" Case "gif", "jpg" strTemp = "img" Case "txt" strTemp = "txt" Case Else strTemp = "misc" End Select 'strTemp = "<img src=""images/dir_" & strTemp & ".gif"" width=""16"" height=""16"" border=""0"">" strTemp = "<img src=""Figuras/Pasta_Azul.gif"" width=""16"" height=""16"" border=""0"">" ShowImageForType = strTemp End Function %> <% Dim strPath Dim objFSO Dim objFolder Dim objItem Dim rstFiles Const adVarChar = 200 Const adInteger = 3 Const adDate = 7 strPath = "../../../Download/Base/CompPend/" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) %> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title></title> </head> <body topmargin="0" leftmargin="0" link="#00005A" vlink="#00005A" alink="#00005A" bgcolor="#F0F0F0"> <div align="center"> <center> <table topmargin="0" leftmargin="0" border="0" bordercolor="#00005A" cellspacing="0" cellpadding="3" width="100%" height="41"> <tr bgcolor="#FFFFFF"> <td align="center" height="11" style="border-right: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A">&nbsp;&nbsp;Nome do Arquivo&nbsp;&nbsp;</font></b></td> <td align="center" height="11" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A">&nbsp;&nbsp;Data do Arquivo&nbsp;&nbsp;</font></b></td> <td align="center" height="11" style="border-left: 2 ridge #D0F500" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A">&nbsp;&nbsp;Tamanho do Arquivo ( Mb )&nbsp;&nbsp;</font></b></td> </tr> <% Set rstFiles = Server.CreateObject("ADODB.Recordset") rstFiles.Fields.Append "name", adVarChar, 255 rstFiles.Fields.Append "size", adInteger rstFiles.Fields.Append "date", adDate rstFiles.Fields.Append "type", adVarChar, 255 rstFiles.Open For Each objItem In objFolder.Files rstFiles.AddNew rstFiles.Fields("name").Value = objItem.Name rstFiles.Fields("size").Value = objItem.Size rstFiles.Fields("date").Value = objItem.DateCreated rstFiles.Fields("type").Value = objItem.Type Next Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing rstFiles.Sort = "name ASC, date DESC" rstFiles.MoveFirst Do While Not rstFiles.EOF %> <tr bgcolor="#FFFFFF"> <td align="center" width="40%" height="100%" style="border-right: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A">&nbsp;<%= ShowImageForType(rstFiles.Fields("name").Value) %>&nbsp;&nbsp;<a href="<%= strPath & rstFiles.Fields("name").Value %>" style="text-decoration: none"><%= rstFiles.Fields("name").Value %></a></font></b></td> <td align="center" width="20%" height="100%" style="border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatDateTime(rstFiles.Fields("date").Value,2) %></font></b></td> <td align="center" width="40%" height="100%" style="border-left: 2 ridge #D0F500; border-top: 2 ridge #D0F500" valign="top" bgcolor="#F0F0F0"><b><font face="Arial" size="2" color="#00005A"><%= FormatNumber(((rstFiles.Fields("size").Value)/1000),0) %><br>&nbsp;<br>&nbsp;<br>&nbsp;<br>&nbsp;</font></b></td> </tr> <% rstFiles.MoveNext Loop rstFiles.Close Set rstFiles = Nothing %> </table></center> </div> </body> </html>
×
×
  • Criar Novo...