[ASP] ASP rendert niet - Softwareontwikkeling

maandag 16 september 2002 21:43

Acties:

Hopla!

Topicstarter

inleiding
Jullie hebben allemaal wel eens gehoord van weblogs. Ikzelf ben er pas een begonnen op http://www.myjamby.com/dennis. Voor het gemak heb ik het design van die site aangenomen...dit wordt uiteraard nog veranderd...

Omdat deze site enorm traag is, en omdat ik graag aan m'n eigen spullen klus, wil ik zelf een leuk weblog in elkaar klussen.

Ik heb wel een aantal eisen. Een daarvan is dat alles template-based moet zijn: met de klik van een muis moet de hele layout verandert kunnen worden. De tabelstructuur staat in een database (voorlopig access), en op het moment dat een pagina aangeroepen wordt, haalt de opgeroepen .asp pagina deze template (.tpl) op uit de database, en vervangt {tags} met content. Zo wordt op de plaats van de {css} tag uit de template, de stylesheet.css inhoud weggezet.

Op http://www.geocities.com/nubster21/blog.zip staat een zip met daarin:

> template_cls.asp (de template rendering class)
> lemonlime.tpl (de template file)
> lemonlime.asp (de pagina die bovenstaande aanroept)
> een img directory met wat plaatjes...
> calendar.asp (genereert een html kalender)

zet ze in een dir op je server, en roep in je browser lemonlime.asp op...door daar de source van te bekijken wordt alles duidelijk. Het is nogal een vraag, maar ik zit echt vast en hoop dat er mensen zijn die die aandacht eraan willen geven...

probleem
Mijn probleem zit hem in calendar.asp. Dit is een .asp pagina die een html kalender genereert. Deze kalender wordt in de template aangeroepen met {calendar}.
-> het probleem is dat de ASP van calendar.asp in zijn geheel naar de client wordt gestuurd, omdat op het moment dat deze pagina aangeroepen wordt, IIS al klaar is met renderen. (ik hoop dat ik het goed definieer).

geprobeerde oplossingen
Ik heb dit opgelost door calendar.asp in een iframe te laden, maar dit is eigenlijk bagger. Dan zou ik dat voor alle .asp content moeten doen die van andere pagina's komt. Server.execute werkt ook niet naar wens: calendar.asp wordt gerendert VOOR de template en komt zodoende niet op de juiste plaats te de pagina (zie zip). Een laatste mogelijkheid is de code in calendar.asp om te bouwen naar een functie, en die te includen in de calling pagina of in de template class. Maar ook hier geldt: dit kan ik toch niet voor ALLE content doen?

vraag
ik zag dat dit forum ook op templating is voorbereid. Heeft iemand ervaring met termplating en kan mij een manier geven waarop ik .asp content in mijn render pagina (lemonlime.asp - zie zip) kan aanroepen? Is er een workaround of moet ik ergens een server-plugin of IIS update vandaan halen?

Alvast enorm bedankt voor jullie reaktie.

- edit: vawege problemen met downloaden zip hier eea gepost: -

############### lemonlime.asp #################
deze pagina geeft een error wanneer ik hem run. De code van
de inlcude template_cls.asp staat hieronder, hoewel niet echt
van belang: het is een vbclass waar je verder weinig aan kunt
veranderen. De code van lemonlime.tpl en calendar.asp staat ook
verder naar onderen. Een voorbeeldje: in lemonlime.asp vervangt
de template class de token siteName uit lemonlime.tpl door
de string "Revellers Weblog". Zoals je ziet wil ik op de plaats
van de calendar-token, een html-kalender wegzetten. Die
kalender wordt in calendar.asp gegenereerd...

ASP:

<!--#include file="template_cls.asp"-->
<%
dim objTemplate
const TMPLDIR = ""
set objTemplate = new template_cls
with objTemplate
    .TemplateFile = TMPLDIR & "lemonlime.tpl"
    .AddToken "siteName", 1, "Revellers Weblog"
    'met een iframe lukt het wel, maar niet in niet-IE
    .AddToken "calendar", 1, "<iframe src='calendar.asp'></iframe>"
    'server.execute zet de kalender op de verkeerde plaats, 
                'omdat het als eerste gerenderd wordt
    '.AddToken "calendar", 1, server.execute("calendar.asp")
    ' nu wordt de asp als tekst naar de client gestuurd
    '.AddToken "calendar", 1, .loadFile("bodytext.asp", 1)
    .AddToken "tagLine", 1, "The journey is the reward"
    .AddToken "topNavItems", 1, "home<br>archives<br>login"
    .AddToken "cascadingStyleSheet", 1, .loadFile("lemonlime.css", 1)
    .AddToken "title", 1, "title"
    .AddToken "body", 1, "<body text=#000000 vLink=#9eb79f>"
    .AddToken "bodyText", 1, .loadFile("bodytext.asp", 1)
    .AddToken "navigatorLinks", 1, "navigatorLinks"
    .parseTemplateFile
end with
set objTemplate = nothing
%>

############### template_cls.asp ###############
deze template class komt van http://www.4guysfromrolla.com/webtech/061402-1.shtml

ASP:

<%
'--- --- ---
' template_cls.asp
'
' version 1.5
'---- ---- ----
' (c)2000 - 2002 James Q. Stansfield (jqs@iridani.net)
' This code is free to be used by anyone provided that the copyright is retained in the script.
' This code may be redistributed provided the copyright is retained in the script.
'----- ----- -----
option explicit
const cTEMPLATE_VERSION = 1.5

'Define our token type constants
const STRINGVARIABLE = 1
const INCLUDEANDPARSE = 2
const INCLUDEANDNOPARSE = 3
const PARSESTRING = 5
const PARSEARRAY = 6

class template_cls
    '---
    'Declarations
    '---
    private gstrTemplateFile
    private gobjTokens
    private gblnReturn
    private gstrHTML
    private gstrOpenTag
    private gstrCloseTag
    '---
    'Create & Destroy Methods
    '---
    private sub Class_Initialize
        set gobjTokens = createobject("Scripting.Dictionary")
        gobjTokens.CompareMode = 1
        gblnReturn = False
        gstrHTML = ""
        gstrOpenTag = "{"
        gstrCloseTag = "}"
    end sub
    '---
    private sub Class_Terminate
        set gobjTokens = nothing
    end sub
    '---
    'Properties
    '---
    public property let TemplateFile(inString)
        gstrTemplateFile = inString
    end property
    '---
    public property let OpenTag(inString)
        gstrOpenTag = inString
    end property
    '---
    public property let CloseTag(inString)
        gstrCloseTag = inString
    end property
    '---
    public property let CI(inBool)
        if vartype(inbool) = 11 then
            if inBool then
                inBool = 1
            else
                inBool = 0
            end if
            gobjTokens.CompareMode = inBool
        end if
    end property
    '---
    'Subroutines
    '---
    public sub AddToken(inToken, inType, inData)
        if len(inToken) > 0 then
            if gobjTokens.Exists(inToken) then
                gobjTokens.Item(inToken) = array(inType, inData)
            else
                gobjTokens.Add inToken, array(inType, inData)
            end if
        end if
    end sub
    '---
    public sub DelToken(inToken)
        if len(inToken) > 0 then
            if gobjTokens.Exists(inToken) then
                gobjTokens.Remove(inToken)
            end if
        end if
    end sub
    '---
    public sub RemoveAllTokens
        gobjTokens.RemoveAll
    end sub
    '---
    public sub parseTemplateFile
        parseFile(gstrTemplateFile)
    end sub
    
    public sub parseTemplateString(inString)
        parseString(inString)
    end sub
    '---
    'Functions
    '---
    public function getParsedTemplateFile
        gstrHTML = ""
        gblnReturn = true
        getParsedTemplateFile = parseFile(gstrTemplateFile)
    end function
    '---
    public function getParsedTemplateString(inString)
        gstrHTML = ""
        gblnReturn = true
        getParsedTemplateString = parseString(inString)
    end function
    '---
    private function parseString(inString)
        dim astrData
        if len(inString) > 0 then
            astrData = split(inString & vbCrLf, VbCrLf)
            call parseArray(astrData)
        end if
        if gblnReturn then parseString = gstrHTML
    end function
    '---
    private function parseFile(inFile)
        if len(inFile) > 0 then
            if fileExists(inFile) then
                call parseArray(loadFile(inFile, 10))
            end if
        end if
        if gblnReturn then parseFile = gstrHTML
    end function
    '---
    private sub parseArray(inArray)
        dim strLine
        for each strLine in inArray
            call parseLine(strLine & VbCrLf)
        next
    end sub
    '---
    private sub parseLine(inLine)
        dim intA, intB, strLine, strLine2, strToken
        intA = instr(inLine, gstrOpenTag)
        if intA > 0 then
            strLine = left(inLine, intA - 1)
            intB = instr(inLine, gstrCloseTag)
            strLine2 = mid(inLine, intB + len(gstrCloseTag))
            strToken = trim(mid(inLine, intA + len(gstrOpenTag), (intB - intA - len(gstrOpenTag))))
            call printLine(strLine)
            call getToken(strToken)
            call parseLine(strLine2)
        else
            call printLine(inLine)
        end if
    end sub
    '---
    private sub getToken(inToken)
        if gobjTokens.Exists(inToken) then
            dim intTokenType, strTokenData
            intTokenType = gobjTokens.Item(inToken)(0)
            strTokenData = gobjTokens.Item(inToken)(1)
            select case intTokenType
                case 1  'Display Variable
                    call printLine(strTokenData)
                case 2  'Load File, Parse & Display
                    call parseArray(loadFile(strTokenData, 10))
                case 3  'Load File & Display
                    call printLine(loadFile(strTokenData, 1))
                case 5  'Parse String
                    call parseLine(strTokenData)
                case 6  'Parse Array
                    call parseArray(strTokenData)
            end select
        end if
    end sub
    '---
    public function fileExists(inFile)
        dim objFSO
        set objFSO = createobject("Scripting.FileSystemObject")
        if objFSO.FileExists(Server.Mappath(inFile)) then FileExists = True
        set objFSO = nothing
    end function
    '---
    public function loadFile(inFileName, inType)
        dim objFSO, objFile, objStream, strText
        if fileExists(inFileName) then
            set objFSO = createobject("Scripting.FileSystemObject")
            set objFile = objFSO.GetFile(Server.Mappath(inFileName))
            set objFSO = nothing
            set objStream = objFile.OpenAsTextStream(1,0)
            strText = objStream.Read(objFile.Size)
            set objStream = nothing
            set objFile = nothing
            select case cint(inType)
                case 0  'Load & Display
                    printLine(strText)
                case 1  'Load & Return
                    loadFile = strText
                case 10 'Load & Return As Array
                    loadFile = split(strText & VbCrLf, VbCrLf)
            end select
        end if
    end function
    '---
    private function printLine(inLine)
        if gblnReturn then
            gstrHTML = gstrHTML & inLine
        else
            response.write(inLine)
        end if
    end function
end class
%>

############# lemonlime.tpl ################
de template file

ASP:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <title>{siteName} : {title}</title>
    {meta} {cascadingStyleSheet} {javaScript} 
  </head>
{body}
<table width="780" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="28">[img]"img/top1.gif"[/img]</td>
    <td width="722">
      <table width="722" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="11">[img]"img/topBG.gif"[/img]</td>
          <td width="711" valign="top" background="img/topBG.gif"> 
            <p>[img]""[/img]<br><b><font size="+2">{siteName}</font></b>
            <i>{tagLine}</i></p>
          </td>
        </tr>
      </table>
    </td>
    <td width="30">[img]"img/top3.gif"[/img]</td>
  </tr>
  <tr> 
    <td width="28" background="img/leftBG.gif" valign="top">
      [img]"img/leftBG.gif"[/img]</td>
    <td width="722" bgcolor="#FFFFFF"> 
      <table width="722" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td width="120" valign="top"> 
            <table width="120" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="3" height="10">[img]""[/img]</td>
              </tr>
              <tr> 
                <td width="10">[img]""[/img]</td>
                <td> 
                  <p><b><font size="-2">Navigation<br>
                  </font></b><font size="-2">{navigatorLinks}</font></p>
                </td>
                <td width="10">[img]""[/img]</td>
              </tr>
              <tr>
                <td colspan="3" height="10">[img]""[/img]</td>
              </tr>
            </table>
          </td>
          <td valign="top" width="100%"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="11">
              <tr> 
                <td><p>{bodytext}</p></td>
              </tr>
            </table>
          </td>
          <td width="160" valign="top"> 
            <table width="160" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td colspan="3" height="10">[img]""[/img]</td>
              </tr>
              <tr> 
                <td width="10">[img]""[/img]</td>
                <td> 
                  <p>{calendar}</p>
                </td>
                <td width="10">[img]""[/img]</td>
              </tr>
              <tr>
                <td colspan="3" height="10">[img]""[/img]</td>
              </tr>
            </table>
          </td>       
        </tr>
      </table>
    </td>
    <td width="12" align="right" valign="top" background="img/rightBG.gif">
      [img]"img/rightBG.gif"[/img]</td>
  </tr>
  <tr> 
    <td>[img]"img/bottom1.gif"[/img]</td>
    <td background="img/bottomBG.gif">[img]"img/bottomBG.gif"[/img]</td>
    <td>[img]"img/bottom3.gif"[/img]</td>
  </tr>
</table>
<p align="center"> <font size="-2">Last update: {lastUpdateString}<br>
  Copyright {year} {homePageLink (siteName)} </font></p>
<p align="center">"this is a manila site"
<p align="center"><font size="-2">{themeLink ()}</font></p>
</body>
</html>

############## calendar.asp ################
genereert de html tabel met data, welke ik met {calendar} in
lemonlime.tpl aanroep...

ASP:

  <%
  Dim ThisMonthYear
  Dim ThisMonth
  Dim ThisYear
  Dim NextMonthYear
  Dim NextMonth
  Dim NextYear
  Dim LastMonth
  Dim LastYear
  Dim FirstDay
  Dim ThisDay
  ThisDay = 0

  ' Set the Month and Year parameters to equal the current values if they do not exist.
  if (Request.QueryString("Month") = "") Then
     ThisMonthYear = Now()
     ThisMonth = Month(Now())
     ThisYear = Year(Now())
  Else
     ThisMonth = Request.QueryString("Month")
     ThisYear = Request.QueryString("Year")
  End if
    
  ' Determine the Last/Next Month and Year
  if (ThisMonth = 12) Then
    LastMonth = 11
    LastYear = ThisYear
    NextMonth = 1
    NextYear = ThisYear + 1
  Else
    if (ThisMonth = 1) Then
        LastMonth = 12
        LastYear = ThisYear - 1
        NextMonth = ThisMonth + 1
        NextYear = ThisYear
    Else
        LastMonth = ThisMonth - 1
        LastYear = ThisYear
        NextMonth = ThisMonth + 1
        NextYear = ThisYear
    End if
  End if
    
  ' Get the day of the week of the first day in This Month
  FirstDay = WeekDay(cdate(ThisMonth & "/01/" & ThisYear), vbSunday)
  DaysInMonth = Day(cdate(NextMonth & "/01/" & NextYear) - 1)
  %>

<style>
     .today
    {
    FONT-SIZE: 9px;
    COLOR: #aa0000;
    FONT-FAMILY: verdana,arial,helvetica;
    }
    .weekday
    {
    FONT-SIZE: 9px;
    COLOR: #00aa00;
    FONT-FAMILY: verdana,arial,helvetica;
    }
    .weekend
    {
    FONT-SIZE: 9px;
    COLOR: #0000aa;
    FONT-FAMILY: verdana,arial,helvetica;
    }
    .heading
    {
    FONT-SIZE: 10px;
    COLOR: #0000aa;
    FONT-FAMILY: verdana,arial,helvetica;
    }
    .subheading
    {
    FONT-SIZE: 10px;
    COLOR: #000000;
    FONT-FAMILY: verdana,arial,helvetica;
    }
</style>  

<table border="0" cellspacing="0">
  <tr align="center" valign="top">
    <td colspan="3">
      <table border="0" cellspacing="0" height="130" bgcolor="#ffffff">
        <tr valign="top">
          <td class="subheading" width="16" align="right">Su</td>
          <td class="subheading" width="16" align="right">Mo</td>
          <td class="subheading" width="16" align="right">Tu</td>
          <td class="subheading" width="16" align="right">We</td>
          <td class="subheading" width="16" align="right">Th</td>
          <td class="subheading" width="16" align="right">Fr</td>
          <td class="subheading" width="16" align="right">Sa</td>
        </tr>
        <% 
        ' Loop through until the number of days In the Month is reached.
        Do While (ThisDay <= DaysInMonth)
        %>
        <tr valign="top">
        <% 
        For LoopDay = 1 To 7
            ' if ThisDay is still 0, check To see if the current day of the week In the Loop
            ' matches the day of the week For the first day of the Month.
            ' if the values match, Set ThisDay To 1.
            ' Otherwise, the value will remain 0 until the correct day of the week is found.
            if (ThisDay = 0 And FirstDay = LoopDay) Then
                ThisDay = 1
            End if
            
            ' if the ThisDay value is still 0, or it is greater than the number of days 
            ' In the Month, display nothing in the column.
            ' Otherwise, display the day of the Month and increment the value.
            if (ThisDay > 0 And ThisDay <= DaysInMonth) Then
                if (LoopDay <> 1 And LoopDay <> 7) Then
                    %>
                        <td class="weekday" valign="top" align="right">
                            <%=ThisDay%>
                        </td>
                    <%
                Else
                    %>
                        <td class="weekend" valign="top" align="right">
                            <%=ThisDay%>
                        </td>
                    <%
                End if
                    
                ThisDay = ThisDay + 1
            Else
                %>
                <td class="weekday" valign="top" align="right">&nbsp;</td>
                <%
            End if
        Next
        %>
        </tr>
        <%
        Loop
        %>
      </table>
    </td>
  </tr>
  <tr>
    <td class="subheading" align="center"><b><%=MonthName(LastMonth)%></b>
        &nbsp;<b><%=MonthName(NextMonth)%></b></td>
  </tr>
</table>

kort samengevat zit het probleem hem in een stukje code uit lemonlime.asp:

ASP:

  'met een iframe lukt het wel, maar niet in niet-IE
    .AddToken "calendar", 1, "<iframe src='calendar.asp'></iframe>"
    'server.execute zet de kalender op de verkeerde plaats, 
                'omdat het als eerste gerenderd wordt
    '.AddToken "calendar", 1, server.execute("calendar.asp")
    ' nu wordt de asp als tekst naar de client gestuurd
    '.AddToken "calendar", 1, .loadFile("bodytext.asp", 1)

het probleem is dat ik op het moment dat deze code gerund wordt (en dus tokens vervangen worden door text-strings) het te laat is om .asp code te runnen die ik op de plek van een token geplaatst wil zien. Met andere woorden; iets als

ASP:

1	.AddToken "calendar", 1, calendar.asp

|
|-> "run calendar.asp en zet de output daarvan op de plaats van de {calender} token"

lukt dus niet. Ik hoop dat eea duidelijk is. Wie kan mij helpen?

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."

maandag 16 september 2002 21:56

Acties:

Woy

Moderator Devschuur®

Als je wilt dat sommige dingen ook nog geparsed worden moet je volgens mij gebruik maken van include. dan wordt het er gewoon tussen gevoegt. Maar voor de rest heb ik niet zoveel verstand van hoe asp werkt

“Build a man a fire, and he'll be warm for a day. Set a man on fire, and he'll be warm for the rest of his life.”

maandag 16 september 2002 22:37

Acties:

Reveller

Hopla!

Topicstarter

nee, werkt niet - wanneer ik dat doe krijg ik een dikke error....zie lemonlime.asp....

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."

maandag 16 september 2002 22:49

Acties:

robjanssen

Software Developer

Ik wil je graag helpen, maar ik kan de zip niet downloaden.

maandag 16 september 2002 23:16

Acties:

Reveller

Hopla!

Topicstarter

hoe kan dat nou? bij mij doet 'ie het perfect...wellicht anders naar de site gaan? (http://www.geocities.com/nubster21)

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."

dinsdag 17 september 2002 09:25

Acties:

oZy

kan je de error niet gewoon posten ? hoef ik het zaakie niet te installeren

ps, de zip werkt idd niet. Ook niet via de site (http://www.geocities.com/nubster21/)

dinsdag 17 september 2002 13:01

Acties:

Reveller

Hopla!

Topicstarter

zie originele post - eea is gepost en uitgelegd. Ik hoop dat het zo lukt. Alvast bedankt voor jullie interesse

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."

dinsdag 17 september 2002 15:21

Acties:

Verwijderd

Voor zover ik het kan zien is deze template engine (voor zover je het dat kan noemen) niet bedoeld voor het integreren van tags die dynamisch content genereren. Daarom zul je een functie moeten toevoegen aan de template engine die dat wel kan.

Zo kan je nu 'loadFile' gebruiken om een platte textfile in te lezen. Maak een funktie loadASPFile, die de ASP file uitvoert en de resultaten als string teruggeeft, zodat die in de template op de juiste plaats weergegeven kan worden.

Succes

dinsdag 17 september 2002 17:01

Acties:

Reveller

Hopla!

Topicstarter

MrX - ken jij dan wel volwaardige template engines? Zoja, en als ze in ASP/ IIS omgeving aan te zwengelen zijn, zou ik er graag meer over weten...

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."

dinsdag 17 september 2002 17:22

Acties:

Verwijderd

Nee, sorry, daar kan ik je niet verdere mee helpen. Sowieso lijkt dit allemaal in de richting te gaan van ofwel ondersteuning op bestaande software, ofwel een scriptrequest, en geen van beide horen eigenlijk thuis in dit forum. Als je zelf aan het programmeren slaat en daarbij vast komt te zitten, zijn er ongetwijfeld wel mensen die je verder willen en kunnen helpen.

Succes

woensdag 18 september 2002 01:05

Acties:

Reveller

Hopla!

Topicstarter

MrX - ik ken de aversie van scriptrequesten en rtfm vragen alhier, en begrijp dat volledig. Dit is echter geen van beiden. De probleemstelling is heel duidelijk: in de template-file aangeroepen ASP pagina's worden niet gerenderd maar als ware het tekst naar de client gestuurd. Ik heb getrachte oplossingen aangedragen, en een workaround gegeven (iframe). Ik ben in het hele forum geen zelfde probleem tegen gekomen, en neem dus aan dat ik iets fundamenteels fout doe. Wanneer er geen oplossingen voor aangedragen worden, kan ik toch allicht vragen om rendering engines die jullie allemaal blijken te hebben liggen maar ik nog nooit van gehoord heb?

In ieder geval denk ik met de workaround verder te gaan. Of een pagina tussen calendar.asp en lemonlime.asp te zetten - een pagina die gerenderd wordt voordat lemonlime.asp hem aanroept. Automatisch renderen en dan via filesystemobject de html op de HD wegschrijven. lemonlime.asp roept vervolgens die .htm pagina aan. Moet ik wel ff kijken wat de uitwerking op de serverload is.

Toch bedankt voor je hulp en wellicht tot nog eens. groet! Reveller

"Real software engineers work from 9 to 5, because that is the way the job is described in the formal spec. Working late would feel like using an undocumented external procedure."