www.fingertip.page.tl or www.fingertip.us.tt

Search for

A form with checkboxes

<html>
<body>
<%
fruits=Request.Form("fruits")
%>

<form action="demo_checkboxes.asp" method="post">
Which of these fruits do you prefer:
<input type="checkbox" name="fruits" value="Apples"
<%if instr(fruits,"Apple") then Response.Write("checked")%>>
Apple
 
<input type="checkbox" name="fruits" value="Oranges"
<%if instr(fruits,"Oranges") then Response.Write("checked")%>>
Orange
 
<input type="checkbox" name="fruits" value="Bananas"
<%if instr(fruits,"Banana") then Response.Write("checked")%>>
Banana
 
<input type="submit" value="Submit">
</form>
<%
if fruits<>"" then%>
 You like: <%Response.Write(fruits)%>
<%end if
%>

</body>
</html>

How to find the visitors' browser type, IP address and more

<html>
<body>

You are browsing this site with:
<%Response.Write(Request.ServerVariables("http_user_agent"))%>


Your IP address is:
<%Response.Write(Request.ServerVariables("remote_addr"))%>


The DNS lookup of the IP address is:
<%Response.Write(Request.ServerVariables("remote_host"))%>


The method used to call the page:
<%Response.Write(Request.ServerVariables("request_method"))%>


The server's domain name:
<%Response.Write(Request.ServerVariables("server_name"))%>


The server's port:
<%Response.Write(Request.ServerVariables("server_port"))%>


The server's software:
<%Response.Write(Request.ServerVariables("server_software"))%>


</body>
</html>

List all servervariables you can ask for

<html>
<body>


All possible server variables:

<%
For Each Item in Request.ServerVariables
 Response.Write(Item & " ")
Next
%>

</body>
</html>

Welcome cookie

<%
dim numvisits
response.cookies("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")
%>
<html>
<body>
<%
if numvisits="" then
 response.cookies("NumVisits")=1%>
 Welcome! This is the first time you are visiting this Web page.
<%
else
 response.cookies("NumVisits")=numvisits+1
 response.write("You have visited this ")
 response.write("Web page " & numvisits)
 if numvisits=1 then
 response.write " time before!"
 else
 response.write " times before!"
 end if
end if
%>
</body>
</html>

Total number of bytes the user sent

<html>
<body>

<form action="demo_totalbytes.asp" method="post">
Please type something:
<input type="text" name="txt"> 
<input type="submit" value="Submit">
</form>

<%
If Request.Form("txt")<>"" Then
 Response.Write("You submitted: ")
 Response.Write(Request.Form)
 Response.Write(" ")
 Response.Write("Total bytes: ")
 Response.Write(Request.Totalbytes)
End If
%>

</body>
</html>

Return session id number for a user

<html>
<body>

<%
Response.Write(Session.SessionID)
%>

</body>
</html>

Get a session's timeout

<html>
<body>

<%
response.write("")
response.write("Default Timeout is: " & Session.Timeout & " minutes.")
response.write("")

Session.Timeout=30

response.write("")
response.write("Timeout is now: " & Session.Timeout & " minutes.")
response.write("")
%>

</body>
</html>

Server Object

When was a file last modified?

<html>
<body>

<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set rs = fs.GetFile(Server.MapPath("demo_lastmodified.asp"))
modified = rs.DateLastModified
%>
This file was last modified on: <%response.write(modified)
Set rs = Nothing
Set fs = Nothing
%>

</body>
</html>

Open a textfile for reading

<html>
<body>

<%
Set FS = Server.CreateObject("Scripting.FileSystemObject")
Set RS = FS.OpenTextFile(Server.MapPath("text") & "TextFile.txt",1)
While not rs.AtEndOfStream
 Response.Write RS.ReadLine
 Response.Write(" ")
Wend
%>


<a href="text/textfile.txt"><img border="0" src="../images/btn_view_text.gif"></a>


</body>
</html>

Home made hit counter

<%
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 1, False)
fcount=RS.ReadLine
RS.Close

fcount=fcount+1

'This code is disabled due to the write access security on our server:
'Set RS=FS.OpenTextFile(Server.MapPath("counter.txt"), 2, False)
'RS.Write fcount
'RS.Close

Set RS=Nothing
Set FS=Nothing

%>
<html>
<body>

This page has been visited <%=fcount%> times.

</body>
</html>

FileSystem Object

Does a specified file exist?

<html>
<body>

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If (fs.FileExists("c:winntcursors3dgarro.cur"))=true Then
 Response.Write("File c:winntcursors3dgarro.cur exists.")
Else
 Response.Write("File c:winntcursors3dgarro.cur does not exist.")
End If

set fs=nothing
%>

</body>
</html>

Does a specified folder exist?

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

If fs.FolderExists("c:temp") = true Then
 Response.Write("Folder c:temp exists.")
Else
 Response.Write("Folder c:temp does not exist.")
End If

set fs=nothing
%>

</body>
</html>

Does a specified drive exist?

<html>
<body>
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

if fs.driveexists("c:") = true then
 Response.Write("Drive c: exists.")
Else
 Response.Write("Drive c: does not exist.")
End If

Response.write(" ")

if fs.driveexists("g:") = true then
 Response.Write("Drive g: exists.")
Else
 Response.Write("Drive g: does not exist.")
End If

set fs=nothing
%>

</body>

</html>