<%
If InStr(LCase(Request.ServerVariables("HTTP_USER_AGENT")), "netscape") > 0 Then
strCusorType = "pointer"
Else
strCusorType = "hand"
End If
strSQL = "SELECT MenuID AS 'MainID', MenuName AS 'Main', "&_
"PageID AS 'MainPageID', Frame AS 'MainFrame', "&_
"MenuOrder AS 'MainOrder', 0 AS 'SubID', "&_
"'' AS 'Sub', NULL AS 'SubPageID', "&_
"'' AS 'SubFrame', 0 AS 'SubOrder' "&_
"FROM CMS_Menu "&_
"WHERE MenuSectionID = 1 AND "&_
"MainMenuID IS NULL AND "&_
"PageID IS NOT NULL "&_
"UNION "&_
"SELECT main.MenuID AS 'MainID', main.MenuName AS 'Main', "&_
"NULL AS 'MainPageID', '' AS 'MainFrame', "&_
"main.MenuOrder AS 'MainOrder', sub.MenuID AS 'SubID', "&_
"sub.MenuName AS 'Sub', sub.PageID AS 'SubPageID', "&_
"sub.Frame AS 'SubFrame', sub.MenuOrder AS 'SubOrder' "&_
"FROM CMS_Menu main, CMS_Menu sub "&_
"WHERE main.MenuSectionID = 1 AND "&_
"main.MenuID = sub.MainMenuID AND "&_
"sub.PageID IS NOT NULL "&_
"ORDER BY MainOrder, SubOrder"
Set rsMenu = Server.CreateObject("ADODB.Recordset")
rsMenu.Open strSQL, Application("CString"), 3, 1
if not rsMenu.EOF then
strHideAllLayers = ""
do while not rsMenu.EOF
i_MainID = rsMenu("MainID")
i_MainPageID = rsMenu("MainPageID")
if IsNull(i_MainPageID) then
strHideAllLayers = strHideAllLayers &"'Option_"& i_MainID &"','','hide',"
end if
rsMenu.MoveNext()
loop
if Len(strHideAllLayers) > 0 then
strHideAllLayers = Left(strHideAllLayers, Len(strHideAllLayers) - 1)
end if
rsMenu.MoveFirst()
%>
<%
i_Counter = 0
do while not rsMenu.EOF
i_MainID = rsMenu("MainID")
s_Main = rsMenu("Main")
i_MainPageID = rsMenu("MainPageID")
s_MainFrame = rsMenu("MainFrame")
i_MainOrder = rsMenu("MainOrder")
if Not IsNull(i_MainPageID) then
if s_MainFrame = "_self" then
s_MainFrame = "_top"
end if
%>
|
<%
rsMenu.MoveNext()
else
i_PX = 0+ (23 * i_Counter)
%>
| );ChangeBG(this,'#B4C7E5');" onMouseOut="javascript:Do_OutDelay('Option_<%=i_MainID%>','','hide');ChangeBG(this,'#FFFFFF');"><%=Server.HTMLEncode(s_Main)%>
|
<%
do while i_MainID = rsMenu("MainID")
i_SubID = rsMenu("SubID")
s_Sub = rsMenu("Sub")
i_SubPageID = rsMenu("SubPageID")
s_SubFrame = rsMenu("SubFrame")
i_SubOrder = rsMenu("SubOrder")
if s_SubFrame = "_self" then
s_SubFrame = "_top"
end if
%>
<%
rsMenu.MoveNext()
if rsMenu.EOF then exit do
loop
%>
|
<%
end if
i_Counter = i_Counter + 1
loop
%>
<%
end if
rsMenu.Close()
set rsMenu = Nothing
%>
|
 |
|
|
<%
Function RandomImage(ImagesFolderPath, ImageFileTypes, ImageDescription)
'Declare variables
Dim CompleteImagesFolderPath
Dim FileSystemObject
Dim ImageFolder
Dim Files
Dim i
Dim ImageFiles
Dim File
Dim FileName
Dim FileExtension
Dim RandomNumber
'Find the complete path to image folder by using Server.MapPath
CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath)
'Create an instance of the FileSystemObject which allows ASP to
'access the file system
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")
DeleteFilePath = Server.MapPath("Images/randomRight/Thumbs.db")
if FileSystemObject.FileExists(DeleteFilePath) then
FileVar = "Yes"
FileSystemObject.DeleteFile DeleteFilePath
else
FileVar = "No"
end if
'Check that the folder containing the images exists
If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then
RandomImage = "Error 0: Cannot find requested folder"
Set FileSystemObject = nothing
Exit Function
End If
'Get the folder containing the images
Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath)
'Get a list of all the files within the images folder
Set Files = ImageFolder.Files
'Use a dictionary object to temporarily store the image file names
i = 1
Set ImageFiles = Server.CreateObject("Scripting.Dictionary")
'Loop through the list of files within the images folder.
'If the file has a file extension that is in the list of
'file types specified in the ImageFileTypes function parameter,
'then add the file name to the ImageFiles dictionary object
For Each File in Files
FileName = File.Name
'FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))
FileExtension = "jpg"
'response.Write("
FileExtension : "&FileExtension)
If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then
ImageFiles.Add i, FileName
i = i + 1
End If
Next
'Destroy objects that are no longer required
Set ImageFolder = nothing
Set Files = nothing
Set FileSystemObject = nothing
'Initialise the random number generator
Randomize
' Check that image file(s) have been found
If ImageFiles.Count = 0 Then
RandomImage = "Error 1: Requested folder does not contain any image files"
Exit Function
End If
'Generate a random number between 1 and the number of image files
RandomNumber = Int((ImageFiles.Count) * Rnd + 1)
'Return a hyperlink to a random image file
'RandomImage = " & ImagesFolderPath & ImageFiles.Item(RandomNumber) & Chr(34) & ) "
RandomImage = ImagesFolderPath & ImageFiles.Item(RandomNumber)
Set ImageFiles = nothing
End Function
'Response.Write RandomImage("Images/randomRight/", "gif jpeg jpg", "My Image")
%>
"> |
|
| <%=FileVar%> |
|
