Ir para conteúdo

POWERED BY:

Arquivado

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

W.Silva

Scripting File System Object

Por , em ASP Clássico

Recommended Posts

W.Silva    0

W.Silva
Postado

Brother!!!

 

<%  Dim fs, d, s  Set fs = CreateObject("Scripting.FileSystemObject") 'cria  Set d = fs.CreateTextFile(server.MapPath("testfile.txt"),true)  d.write("Este é um projeto ASP")  d.writeblanklines(5)  d.writeline("Viu deixei 5 linhas em branco")  d.close()  %>

Porque este código não cria um arquivo de texto no servidor Brinkster ?

Alguem já manipulou informações deste tipo ?

 

Abraços

w.silva

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O Brinkster suporta FSO?

Sinceramente acho meio dificil, a maioria desses server free não libera.

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

silas_i    0

silas_i
Postado

Usa esse código pra ver se esta instaldo !

 

<% @ Language="VBScript" %><% Option Explicit %><%Dim theComponent(11)Dim theComponentName(11)' componentestheComponent(0) = "ADODB.Connection"theComponent(1) = "SoftArtisans.FileUp"theComponent(2) = "AspHTTP.Conn"theComponent(3) = "AspImage.Image"theComponent(4) = "LastMod.FileObj"theComponent(5) = "Scripting.FileSystemObject"theComponent(6) = "SMTPsvg.Mailer"theComponent(7) = "CDONTS.NewMail"theComponent(8) = "Jmail.smtpmail"theComponent(9) = "SmtpMail.SmtpMail.1"theComponent(10) = "Persits.Upload.1"theComponent(11) = "UnitedBinary.AutoImageSize"' apelido do componente!theComponentName(0) = "ADODB"theComponentName(1) = "SA-FileUp"theComponentName(2) = "AspHTTP"theComponentName(3) = "AspImage"theComponentName(4) = "LastMod"theComponentName(5) = "FileSystemObject"theComponentName(6) = "ASPMail"theComponentName(7) = "CDONTS"theComponentName(8) = "JMail"theComponentName(9) = "SMTP"theComponentName(10) = "Persits Upload"theComponentName(11) = "AutoImageSize"Function IsObjInstalled(strClassString)On Error Resume Next  IsObjInstalled = False  Err = 0Dim xTestObjSet xTestObj = Server.CreateObject(strClassString)If 0 = Err Then IsObjInstalled = TrueSet xTestObj = Nothing  Err = 0End Function%><html><head><title>O q tem aqui?</title></head><body><table width="100%" border="1" cellspacing="0" cellpadding="0">  <tr>    <td align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000"><b>Componentes       instalados:</b></font></td>  </tr>  <tr>    <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">      <table border="0" cellpadding="0" cellspacing="0" width="100%">        <%   Dim i        For i=0 to UBound(theComponent)      If Not IsObjInstalled(theComponent(i)) Then        Else            Response.Write "<tr>" & vbCrLf          Response.Write "<td width=""100%"">" & vbCrLf          Response.Write "<b>" & theComponentName(i) & "</b>" & vbCrLf          Response.Write "</td>" & vbCrLf          Response.Write "</tr>" & vbCrLf      End If    Next     %>  </table></font> </td>  </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

W.Silva    0

W.Silva
Postado

Brother´s Dei uma olhada nas FAQ´s e realmente não esta liberado o FileSystem. Abraços e Obrigado (pelas respostas & códigos) W.Silva

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