DataProducer

DataProducer
A class for separating the presentation layer from the data layer in ASP.

Home
›
Code snippets
›
ASP
›
DataProducer

Dataproducer (available for php,java servlets and asp) is used to separate the presentation layer from the data layer in web applications. With it you can specify single and multiple row tags inside a html template, which are then replaced with data that you specify.

Methods:
dp.doDataProducer(startTag,endTag,data,contents)
Replaces all data between starttag and endtag, with the contents of data, an array of Dictionary objects. The template it uses is the 'contents' variable. Returns the parsed template as a string.

dp.doSingleDataProducer(data,contents) Replaces single data tags, specified in data which is an Dictionary object. 'contents' is the html template, the method returns the parsed template as a string.

dp.openTemplate(filename)
Opens 'filename' as a template (usually a html file), and returns it as a string. Example The example opens a html template, replaces 3 single tags, and 3 rows of data.

<% 
' DataProducer example

Dim dp 
Dim dictObj 
Dim rows(3) 
Dim contents 
Dim templatefile

' Create object 
Set dp = new DataProducer

' Retrieve template file 
templatefile = Server.MapPath("/") & "/asp-components/final/DataProducer/template.html" 
contents = dp.openTemplate(templatefile)

' Single row Example 
' --------------------- 
Set dictObj = Server.CreateObject("Scripting.Dictionary") 
dictObj.add "firstname","John" 
dictObj.add "surname","Smith" 
dictObj.add "fruit","Apple" 
contents = dp.doSingleDataProducer(dictObj,contents) 
Set dictObj = Nothing

' Multiple row example. 
' --------------------- 
' This could quite as easily be drawn from a database. 
' All that needs to be done is a new dictionary object 
' made each time, and then deferenced, with its contents 
' put into an array element that stores the rows. 
' MAKE SURE you use Set [arrayname] = [dictionaryObject] when storing it though.

Set dictObj = Server.CreateObject("Scripting.Dictionary") 
dictObj.add "product_name","Can of beans" 
dictObj.add "product_code","#23A534EE25" 
dictObj.add "product_price","12.34" 
Set rows(0) = dictObj 
Set dictObj = Nothing

Set dictObj = Server.CreateObject("Scripting.Dictionary") 
dictObj.add "product_name","LCD monitor" 
dictObj.add "product_code","#87J56NFG56" 
dictObj.add "product_price","222.99" 
Set rows(1) = dictObj 
Set dictObj = Nothing

Set dictObj = Server.CreateObject("Scripting.Dictionary") 
dictObj.add "product_name","Lampshade" 
dictObj.add "product_code","#2RE4YH4H5" 
dictObj.add "product_price","36.00" 
Set rows(2) = dictObj 
Set dictObj = Nothing

contents = dp.doDataProducer("<rows_start>","</rows_start>",rows,contents) 
Response.Write contents 
%>