ساخت شمارنده با ASP

کد:

< %

Const ForReading = 1
Dim objOpenFile, objFSO, strPath, iCount

strPath = strPath & "counter/counter.txt"
strPath = Server.MapPath(strPath)
Set objFSO = _
Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strPath) Then
Set objOpenFile = _
objFSO.OpenTextFile(strPath, ForReading)
iCount = Cint(objOpenFile.ReadLine) + 1
objOpenFile.Close
Else
iCount = 1
End if
Set objOpenFile = _
objFSO.CreateTextFile(strPath, True)
objOpenFile.WriteLine(iCount)
objOpenFile.Close
Set objOpenFile = Nothing
Set objFSO = Nothing
% >

کد آپلود فایل توسط ASP

با این سورس کد میتونین قابلیت آپلود رو در سایتوت اضاف کنید .. البته این با سورس کد آپلود قبلی فرق داره و حجم کد کمتره !!

دانلود سورس کد آپلود فایل با ASP