29
May
webTRAM demo updated.
demo link:Â http://anthong.com/webTRAM/demo/
the demo has been upgraded significantly to inlude all of the latest features with some ways to demonstrate them.
Powered by ScribeFire.
Archive for the ‘ASP’ Category
9
Jun
webTRAM update
webTRAM is well on it’s way to being complete and stable product. Since I first posted about it, I redesigned and rewrote it, ading features and flexibility and performance. The code and demo have ben updated. The full working demo is included in the code so it will be pretty easy to get started.
 I have a few things I’ll be fixing and adding to it before I leave it alone for a while but all constructive and civil comments are welcome.
4
Apr
Announcing webTRAM!
I am proud to announce my first Open Source product, webTRAM. I have never seen this set of features in an open source product before or else I would have used it and not developed my own. Now that I have developed it I will never stop improving it. I believe this product will be useful in many projects / jobs I work in the future and I hope it can be the same for others.
 This product is intended to record as much as possible from user actions, record it to a database, and display it in an analytical or visual format for decision making.
webTRAM will blow away the usefullness of web server logs and every product that relies on them exclusively.
 This was built with the need of tracking web2.0 / AJAX / DHTML sites. Web server logs won’t tell you how many times a user slid an element back and forth, or dragged a window, or used any of the other fancy javascripts you have in your site. WebTRAM will record these actions and many others, like when they right click to copy text, or double click to select a word.
 Yes, this is a little overboard. I have found that an abundance of information is better than a lack of it. This processing does not impact server resources on tracking and recording significantly. The only overhead that is noticed is in the storage space that builds up and running reports against all of that stored data. Both of these can be addressed by managing your data and filtering queries.
 What I have made available so far is very minimal. I am using it curently in a production environment, but I have a lot of work to do to make this a product people can just use without modifying. I will call that milestone 1.0.
After 1.0 I have a lot of significant features to add, just look at the todo list of the main page.
If you haven’t already found the page in the “Pages” list here it is:
20
Feb
Dynamic ASP includes
If you are still using classic ASP… you will be familiar with the include statement. that looks liek this:
<!–#include file=”PagetoInclude.asp”–>
but if you try to use a variable instead of a string for the filename it will not work. This is because the includes are processed before the ASP.
here is a quick work around that uses vbscript to stream the file into the page, which will mimic the include statement but get around the limitation mentioned.
In order to use the function, pass in the filepath and the output will be returned to a vairable. From there you can process it further or output it.
This is the function:
‘Function to Include
Function DynamicInclude(strAbsoluteFilePath)
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Filename
Filename = strAbsoluteFilePath ‘ file to read
‘ Create a filesystem object
Dim objIncludeFSO
set objIncludeFSO = server.createObject("Scripting.FileSystemObject")
‘ Map the logical path to the physical system path
Dim strstrFilepath, streamOutput, Line
strFilepath = Filename
if objIncludeFSO.FileExists(strFilepath) Then
‘ Get a handle to the file
Dim file
set file = objIncludeFSO.GetFile(strFilepath)
‘ Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
‘ Read the file line by line
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
‘ Do something with "Line"
Line = Line & vbCRLF
streamOutput = streamOutput & Line
Loop
Set TextStream = nothing
DynamicInclude = streamOutput
Else
DynamicInclude = "File not found."
End If
Set objIncludeFSO = nothing
End Function
Function DynamicInclude(strAbsoluteFilePath)
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim Filename
Filename = strAbsoluteFilePath ‘ file to read
‘ Create a filesystem object
Dim objIncludeFSO
set objIncludeFSO = server.createObject("Scripting.FileSystemObject")
‘ Map the logical path to the physical system path
Dim strstrFilepath, streamOutput, Line
strFilepath = Filename
if objIncludeFSO.FileExists(strFilepath) Then
‘ Get a handle to the file
Dim file
set file = objIncludeFSO.GetFile(strFilepath)
‘ Open the file
Dim TextStream
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
‘ Read the file line by line
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
‘ Do something with "Line"
Line = Line & vbCRLF
streamOutput = streamOutput & Line
Loop
Set TextStream = nothing
DynamicInclude = streamOutput
Else
DynamicInclude = "File not found."
End If
Set objIncludeFSO = nothing
End Function
‘Here is an example of using the function
strAbsolutePath = "c:Inetpubwwwrootincludeme.htm"
htmlOutput = DynamicInclude(strAbsoluteFilePath)
response.write htmlOutput
Enjoy.
