home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / tsw / TSW_3.4.0.exe / Apache2 / asp / header.inc < prev    next >
Encoding:
Text File  |  2003-09-03  |  1.3 KB  |  37 lines
  1. <% 
  2. use vars qw($demo $title);
  3. use DemoASP; 
  4. $demo = &DemoASP::new;
  5. my $gifdir = (-e '../asptitlelogo.gif') ? '..' : '../..';
  6. my %args = @_;
  7.  
  8. %>
  9. <html>
  10. <head><title><%= $args{title} || $title || $demo->{title} %></title></head>
  11. <body bgcolor='<%= $args{bgcolor} || $demo->{bgcolor} %>' alink="#ff5599" vlink="#993399">
  12.  
  13. <table border="0" cellpadding="3" cellspacing="0" width="100%">
  14. <tr bgcolor="#063678">
  15.   <td><img border="0" src="<%=$gifdir%>/asptitlelogo.gif" alt="Apache::ASP" /></td>
  16.   <td align="right" width="300">
  17.     <a href="http://perl.apache.org"><img src="<%=$gifdir%>/powered_by_modperl.gif" border="0" alt="Powered by ModPerl & Apache" /></a> 
  18.     <a href="http://www.apache-asp.org"><img src="<%=$gifdir%>/powered_by_apache_asp.jpg" border="0" alt="Powered by Apache::ASP" /></a> 
  19.     <a href="http://www.nodeworks.com/partner.htm?partner_id=apacheasp"><img 
  20.       src="<%=$gifdir%>/nodecheck_button.gif" border="0" alt="Links Checked by NodeWorks" /></a>
  21.   </td>
  22. </tr>
  23. <tr bgcolor="gray" width="100%">
  24.   <td><font size="+0" color="white"><b><%=$title || $demo->{title}%></b></font></td>
  25.   <td align="right">
  26.     <% 
  27.        my $date = &Apache::ASP::Date::time2iso(); 
  28.        $date =~ s/\s*\d\d:\d\d:\d\d$//;
  29.      %>
  30.     <font color="white" size="-1"><%=$date %></font>
  31.   </td>
  32. </tr>
  33. </table>
  34. <br />
  35.  
  36.  
  37.