"
Pastikan segala sesuatunya sudah benar benar Aman "
Hardware
yang dibutuhkan
Chip
Software
Hal
hal lain yang dibutuhkan
Sudut
pengambilan gambar yang tepat
Konfigurasi Software
Pengalaman
pertama dan perbaikan
"
Informasi, software, dan produk "
Produsen
Webcam
Informasi harga dan pemesanan
Download Software
marketcam@yahoo.com
Anda adalah pengunjung ke : |
<% Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim sPath sPath = Request.ServerVariables("PATH_TRANSLATED") Dim fs, f, fd, sFile, ts Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(sPath) Set fd = f.ParentFolder sFile = fd.Path & "\counter.txt" If Not fs.FileExists(sFile) Then Set ts = fs.OpenTextFile(sFile, ForWriting, True) ts.Write 0 ts.Close End If Dim counter 'open file for reading counter Set ts = fs.OpenTextFile(sFile, ForReading) counter = ts.ReadLine ts.Close 'increase counter counter = counter + 1 'display counter Response.Write String(5 - Len(CStr(counter)), "0") & counter 'open file for updating counter Set ts = fs.OpenTextFile(sFile, ForWriting) ts.Write counter ts.Close %> |
Created & Designed by. Trisno Group
Hak Cipta dilindungi oleh Yang Maha Kuasa