Displaying a Random Image Each New Session ASP.NET & VB

This tutorial shows how to display a random image upon page load, and then keep that image until the session expires. A new random image will be chosen on new sessions, and remain. VB version.

This tutorial will show how we can choose a random image to display on page load, and this same image will remain for the duration of the session. This means that no matter how many times the visitor refreshes the page, the image will remain the same. However, if the browser is closed and the session ends, a new image will be chosen at random upon a new session start, and remain until the session ends, again.
First, we need to use System.IO:

Imports System.IO

We are using Server Intellect and have found that by far, they are the most friendly, responsive, and knowledgeable support team we've ever dealt with!

For this example, we will simply use an IMG tag:

<form id="form1" runat="server"> <% Response.Write("<img src='" + chooseImage() + "' />")%> </form>

Server Intellect assists companies of all sizes with their hosting needs by offering fully configured server solutions coupled with proactive server management services. Server Intellect specializes in providing complete internet-ready server solutions backed by their expert 24/365 proactive support team.

On page load, we will call the method to choose the background image at random, but only if an image has not yet been selected this session.
The code-behind will look something like this:

Imports System.IO Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load chooseImage() End Sub Public Function chooseImage() As String If Session("img") Is Nothing Then Dim imgPath As String Dim fileCount As Integer = Directory.GetFiles(Server.MapPath("/media/img/"), "*.*", SearchOption.TopDirectoryOnly).Length fileCount = fileCount + 1 imgPath = "media/img/" & RandomNumber(1, fileCount) & ".jpg" Session("img") = imgPath Return imgPath Else Return Session("img").ToString() End If End Function Private Function RandomNumber(ByVal min As Integer, ByVal max As Integer) As Integer Dim random As New Random() Return random.Next(min, max) End Function End Class

Looking for the V#.NET 2005 Version? Click Here!

Looking for more ASP.NET Tutorials? Click Here!