internet programcılığı

Konu: internet programcılığı Salı Nis. 01, 2008 3:47 pm

*<% on error resume next
const forreading=1,for writing=2,forappending=8
fso,f,i,dosya
dosya=server.mappath("\")&"\dosya_oku.txt"
set fso=create object("scripting.filesystemobject")

**if request.querystring("kaydet")<>" " then
on error resume.next
sct f=fso.open textfile(dosya,forappending,true)
f.write"adsoyad:" & ub+ab request.form("adsoyad") &ubcrlf
ubcrlf
f.close
if err.number<>0 then response.write err
description
end if

***set f2=fso.open textfile(dosya,forreading,true
adsoyad=f2.readall
f2.close

%>
<html>
<body>

açıklayım arkadaşlar;

*:tanımlama yapan yer
**:kayıt yapılan kısım
***:dosya okuma yapan kısım

emeğe saygı o güzel ellerimle yazdım tek tek

Konu: Geri: internet programcılığı Salı Nis. 01, 2008 7:09 pm

Ellerine sağlık canım saolasın.

Konu: Geri: internet programcılığı Salı Nis. 01, 2008 7:47 pm

emeğinize sağlık rukiye hanım umarım sınavdada yazmışsınızdır tek tek internet programcılığı 61719