Grid Hierarcical
Source code of a Control, subclassing the MSFlexGrid, to create a Hierarcical Grid (like Treeview). But, as in a MSFlexGrid, you can set individual fonts, colors, even pictures on any cell.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload
"counter.asp"
<%
'Made by Abhi Malani
'abhimalani@yahoo.com
'
'
'Copyright Abhi Malani, 2002
'these line must be present in the script
Response.Write "<!--Ezcounter by abhi malani, abhimalani@yahoo.com-->"
'If however you want to remove the lines please contact me.
Session.Timeout=5 'Set the Session to expire in 5 mins.
If IsEmpty(Session("Count")) Then
Call Countthisuser
End if
Sub CountThisUser()
Dim objFSO
Dim objFS
Dim strFileName
Dim intOldCount
Dim intNewCount
strFileName = Server.MapPath("hits.txt") 'hits.txt file should have write permission
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strFileName) Then
Set objFS = objFSO.OpenTextFile(strFileName, 1)
Else
Set objFS = objFSO.CreateTextFile(strFileName, True)
End If
If Not objFS.AtEndOfStream Then
intoldCount = objFS.ReadAll
Else
intoldCount = 0
End If
objFS.Close
intNewCount = intOldCount + 1
Session("Count")= intNewCount
Set objFS = objFSO.CreateTextFile(strFileName, True)
objFS.Write intNewCount
objFS.Close
Set objFSO = Nothing
Set objFS = Nothing
End Sub
'Session.Abandon 'Remove the ' to check the script
%>
Original Comments (3)
Recovered from Wayback Machine