<%
Server.ScriptTimeout=36000
str=Request.ServerVariables("QUERY_STRING")+''
Response.Buffer=true
%>
Jibbering Musings.
Jibbering.com Musings
A kind of blog like thing...
<%
fso=Server.CreateObject("Scripting.FileSystemObject")
dir=Server.MapPath("/blog/")
f = fso.GetFolder(dir);
ostr=''
if (str!='' && str.indexOf('.')==-1) {
if (fso.FileExists(dir+'/D'+str)) {
f2=fso.OpenTextFile(dir+'/D'+str)
ostr=f2.ReadAll()+'
'
f2.Close()
Response.Expires=60000
modified=new Date(Number(str)).toString()
Response.AddHeader("Last-Modified",modified)
if (''+Request.ServerVariables("HTTP_IF_MODIFIED_SINCE")!="undefined") {
Response.Status="304"
Response.End()
}
Response.AddHeader("ETag","blog"+str)
Response.CacheControl="Public, max-age=600000"
Response.AddHeader("Content-Length",ostr.length+1000)
}
}
if (ostr=='') {
arr=new Array()
fc = new Enumerator(f.files);
s = "";
for (; !fc.atEnd(); fc.moveNext()) {
R=fc.item()+''
R=R.split('\\')
R=R[R.length-1]
if (R.indexOf('.')==-1) {
arr.push(R)
}
}
arr.sort()
modified=new Date(Number(arr[arr.length-1].substr(1,1000))).toString()
Response.AddHeader("Last-Modified",modified)
Response.Flush()
for (i=arr.length-1;i>=0;i--) {
f2=fso.OpenTextFile(dir+'/'+arr[i])
Response.Write(f2.ReadAll()+'
')
f2.Close()
Response.Flush()
}
} else {
Response.Write(ostr)
}
%>
<%
try {
Response.Flush()
} catch (e) {}
%>