Fso ile dosya okuma

SametE

Profesyonel Üye
İYİNET Üyesi
Katılım
7 Mar 2008
Mesajlar
307
Beğeniler
0
Konum
Balıkesir
#1
Kod:
<%
For each veri in Request.QueryString
gelen = Request.QueryString(veri)
next
Dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("&gelen&", 1, 0, 0)
if f.AtEndOfStream then
kod = ""
else
kod = f.readall
end if

StrKod = Replace (kod,"<","<",1,-1,1)
StrKod = Replace (kod,">",">",1,-1,1)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>KOD CRAKER</title>
</head>
<body>

<textarea rows="35" name="S1" cols="92"><%=StrKod%>
 

Bu konuyu okuyanlar (Üyeler: 1, Misafirler: 0)

Üst