<%
'Template Last updated 7-27-2011
' For those in the class that are programming-savvy, here is the source code for the
' PHP template that I use to port the Powerpoint slides over to the web. It can be
' used for any course where the prof uses Powerpoint slides for the lectures.
' Why? Because you might need to see the lecture slides, but not have access to
' Microsoft Powerpoint, or, a version of Powerpoint that'll read the file(s).
' But as an PHP, which becomes (d)html when it hits the client, the slideshow is
' viewable on any device that has an embedded browser.
' Just download the Powerpoint file, save the slides as PNG graphics to a folder
' somewhere on your PHP-enabled server, then make some global changes to this template.
' The first 3 globals are self-explanatory.
' strPNGpath is the path to the folder where you saved the PNG graphics files.
' The naming convention for the graphics files is the default that Powerpoint uses
' to name them when they are saved - Slide[x].PNG. The reason I like to use PNG
' graphics is because PNG graphics can have transparent backgrounds by default.
' I have used the VBDQ and VBSQ server variables for years, as an easy way to
' do ticks and double-ticks.
' intUpperBound is the number of slides in the presentation that you want to share.
' The array is the set of notes to yourself that will be shown with each slide.
' intUpperBound and the upperbound for the array MUST match. However this section
' of the code is the only section where you need to make manual changes.
' This template uses client-side javascript, so the client browser will need to have
' javascript enabled for proper functioning of the resulting web page.
strCourseNumber = "GPH 473"
strCourseSemester = "Summer 2011"
strLectureNumber = "7"
strLectureTitle = "Hierarchical Operations"
strDate = "July 19th, 2011"
strTest = "Midterm"
strPNGpath = "7_HierarchicalOperations"
intImageWidth = 1010
intFrameHeight = 760
intSlideIndexColumnWidth = 115
vbdq = chr(34)
vbsq = chr(39)
intUpperBound = 7
Dim strMyNotes(7)
strMyNotes(0) = "This note will never show. Slide 1 begins with index 1. I'll fix this someday."
strMyNotes(1) = " "
strMyNotes(2) = " "
strMyNotes(3) = " "
strMyNotes(4) = " "
strMyNotes(5) = " "
strMyNotes(6) = " "
strMyNotes(7) = " "
%>
<% =strCourseNumber %> <% =strCourseSemester %> Lecture <% =strLectureNumber %>: <% =strLectureTitle %> (<% =strDate %>)
<%
intFileCount = 1
Set AnFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder= AnFSO.GetFolder(Server.MapPath(".") & "\" & strPNGpath)
For Each objFile in objFolder.Files
Response.Write("
Slide " & intFileCount & "
" & vbcrlf)
intFileCount = intFileCount + 1
Next
Set AnFSO = Nothing
%>
