bareta

hihuihuiuhiuh..........ta enormeeeeeeeeee ainda...............

nem é muito simples....o mais dificil é conseguir os ussuarios para acessar o forum!!!!!!!!!!!

vou aproveitar o tópico e perguntar como eu mudo o cabeçalho??? pra nã ficar aparecendo pagina da web, e aparecer o nome do site????

hehehe.....cabe a cada um na hora de hospedar verificar quais os compontes e o que este server ofereçe.....

poe ai o que era.......também fiquei curioso.....

que eu conheço tem o do web wiz.... caso não conheça em umm dos links da minha assinatura é um forum do web wiz da uma olhada lá.....

seu server é gratis????

eu editei meu post anterior estuda ele.... qualquer coisa o link é esse: http://scriptbrasil.com.br/forum/index.php...ndpost&p=130757

tipo daquele link que te mostrei antes sql="DELETE FROM Online WHERE DataAcesso < '"& DataMySQL(timeleft) &"';") Conexao.Execute(Sql) ai a data mysql Function DataMySQL(sData) sMes = Month( sData ) sDia = Day( sData ) sHoras = Hour( sData ) sMinutos = Minute( sData ) sSegundos = Second( sData ) If sMes <= 9 Then sMes = "0" & sMes If sDia <= 9 Then sDia = "0" & sDia If sHoras <= 9 Then sHoras = "0" & sHoras If sMinutos <= 9 Then sMinutos = "0" & sMinutos If sSegundos <= 9 Then sSegundos = "0" & sSegundos DataMySQL = Year(sData) & "-" & sMes & "-" & sDia & " " & sHoras & ":" & sMinutos & ":" & sSegundos End Function a parte que grava no bd: QueryStrr = "?" & Request.ServerVariables("query_String" strSQL = "Select * From Online Where HostIP = '" & Request.servervariables("REMOTE_ADDR") & "'" Set Rs = Conexao.Execute(strSQL) rs.close set rs=nothing If Rs.BOF AND Rs.EOF Then sqlt="INSERT INTO Online(HostIP,DataAcesso,Pagina) VALUES('" & Request.servervariables("REMOTE_ADDR") & "', '" & DataMySQL(Now()) & "', '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "');" Set Rs = Conexao.Execute(sqlt) rs.close set rs=nothing Else sql="UPDATE Online SET DataAcesso = '" & DataMySQL(Now()) & "',Pagina = '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "' Where HostIP = '" & Request.servervariables("REMOTE_ADDR") & "';" Set Rs = Conexao.Execute(sql) rs.close set rs=nothing End If qualquer coisa pega aquele sistema que te passei e vai alterando ele....

isso é porque ele usa seu endereço ip para verificar se esta ou não logado!!!!!!! lembra que ele busca o ip docara e grava no bd!!!

agora voltou a funciona d novo!!!!!!!!

alguém usa o domain dlx???????qualquer pagina em asp ele da erro!!!!!!!1

Ai galera achei este tuto muito massa sobre Fso. direitos autorais: Nesta série de artigos visando File System Object, procuro descrever todas as funções do file system object, um componente muito útil para se trabalhar com sistema de arquivos. O FSO é um componente que pode ser usado tanto no NT/2000 como no 95/98/ME. Nas descrições de funções, utiliza-se o componente criado como está abaixo: Set FSO = Server.CreateObject("Scripting.FileSystemObject") . Função para copiar arquivo (CopyFile) Sintaxe: FSO.CopyFile "C:\Pasta\teste.txt", "c:\backup" Após ter criado o objeto, a função CopyFile é chamada, o primeiro parâmetro (c:\pasta\teste.txt) se refere ao arquivo que deverá ser copiado, e o segundo (c:\backup) o destino. Nota: Você também pode definir cópias em massa, do tipo c:\pasta\*.txt, onde seria copiado todos TXT existentes na pasta. . Função para copiar pasta (CopyFolder) Sintaxe: FSO.CopyFolder "C:\Pasta","c:\temp" Copia todo o conteúdo da pasta especificada no primeiro parâmetro à pasta de destino, que deve ser especificada no segundo parâmetro . Função para criar pasta (CreateFolder) Set NovaPasta = FSO.CreateFolder("c:\NovaPasta") Cria uma pasta no caminho especificado . Função para deletar arquivo (DeleteFile)FSO.DeleteFile "c:\pasta\arquivo.txt" ou FSO.DeleteFile "c:\pasta\*.txt" Esta função irá apagar o arquivo específico ou todos com a extensão especificada . Função para deletar pasta (deleteFolder) FSO.DeleteFolder "c:\pasta", FALSE Esta função irá apagar a pasta por completo, ou seja, todos arquivos e subpastas. O segundo parâmetro de valor booleano, indica se caso a pasta for apenas leitura, deverá ser apagada mesmo assim (TRUE), ou não deve ser apagada (FALSE) Continuando a série destinada à FSO, darei continuação as funções mais importantes, descritas abaixo e com exemplos. Lembrando que o padrão é Set FSO = Server.CreateObject("Scripting.FileSystemObject") . Verificar unidade (DriveExists) Sintaxe: FSO.DriveExists("C") A sintaxe acima, verifica se o drive C: existe, se existir TRUE será retornado, do contrário FALSE. exemplo: If FSO.DriveExists("C") = TRUE then ' caso existe o drive C: então response.write "Drive C: existe" ' notificar o client else ' caso contrário response.write "Drive C: não consta" ' notificar que não existe End If . Verificar arquivo (FileExists) Sintaxe: FSO.FileExists("c:\inetpub\oscar.txt") O exemplo acima tenta localizar no diretório inetpub pelo arquivo 'oscar.txt', e caso o encontre, retorna TRUE, caso contrário, retornará FALSE. . Verificar pasta (FolderExists) Sintaxe: FSO.FolderExists("c:\oscar") O exemplo de FolderExists acima, buscará pela pasta 'oscar' no caminho indicado, se existir retorna TRUE, caso contrario FALSE. NOTA: As verificações utilizando o If then Else podem ser aplicado em quaisquer destes exemplos de verificação (como no 1º exemplo), retorna sempre um valor booleano (TRUE/FALSE). Neste terceiro artigo sobre File System Object, mostrarei os métodos para requisitar os mais variados tipos de dados referentes a arquivos, pastas e inclusive unidades. Como padrão, o objeto é criado como: Set FSO = Server.CreateObject("Scripting.FileSystemObject") . Caminho absoluto (GetAbsolutePath) Sintaxe: FSO.GetAbsolutePath("/") Ao usar getAbsolutePath("../") pegará o valor de um diretório acima, e consequentemente ("../../") dois diretórios. . Extensão do arquivo (GetExtensionName) Pegará apenas a extensão do arquivo indicado Sintaxe: FSO.GetExtensionName("c:\oscar\oscar.txt") Nesta sintaxe acima, será retornado "TXT", que é a extensão de oscar.txt, independente de ser informado pasta ou não, só é retornado a extensão do arquivo. . Objeto vinculado a arquivo (GetFile) Sintaxe: FSO.getFile("c:\oscar.txt").PROPRIEDADE O objeto é vinculado ao arquivo "c:\oscar.txt" As propriedades são; size - retorna o tamanho do arquivo name - retorna o nome attributes - atributos do arquivo DateCreated - data de criação DateLastAccessed - data de último acesso DateLastModified - data de última modificação entre outras... . Retornar nome de arquivo (GetFileName) Sintaxe: FSO.GetFileName("c:\oscar.doc") Independente de indicação de pasta ou não, será retornado o nome e extensão de arquivo, no caso acima, é retornado "oscar.doc" . Dados de pasta (GetFolder) Sintaxe: FSO.GetFolder("c:\temp") Assim como getfile pega dados de um arquivo, GetFolder pegará dados referentes a pasta indicada, as propriedades são equivalentes à getFile, note que size retornará o tamanho total de tudo na pasta (subpastas, arquivos..) Neste artigo irei finalizar esta sequência sobre File System Object. O artigo será um pouco longo, mas não menos importante que os demais (talvez o oposto inclusive). Irei apresentar as funções mais importantes. Apenas para relembrar, o objeto é criado como: Set FSO = Server.Createobject("Scripting.FilesystemObject") . Pastas especiais (GetSpecialFolder) O GetSpecialFolder irá retornar o caminho de pastas do sistema do cliente: Temp: FSO.GetSpecialFolder(2) ' Pasta de arquivos temporários System: FSO.GetSpecialFolder(1) ' Pasta de arquivos do sistema Windows: FSO.GetSpecialFolder(0) ' Pasta do Windows . Mover arquivo (MoveFile): Moverá o arquivo para caminho específico Sintaxe: FSO.MoveFile "c:\oscar.doc","c:\teste" Moverá o arquivo oscar.doc para a pasta teste ou ainda você poderia usar ao invés de oscar.doc, *.DOC . Mover pasta (MoveFolder) Esta é uma função mais radical, ira mover ao destino todos arquivos e subpastas: Sintaxe: FSO.MoveFolder "c:\oscar","c:\teste" Neste caso, moverá todo o conteudo da pasta oscar (subpastas e arquivos) ao diretorio teste . Abrir arquivo de texto (OpenTextFile) Abrira arquivos DE TEXTO, possui algumas propriedades importantes: Sintaxe: Set Texto = FSO.openTextFile(CAMINHO,ABRIR,EXISTIR,FORMATO) CAMINHO: Esta variável guarda o caminho do arquivo de texto ABRIR: 1= Abrir para apenas leitura 2= Abrir para Gravação 3= Anexar (incluir mais texto ao arquivo) EXISTIR: (função booleana) Caso não exista o arquivo FALSE (padrão) = Não criará o arquivo TRUE = Criará o arquivo FORMATO: 0- ASCII 1- Unicode 2- Padrão do sistema . Coleção drives - Função para tratar todos drives em conjunto: Set Drives = FSO.Drives Drives.count - Retorna quantos drives há Um Loop para exibir todos drives: For each DRIVE in Drives response.write Drives.DriveLetter Next . Objeto drive - Função para tratar cada drive isolado: Set Drives = FSO.Drives ' Repetindo a criação da coleção de drives como acima Set MeuDrive = Drives.Item("C") ' Trabalhará apenas com o drive C:\ Propriedades: Tamanho: MeuDrive.AvailableSpace Tipo (fixo/movel): MeuDrive.DriveType Sistema: MeuDrive.FileSYstem Espaço Livre: MeuDrive.FreeSpace Pronta: MeuDrive.IsReady Raíz: MeuDrive.RootFolder Nome do Volume: MeuDrive.VolumeName . Coleção folders - Equivalente à coleção drives, mas trata de pastas: Set Drives = FSO.Drives ' Chamada novamente a coleção drives Set MeuDrive = Drives.Item("C") ' Unidade que contem as pastas Set Raiz = MeuDrive.RootFolder ' Definição da raiz Set Pastas = Raiz.SubFolders ' finalmente a chamada as pastas Pastas na raíz: pastas.Count Subpastas: pastas.Add "Nova SubPasta" Um Loop para exibi-las: For Each subpasta in Raiz response.write subpasta.name Next . Objeto folder - Equivalente ao objeto Drive, mas trata de pastas individualmenteSet Pasta = FSO.GetFolder("c:\oscar") Abaixo as propriedades para a pasta "oscar", como definido acima: pasta.attributes - Atributos da pasta pasta.DateCreated - Data de criação da pasta pasta.DateLastModified - Ultima modificação pasta.drive - Unidade que a mesma esta pasta.name - o nome pasta.size - tamanho total . Coleção files - Equivalente as outras coleções, mas esta trata arquivos: set arquivos = pasta.files Total de arquivos nesta pasta: arquivos.count set Arquivo = arquivos.item("oscar.doc") ' para referenciar um unico arquivo na pasta Um loop para Listar todos: for each arquivo in arquivos response.write arquivo.name ' mostra o nome de cada arquivo na pasta next . Objeto file - Para tratar arquivos individualmente: set arquivo = arquivos.item("oscar.doc") arquivo.attributes - atributos do arquivo arquivo.datecreated - data de criação arquivo.datelastaccessed - data de ultimo acesso arquivo.datelastmodified - ultima modificacão arquivo.drive - unidade que ele está arquivo.size - tamanho em bytes retirado de canal html

olha quando o timeout encerrar...ele vai sair fora então apos 5 minutos de inatividade.......

acho que esse é mais facil de usar... http://scriptbrasil.com.br/forum/index.php...ndpost&p=130757

da hora esse layout!!!!!!!!!!parabens

muito bom o efeito.........legal pra cara...

legal...mais ficaria melhor sem ter a rolagem....bom acho que é por que ta como figura mais ta legal

tinha me esquecido deste detalhe do XP............. se achar poe ai a sua solução...

verifique se os caminhos estão corretos....e o nome do banco de dados e tabelas tambem.........

se você buscar por *.ico???

esperimenta buscar em sites que oferecem sistemas prontos para downloads..... aqui você acha varios links... links sobre ASP

o MSN tenta instalar a barra do MSN o shockwave tenta a do yahoo...ta ficando un nojo isso

é achei legal mais as letras em branco poderiam ter mais destaque

bom você precisa montar um esquema com banco de dados primeiro.......... mas qual é o seu conhecimento em ASP??