<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
Tools Component
Tools Component
<%
Dim objTools
Dim FoundFile, blnFileExists, blnFileDoesNotExist, NotFoundFile
Dim intRand, intRandPos, intRandBelow
'Create the Tools Object
Set objTools = Server.CreateObject("MSWC.Tools")
%>
FileExists Example
<%
FoundFile = "Tools_VBScript.asp"
NotFoundFile = "blah.asp"
'Check if file exists.
blnFileExists = objTools.FileExists(FoundFile)
'Output response appropriately.
If (blnFileExists) Then
Response.Write "The File " & FoundFile & " Exists
"
Else
Response.Write "The File " & FoundFile & " Does Not Exist
"
End If
'Check if file exists.
blnFileDoesNotExist = objTools.FileExists(NotFoundFile)
'Output response appropriately.
If (blnFileDoesNotExist) Then
Response.Write "The File " & NotFoundFile & " Exists"
Else
Response.write "The File " & NotFoundFile & " Does Not Exist"
End If
%>
Random Integer Example
<%
'Random integer.
intRand = objTools.Random
Response.Write "Random integer: "
Response.Write intRand
Response.Write "
"
'Positive random integer.
intRandPos = Abs( objTools.Random )
Response.Write "Positive random integer: "
Response.Write intRandPos
Response.Write "
"
'Positive random integer between 0 and 100.
intRandBelow = Abs( objTools.Random ) Mod 100
Response.write "Random integer below 100: "
Response.write intRandBelow
Response.write "
"
%>