Ir para conteúdo
Fórum Script Brasil

fantasma

Membros
  • Total de itens

    901
  • Registro em

  • Última visita

Tudo que fantasma postou

  1. EU TESTEI E NÃO PASSOU porque SERA?............E já COM Onkeypress PASSOU .....COISA DE INFORMATICA SERAAAAAAAAAAAAAAA...HAHAHAHAH
  2. É SO SUBSTITUIR onKeyUp POR Onkeypress
  3. realmente você deve falar com o adm do servidor....esta passando informação incorreta;
  4. roda este escript e ve se esta instalado <title>Marcelo P. Matos -</title> <body bgcolor="#FFFFFF" text="#640000" link="#660000" vlink="#660000" alink="#660000"> <% Dim arrListaComponentes(47) arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" ) arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" ) arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" ) arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" ) arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" ) arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" ) arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" ) arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" ) arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" ) arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" ) arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" ) arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" ) arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" ) arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" ) arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" ) arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" ) arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" ) arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" ) arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" ) arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" ) arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" ) arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" ) arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" ) arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" ) arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" ) arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" ) arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" ) arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2") arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1") arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer") arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" ) arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" ) arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" ) arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" ) arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" ) arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" ) arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" ) arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" ) arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" ) arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" ) arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" ) arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" ) arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" ) arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" ) arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" ) arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" ) arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" ) arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" ) ' Rotina que verifica o componente do array é um objeto. Function VerificaObjeto(pComponente) Dim objComponente On Error Resume Next VerificaObjeto = False Err.Clear Set objComponente = Server.CreateObject(pComponente) If Err = 0 Then VerificaObjeto = True Set objComponente = Nothing Err.Clear End Function Public Function VerificaComponentes() Dim intCont, strTxt Dim intIndex, strProv intCont = 0 strTxt = "<table border='1' bordercolor='#A00000' cellspacing='0' cellpadding='0' align='center' width='400'>" For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes) strProv = intIndex strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>" If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>" intCont = intCont + 1 Else strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>" End If strTxt = strTxt & "</tr>" Next strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de " strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>" VerificaComponentes = strTxt End Function Response.Write "<center><a href='http://www.kissseedonuts.com.br'><font size='1' color='660000' face='tahoma'>Ni7o7olii8i</font></a></p>" caminho = server.MapPath("\") response.write "<center><font face='tahoma' size='1'>" & caminho & "</font></center>" Response.Write VerificaComponentes Response.Write "<p><center><font face='tahoma' size='1'>&copy; Copyright 2004 <a href='mailto:crincy_rio@terra.com.br'> Crincy_Rio &reg;</a>. Todos os direitos reservados.</font></center>" '------------------------- %>
  5. fantasma

    { Kiko }

    porque você não utiliza um <input type="radio"> coloque o cod para dar uma olhada
  6. fantasma

    Foto Ao Cadastrar

    e so criar um link e direcionar para onde você quer. e depois usar um UPDATE
  7. fantasma

    Iframe Response.redrect

    coloque o cod para dar um olhada
  8. fantasma

    Contador Num Aparece

    eu testei neste site http://www.1asphost.com/ e tb não deu certo
  9. O que você quer restringir do usuario
  10. fantasma

    Pagina

    como ficariao o banco exemplo?????????????????? assunto,descrição,nomehtml,.......................................................
  11. qual erro esta aparecendo
  12. fantasma

    Pagina

    mais detalhe essse .htm são divididos em clientes cada cliente tem um quantidade de .htm, como poderia fazer com um banco de dados, exemplo uma tabela para cada cliente??????????????
  13. você quer mais ou menos igual o site do scriptbrasil a parte de busca
  14. fantasma

    Pagina

    issso cada procedimento é um .html
  15. <head> <title>Untitled</title> <meta http-equiv='refresh' content='5; url=http://pagina.asp' /> </head> <img src=".gif">
  16. tem um programa free chamado zonealarm muito bom
  17. você pode me explicar o porque para que possa ver outra solução para você
  18. fantasma

    Pagina

    tenho mais ou menos 200 mb arquivos em .htm onde essses aquivos são de procedimento. tenho que desenvolver um pagina como se fosse um manual de procedimentos utilizando estes arquivos, esses arquivos são procedimentos de um central de atendimento onde o cliente vai entrar com o problema e já vai tem um link para determinado problema exemplo usuario informa que conexão diaul up não responde ai vai ter um procedimento para conexão diaul up
  19. fantasma

    Pagina

    Niguem quer dau um sugestão
  20. se você pagar eu faço para amanhã falouuuuuuuuuuuuuuuuu
  21. fantasma

    Onde Foi Q Eu Errei

    falou cara.....mas isssssssssssso é normal
  22. fantasma

    Onde Foi Q Eu Errei

    Confere o caminho da base de dados........
×
×
  • Criar Novo...