|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Permitir a edição e gravação de arquivos no diretório raiz
|
 |
|
|
|
Postada em 8/10/2003 por ^HEAVY-METAL^
Permite a edição e gravação de arquivos no diretório raiz
<html><head>
<TITLE>dbsimple.asp</TITLE>
</head>
<body bgcolor="#FFFFFF">
<CENTER><font face="Tahoma"><font
color=darkslateblue>
<
H1>EDITOR</H1>
</font></CENTER><BR>
<hr>
<form action="arq_editor.asp" method=post>
<p>Informe o nome do arquivo:</p>
<INPUT NAME="nArq" size ="10">
<INPUT checked type=radio name="opt" value="editar"
id="opt"> Editar
<INPUT type=radio name="opt" value="gravar" id="opt">
Gravar
<p><input type=submit value="Executar"> <input
type=reset value=Redefinir>
</form><hr>
<%
If Request.Form ("nArq") <> "" Then
Dim arqsys, arqtxt, nome, path, flag
Dim nome_arq
Dim id, tc, tp, diret_arq
nome_arq = server.mappath(Request.Form ("nArq"))
End If
If Request.Form ("opt") = "editar" then
flag = "editar"
End if
If Request.Form ("opt") = "gravar" then
flag = "gravar"
End If
If flag = "editar" then
If nome_arq = "" then Response.End
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists(nome_arq) = False Then
Response.Write "<STRONG><font color=#b22222>Arquivo
não localizado.</STRONG></font>"
Response.End
Else
Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TrIfalse = 0
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFile = objFSO.GetFile(nome_arq)
Set objStream = ObjFile.OpenAsTextStream(forReading,TriDef)
While Not ObjStream.AtEndOfStream
Linha = Linha & ObjStream.Readline & chr(13)
Wend
Response.Write "<FORM ACTION=""arq_editor.asp"" method=post
id=form2 name=form2>"
Response.Write "Arquivo: <INPUT TYPE=TEXT NAME=""ed_c_arq""
SIZE=30 VALUE=" & nome_arq & "></P>"
Response.Write "Conteúdo: <TEXTAREA NAME=""ed_val_arq""
ROWS=5 COLS=40>" & Linha & "</TEXTAREA><P>"
Response.Write "<INPUT TYPE=SUBMIT NAME=""cmdGravar""
VALUE=""Gravar"">"
Response.Write "</FORM>"
End if
End if
If Request.form ("ed_val_arq") <> "" and Request.form
("ed_c_arq") <> "" then
c_arq = Request.form ("ed_c_arq")
val_arq = Request.form ("ed_val_Arq")
Set arqsys = CreateObject("Scripting.FileSystemObject")
Set arqtxt = arqsys.CreateTextFile(c_arq,True)
path = arqsys.GetAbsolutePathName(c_arq)
nome = arqsys.GetFileName(path)
arqtxt.WriteLine(val_arq)
arqtxt.Close
Response.Write "<STRONG><font color=#191970>O
arquivo " & c_Arq & " foi alterado com sucesso.<HR>"
Response.End
End if
If flag = "gravar" then
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists(nome_arq) = true Then
Response.Write "<STRONG><font color=#b22222>O
arquivo " & nome_arq & " já
existe.</STRONG></font>"
Response.End
End if
Response.Write "<FORM ACTION=""arq_editor.asp"" method=post
id=form3 name=form3>"
Response.Write "Arquivo: <INPUT TYPE=TEXT NAME=""gv_c_arq""
SIZE=30 VALUE=" & nome_arq & "></P>"
Response.Write "Conteúdo: <TEXTAREA NAME=""gv_val_arq""
ROWS=5 COLS=40></TEXTAREA><P>"
Response.Write "<INPUT TYPE=SUBMIT NAME=""cmdGravar""
VALUE=""Gravar"">"
Response.Write "</FORM>"
End if
If Request.Form ("gv_val_arq") <> "" and Request.Form
("gv_c_arq") <> "" then
Set arqsys = CreateObject("Scripting.FileSystemObject")
c_Arq = Request.Form ("gv_c_arq")
val_Arq = Request.Form ("gv_val_arq")
Set arqtxt = arqsys.CreateTextFile(c_arq,True)
path = arqsys.GetAbsolutePathName(c_arq)
nome = arqsys.GetFileName(path)
arqtxt.WriteLine(val_arq)
arqtxt.Close
If arqsys.FileExists(path) Then
Response.Write "<STRONG><font color=#191970>O
arquivo " & c_Arq & " foi gravado com sucesso.<HR>"
Response.End
End If
End if
%>
</FONT>
</body>
</HTML>
T+,
|
|
|
|
|
