Date-Time Values
Now: <%= Now %>
General Date: <%= FormatDateTime (Now, vbGeneralDate) %>
Long Date: <%= FormatDateTime (Now, vbLongDate) %>
Short Date: <%= FormatDateTime (Now, vbShortDate) %>
Long Time: <%= FormatDateTime (Now, vbLongTime) %>
ShortTime: <%= FormatDateTime (Now, vbShortTime) %>
Session Variable Collection
<%
On Error Resume Next
For Each Item in Session.Contents
Response.write Item & " = " & Session.Contents(Item) & "
"
For Each ItemKey in Session.Contents(Item)
Response.Write "Sub Item: " & Item & " (" & ItemKey & ") : " & Session.Contents(Item)(ItemKey) & "
"
Next
Next
if err.no > 0 Then
Response.Write "You must upgrade to IIS 4.0 in order to use the Session Collection
"
end if
%>
QueryString Collection
<%
For Each Item in Request.QueryString
For iCount = 1 to Request.QueryString(Item).Count
Response.Write Item & " = " & Request.QueryString(Item)(iCount) & "
"
Next
Next
%>
Form Collection
<%
For Each Item in Request.Form
For iCount = 1 to Request.Form(Item).Count
Response.Write Item & " = " & Request.Form(Item)(iCount) & "
"
Next
Next
%>
Cookies Collection
<%
For Each Item in Request.Cookies
If Request.Cookies(Item).HasKeys Then
'use another For...Each to iterate all keys of dictionary
For Each ItemKey in Request.Cookies(Item)
Response.Write "Sub Item: " & Item & "(" & ItemKey & ")"
Response.Write " = " & Request.Cookies(Item)(ItemKey)
Next
Else
'Print out the cookie string as normal
Response.Write Item & " = " & Request.Cookies(Item) & "
"
End If
Next
%>
ClientCertificate Collection
<%
For Each Item in Request.ClientCertificate
For iCount = 1 to Request.ClientCertificate(Item).Count
Response.Write Item & " = " & Request.ClientCertificate(Item)(iCount) & "
"
Next
Next
%>
ServerVariables Collection
<%
For Each Item in Request.ServerVariables
For iCount = 1 to Request.ServerVariables(Item).Count
Response.Write Item & " = " & Request.ServerVariables(Item)(iCount) & "
"
Next
Next
%>