Recent Files

Last Updated Files.

Posted by Admin on Today

January 2026

NAVIGATION EXAMPLE >>>>>UNIVERSITY PAGE >>>>>BCA >>>>>SUTEX BCA >>>>>TY BCA 2 >>>>>SAMPLE CHILD >>>>>NESTED CHILD PAGE >>>>>Ch 3 My First ASP.NET Page >>>>>Ex 3.2 App Settings Demo

SAMPLE MENU

New Item

Label NEW CONNECTION STRING

THIS IS DEMO FOR 2016

Reading App Settings :

0:SMTPServer : smtp.gmail.com
1:MailUserName : hitesh123.mk@gmail.com
2:MailPassword : 8866248218
3:ClassName : TYBCADIV3 201920 BATCH
4:Studentname : ANIL BHADANI
5:City : Paris
6:mydemoconn123 : sutexbca
7:font : Karla
8:myname : Dhruv Patel
9:SecurityKey : alpha
10:mywebservice.Service : http://localhost:3111/MyWebservice/Service.asmx
11:greetings.MyCustomService : http://localhost:3111/MyWebservice/MyCustomService.asmx
12:WebServiceDemo2014.Service : http://x73/Webservice2014/Service.asmx
13:wsdtybca.tybcadiv1 : http://192.168.10.73/webservice2016/tybcadiv1.asmx
14:wstybca2.service : http://192.168.10.73/webservice2016/service.asmx
15:OTPDemo1.Service : http://192.168.10.73/OTPDemo/Service.asmx
16:myfavclass : TYBCA-DIV1
17:mywebname : Hi-Tech Demos 2018-19
18:specialdish : Nothing Special
19:tybca2018.tybcadiv1 : http://172.30.58.221/webservice2016/tybcadiv1.asmx
20:special2 : not special 26

Reading Connection Strings :

0:LocalSqlServer
data source=.\SQLEXPRESS;Integrated Security=SSPI;AttachDBFilename=|DataDirectory|aspnetdb.mdf;User Instance=true
1:ConnectionString
Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database123.mdf;Integrated Security=True;User Instance=True
2:DemosConnectionString
Data Source=X73\SQLEXPRESS;Initial Catalog=Demos;Integrated Security=True
3:constrsql2
Data Source=.\SQLExpress;Persist Security Info=False;Integrated Security=SSPI;Initial Catalog=Demos
4:constrsql
Data Source=X73\SQLEXPRESS;Initial Catalog=Demos;Integrated Security=True
5:constrsql1
Data Source=.\sqlexpress;AttachDbFilename=F:\HPP Personal\Dropbox\Study Material\ASP.NET\Samples\App_Data\Demos.mdf;Integrated Security=True;Initial Catalog=Demos
6:TEST123
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\HPP Personal\Dropbox\Study Material\ASP.NET\Samples\App_Data\MyWeb.mdb;Persist Security Info=True
7:vicky
server=192.168.10.225;database=tybca110;Username=TYBCA;password=dfsdfsdf
8:ConnectionString2018
Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database2018.mdf;Integrated Security=True;User Instance=True
9:rajnity3
server=172.30.58.223;database=tybca153;Username=TYBCA153;password=AJCA66JJRE;
10:tybcadiv2020
Data Source=.\SQLEXPRESS;AttachDbFilename="|DataDirectory|\2016 data\Demos.mdf";Integrated Security=True;User Instance=True
11:tybca12ConnectionString
Data Source=.\sqlexpress;Initial Catalog=tybca12;Integrated Security=True

Reading Profile :

5203ce01-6cad-4232-a2d6-5999e7e26041

SURAT
Rupees
RED

FORMATED OUTPUT SHOULD BE DISPLAYED

MY VIRTUAL PATH :/Samples/ReadAppSettings.aspx

Source Information:

Code Information:

Imports System.Web.Configuration.WebConfigurationManager
Partial Class ReadAppSettings
    Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'DEPRECIATED code Since 6/9/2016
        'If System.Web.Configuration.WebConfigurationManager.AppSettings.Item("mydemoconn123") = "" Then
        '    Label1.Text = System.Web.Configuration.WebConfigurationManager.AppSettings.Item("myname").ToString
        'Else

'    Label1.Text = System.Web.Configuration.WebConfigurationManager.AppSettings.Item("mydemoconn123").ToString
        'End If

'code for fetching app settings
        Label2.Text &= "<h3>Reading App Settings : </h3>"

Dim icon As Integer
        For icon = 0 To System.Web.Configuration.WebConfigurationManager.AppSettings.Count - 1
            Label2.Text &= icon & ":"
            Label2.Text &= System.Web.Configuration.WebConfigurationManager.AppSettings.Keys(icon).ToString & " : "
            Label2.Text &= System.Web.Configuration.WebConfigurationManager.AppSettings.Item(icon).ToString & "<br>"
        Next

'code for fetching connection strings
        Label2.Text &= "<h3>Reading Connection Strings : </h3>"
        Dim iconstr As Integer
        For iconstr = 0 To System.Web.Configuration.WebConfigurationManager.ConnectionStrings.Count - 1
            Label2.Text &= iconstr & ":"
            Label2.Text &= System.Web.Configuration.WebConfigurationManager.ConnectionStrings(iconstr).Name & "<br>"
            Label2.Text &= System.Web.Configuration.WebConfigurationManager.ConnectionStrings.Item(iconstr).ToString & "<br>"
        Next

'code for fetching Profile Data
        
        Label2.Text &= "<h3>Reading Profile : </h3>"

Label2.Text &= Profile.country & "<br>"
        Label2.Text &= Profile.UserName & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.account_type & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.amount_bal & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.city & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.div & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.emailid & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.mobile & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.name & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.simage & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.student_id & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.tptacoountbal & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.uid & "<br>"
        Label2.Text &= Profile.STUDENT_DETAILS.uname & "<br>"
        Label2.Text &= Profile.generalinfo.City & "<br>"
        Label2.Text &= Profile.generalinfo.currency & "<br>"
        Label2.Text &= Profile.generalinfo.Color & "<br>"
        Label2.Text &= Profile.Bhasha

'NEXT DEMO
        Label2.Text &= "<h1> FORMATED OUTPUT SHOULD BE DISPLAYED</h1>"

'Label2.Text = "THIS USER IS ANONYMOUS : " & Profile.IsAnonymous
        'Label2.Text &= "THIS USER NAME IS: " & Profile.UserName
        'Label2.Text &= "<br>THIS USER  IS DIRTY : " & Profile.IsDirty
        'Label2.Text &= "<br>THIS USER  IS ACTIVE SINCE: " & Profile.LastActivityDate
        'Label2.Text &= "<br>THIS USER  IS UPDATED ON: " & Profile.LastUpdatedDate

End Sub

Protected Sub Page_PreInit(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreInit
        Me.Title = System.Web.Configuration.WebConfigurationManager.AppSettings.Item("myname").ToString
    End Sub

Protected Sub btnChangeConn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnChangeConn.Click
        System.Web.Configuration.WebConfigurationManager.AppSettings.Item("mydemoconn123") = txtConnChange.Text
    End Sub
End Class