Downloads Page

Recent Files

Last Updated Files.

1. Submission.aspx

Posted by Admin on Today

January 2026

SAMPLE MENU

New Item

WELCOME 31c1e0e7-bec2-4663-ba7f-4e9f684da6e3 u are login since :

This Page is for Templates, Database,Images Download.

1. adimages.zip
2. Advertisement.zip
3. aquaria_187.zip
4. blooming_230.zip
5. book_store_597.zip
6. circleimagemap.jpg
7. female.jpg
8. Global.zip
9. male.jpg
10. MySql.Data.zip
11. MyWeb.zip
12. polygonimagemap.jpg
13. recangleimagemap.jpg
14. Sample.NetTechnology2025.docx
15. Sample.pdf
16. SampleASP.docx
17. SampleASP2025.docx
18. SampleMScIT2025.docx
19. Samplevb.pdf
20. SortinginC.txt
21. sunflower_258.zip
22. tempalldata.pdf
23. voyage_340.zip
24. wallpaper_25Years_winter_selected.png
25. web.config
Hello welcome to : ASP.NET DEMOS FOR SUTEX BCA STUDENTS for Year 2017-18
Our Counter is : 6

MY VIRTUAL PATH :/Samples/TemplateDownload.aspx

Source Information:

<%@ Page Language="VB" MasterPageFile="~/MainMaster.master" AutoEventWireup="false" CodeFile="TemplateDownload.aspx.vb" Inherits="Default5" title="Downloads Page" %>

<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
</asp:Content>

<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    
        <asp:Label ID="Label1" CssClass ="mylabel" runat="server" Text="Label"></asp:Label>
 <h2>This Page is for Templates, Database,Images Download.
  </h2>
     <table>
  <tr>
  <td>  <asp:Label CssClass="mytxt" ID="lbl1" runat="server"></asp:Label>
        <asp:Label CssClass="mytxt" ID="lbl2" runat="server"></asp:Label>
              <br />
      <br />
       <a name="imagesdown"></a>
      <%--image showing data for 201920--%>
      <%-- <header>    <h2>Download your Images:</h2>
         <span>  <a href="TemplateDownload.aspx#toppage">
            <img src="images/toppage.png" alt="Go to TOP !"  width="32" height="32" border="0">
            TOP</a></span>
</header>--%>
          
          
            <asp:DataList ID="DataList1" runat="server" BackColor="LightGoldenrodYellow" 
                BorderColor="Tan" BorderWidth="1px" CellPadding="2" ForeColor="Black" 
                RepeatColumns="5" DataKeyField="Text" DataMember="Value" >
                <AlternatingItemStyle BackColor="PaleGoldenrod" />
                <FooterStyle BackColor="Tan" />
                <HeaderStyle BackColor="Tan" Font-Bold="True" />
                <SelectedItemStyle BackColor="DarkSlateBlue" ForeColor="GhostWhite" />
           <ItemTemplate>
          <a href='<%# "Downloads\" & DataBinder.Eval(Container.DataItem, "Text") %>' >
          <asp:Image ID="myimg" runat="server" Height="100px" Width="100px" ImageUrl='<%# "~\Downloads\" & DataBinder.Eval(Container.DataItem, "Text") %>' ToolTip='<%#DataBinder.Eval(Container.DataItem, "Text") %>' AlternateText='<%# DataBinder.Eval(Container.DataItem, "Text") %>' />
          </a> 
           </ItemTemplate>
            </asp:DataList>
        <div class="WordWrap">
     <%--Add your gridview here--%>
           
      <asp:GridView ID="GridView1" runat="server" BackColor="White" BorderColor="White" 
            BorderStyle="Ridge" BorderWidth="2px" CellPadding="3" CellSpacing="1" 
            EnableModelValidation="True" GridLines="None" AutoGenerateColumns="false"  >
            <Columns>
        <asp:BoundField DataField="Text" HeaderText="Image Name" >
        <ItemStyle Width="35" />
        <HeaderStyle Width="100px" />
        </asp:BoundField >
                <asp:ImageField HeaderText="Image" DataImageUrlField="Value" ItemStyle-HorizontalAlign="Center" ControlStyle-Height="100" ControlStyle-Width="100" >
        <ItemStyle Width=""  />
        <HeaderStyle Width="100px" />
                
                </asp:ImageField>
    </Columns>
          <FooterStyle BackColor="#C6C3C6" ForeColor="Black" />
          <HeaderStyle BackColor="#4A3C8C" Font-Bold="True" ForeColor="#E7E7FF" />
          <PagerStyle BackColor="#C6C3C6" ForeColor="Black" HorizontalAlign="Right" />
          <RowStyle BackColor="#DEDFDE" ForeColor="Black" />
          <SelectedRowStyle BackColor="#9471DE" Font-Bold="True" ForeColor="White" />
      </asp:GridView>          
</div>
    <asp:Label ID="lblother" runat="server"></asp:Label>
        
        	<div class="cleaner"></div>
           
  </td>
  </tr>
  </table>
  
</asp:Content>

Code Information:

Imports System.IO
Imports System.Collections.Generic
Imports System.Web.Configuration
Partial Class Default5
    Inherits System.Web.UI.Page
    Public Sub GetFilesFromDirectory(ByVal DirPath As String)
        Try
            Dim cou As Integer
            cou = 0
            Dim Dir As New DirectoryInfo(DirPath)
            'Dim FileList As FileInfo() = Dir.GetFiles()
            Dim FileList As FileInfo() = Dir.GetFiles("*.*", SearchOption.TopDirectoryOnly)
            'Dim FileList As FileInfo() = Dir.GetFiles.Where(Function(fi) fi.Extension = ".avi" OrElse fi.Extension = ".mpg" OrElse fi.Extension = ".mkv" OrElse fi.Extension = ".mp4").ToArray()
            For Each FI As FileInfo In FileList
                '  lblme.Text = lblme.Text & FI.FullName & "<br/>"
                cou = cou + 1
                lbl1.Text &= " " & cou & ". "
                lbl1.Text &= ("<a href=" & FI.Directory.Name & "/" & FI.Name & ">" & FI.Name & "</a>") & "<br/>"
                'lbl1.Text &= FI.Directory.Name & "/" & FI.Name
            Next
            ' SHOWING PATH
            '  lbl1.Text &= "YOUR FILES ARE LOCATED @ <br/>" & DirPath
        Catch ex As Exception
            lbl1.Text = ex.Message
        End Try
    End Sub
    Public Sub GetAllFilesFromDirectory(ByVal DirPath As String, ByVal filetype As String)
        Try
            Dim cou As Integer
            cou = 0
            Dim Dir As New DirectoryInfo(Server.MapPath("~\"))
            'lblother.Text &= Server.MapPath("~\")
            'lblother.Text &= srtr
            Dim FileList As FileInfo() = Dir.GetFiles(filetype, SearchOption.AllDirectories)
            For Each FI As FileInfo In FileList
                '  lblme.Text = lblme.Text & FI.FullName & "<br/>"
                ' Response.Write("<a href = '" & FI.FullName & "'>" & "</a>")
                ' lblother.Text &= "YOUR FILES ARE LOCATED @ <br/>" & DirPath
                cou = cou + 1
                'lblother.Text &= " " & cou & ". "
                'lblother.Text &= ("<a href=""" & FI.Directory.Name & "\" & FI.Name & """>" & FI.Directory.Name & "\" & FI.Name & "</a>") & "<br/>"
            Next

' SHOWING PATH
            'lblother.Text &= "YOUR FILES ARE LOCATED @ <br/>" & DirPath
        Catch ex As Exception
            lblother.Text = ex.Message
        End Try

End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("User") = "" Then
            'Response.Redirect("LoginDemo.aspx")
            Label1.Text = "WELCOME " & Profile.UserName & " u are login since : " & Session("Ltime")
        Else

Label1.Text = "WELCOME " & Session("User") & " u are login since : " & Session("Ltime")
            Response.Write(System.Web.Configuration.WebConfigurationManager.AppSettings("ClassName").ToString)
        End If
        If Not Page.IsPostBack Then
            'Dim strdemo As String = System.Web.Configuration.WebConfigurationManager.ConnectionStrings.Item("TEST123").ConnectionString
            'Response.Write(strdemo)
            'code for images in directory
            Dim filePaths1 As String() = Directory.GetFiles(Server.MapPath("~/Downloads"), "*.jpg")
            Dim filePaths2 As String() = Directory.GetFiles(Server.MapPath("~/Downloads"), "*.png")
            Dim filePaths3 As String() = Directory.GetFiles(Server.MapPath("~/Downloads"), "*.txt")

Dim files1 As New List(Of ListItem)()
            For Each filePath1 As String In filePaths1
                Dim fileName1 As String = Path.GetFileName(filePath1)
                files1.Add(New ListItem(fileName1, "~/Downloads/" + fileName1))

Next
            'for png images
            For Each filePath1 As String In filePaths2
                Dim fileName1 As String = Path.GetFileName(filePath1)
                files1.Add(New ListItem(fileName1, "~/Downloads/" + fileName1))
            Next
            ' GridView1.DataSource = files1
            'GridView1.DataBind()

' DataList1.DataSource = files1
            ' DataList1.DataBind()
            Dim path1 As String = Server.MapPath("~\Downloads")
            ' Response.Write(Server.MapPath("~\") & "<br/>")
            'lblinfo.Text = "TOTAL FILES IN DIRECTORY " & "<br/>"
            GetFilesFromDirectory(path1)
            GetAllFilesFromDirectory(path1, "*.jpg")

lbl2.Text = "Hello welcome to : " & Application("name")
            lbl2.Text &= "<br> Our COUNTER IS : " & Application("visitorno")
        End If
        'Dim str As String = System.Web.Hosting.HostingEnvironment.ApplicationHost.GetSiteName()
        'Dim str2 As String = HttpContext.Current.Request.Url.Host
        'Application("name") = "NAME 1 : " & str & " NAME 2 : " & str2

lbl2.Text = "Hello welcome to : " & Application("name")
        lbl2.Text &= "<br> Our Counter is : " & Application("visitorno")

'Code for Reading Web.config File Data
        'Dim i As Integer = 0
        'For i = 0 To WebConfigurationManager.ConnectionStrings.Count - 1
        '    lbl2.Text &= "<br><h2> " & i + 1 & " Con Str Name: " & WebConfigurationManager.ConnectionStrings(i).Name & ": Value : " & WebConfigurationManager.ConnectionStrings(i).ConnectionString & "</h2>"
        'Next

'Dim i As Integer = 0
        'For i = 0 To WebConfigurationManager.AppSettings.Count - 1
        '    lbl2.Text &= "<br>" & i + 1 & " Key: " & WebConfigurationManager.AppSettings.Keys(i).ToString & " Value: " & WebConfigurationManager.AppSettings.Item(i).ToString
        'Next
        'lbl2.Text &= "<br><h2>THIS IS CONNECTION STRINGS</h2><br>"
        'Dim j As Integer = 0
        'For j = 0 To WebConfigurationManager.ConnectionStrings.Count - 1
        '    lbl2.Text &= "<br>" & j & " Key: " & WebConfigurationManager.ConnectionStrings(j).Name & " Value: " & WebConfigurationManager.ConnectionStrings(j).ConnectionString
        'Next

End Sub

'Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    Dim a, b As Integer
    '    a = b / 0
    '    Response.Write(a)
    'End Sub

End Class