vijay

welcome Netizen

welcome Netizen
Hi folks this site Share Basic Knowledge in .NET, DotNet, C#,DOT NET CODE, ASP.NET, VB.NET, DOT NET TRICKS,Dotnetcode,Android and Latest Technology Articles in VB,Android and ASP.NET

Monday, June 27, 2011

Creating ASP.Net Menu Control using CSS


Hi..
                In this article I plan to write about Menu Control. By using Web user Control we can design Menu Control, and then we added the menu control to the main page. By following this method we can use same menu control for all pages. No need to create Menu for each page.

Firstly you added one web user control (menu.ascx) and style Sheet (menu3.css) from the add one item in solution Explorer. Then enter the following CSS Code in the style Sheet file.
.Menu
     background:transparent url(images/blueslate_background.gif) repeat-x;
    text-align:center;
    font-size:11px;
    border: solid 1px #fff !important;
}


.menuhover
{
     color:#fff;background:transparent url(images/blueslate_backgroundOVER.gif) no-repeat top center;
 }

And Create images folder in solution explorer and copy, past the below pictures in that folder




Copy the below code in menu.ascx page…

<link rel="stylesheet" href="Menu3.css" type="text/css" />

<div id="header" align="center" >
<table width="100%" cellpadding ="0" cellspacing ="0" align="center">

<tr>
<td  align="center">


    <asp:Menu ID="Menu1" runat="server" Orientation ="Horizontal" CssClass ="Menu" Font-Names="Verdana" ForeColor ="White" Width="800px">
    <StaticMenuItemStyle Height ="40px"/>
    <DynamicMenuItemStyle CssClass ="Menu" Height="40px" HorizontalPadding="25px"  />
    <dynamichoverstyle  CssClass ="menuhover" />
    <StaticHoverStyle CssClass ="menuhover" />
         
    <Items>
    <asp:MenuItem Text="My Menu">
    <asp:MenuItem Text ="My profile" Enabled ="true" ></asp:MenuItem>
    <asp:MenuItem Text="my Forum" Enabled ="true"></asp:MenuItem>
        
    </asp:MenuItem>
    <asp:MenuItem Text="Classfields" >
    <asp:MenuItem Text="car" Enabled ="true" ></asp:MenuItem>
    <asp:MenuItem Text="Item For sale" Enabled ="true" ></asp:MenuItem>   
   
    </asp:MenuItem>
    <asp:MenuItem Text="Forum">
    <asp:MenuItem Text="Create a Forum">
        </asp:MenuItem>
       
    </asp:MenuItem>
   
    <asp:MenuItem Text="Answers">
    <asp:MenuItem Text="post Answer">
    <asp:MenuItem Text="Ask Question"></asp:MenuItem>
    <asp:MenuItem Text="FAQ"></asp:MenuItem>
    </asp:MenuItem>
    </asp:MenuItem>
   
    <asp:MenuItem Text="Guide">
    <asp:MenuItem Text="Contact us"></asp:MenuItem>
    </asp:MenuItem>
    <asp:MenuItem Text ="Help" >
    <asp:MenuItem Text="About Us" Enabled ="true"></asp:MenuItem>
        </asp:MenuItem>
    </Items>
    </asp:Menu>

</td>
</tr>
</table>
</div>

IN Default.aspx pagecreate a table in one td drag the menu control in td,Your code will look like below..

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
   <table cellpadding ="0" cellspacing ="0" width ="1000" align="center" >
   <tr>
   <td>
      <uc1:menu ID="menu1" runat="server" />
   </td>
   </tr>
    </table>
    </div>
    </form>
</body>
</html>


i hope this one helpful to you..
plz post your comments

Wednesday, June 22, 2011

How to find number of online user/visitors in asp.net


Hi.
In this article i am going to describe about to find the number of online user in website. This type of process we have to write the code in
Global.asax file .In previously i wrote an article about to find number of views or count in page .For your reference i mention it here...


Global.asax file you can find in Solution explorer. Click Solution explorer->ADD New Item->Choose Global.asax file
In this file you Can find the following Structure:
Application start, Application End, session start ,session end Function ,So write the below code in the file

<script runat="server">

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup
        Application("user") = 0
    End Sub
   
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application shutdown
    End Sub
       
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
        Application.Lock()  ' Its used to open only one time  for session,suppose the user do referesh page  it will not count the counter.
        Application("user") = Application("user") + 1
        Application.UnLock()
               
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a session ends.
        ' Note: The Session_End event is raised only when the sessionstate mode
        ' is set to InProc in the Web.config file. If session mode is set to StateServer
        ' or SQLServer, the event is not raised.
        Application.Lock() ' Its used to open only one time  for session,suppose the user do referesh page  it will not count the counter.
        Application("user") = Application("user") - 1
        Application.UnLock()
       
    End Sub
      
</script>

Also Find web.config file in that file write the below code in session.
Session is used when user went offline then its decrease one count from the application ("user").
                <system.web>
                                <sessionState mode="InProc" timeout="5"/>
                             
                                <compilation debug="true">

Then In your Homepage i.e default.aspx file keep one label and the enter the following code in serverside
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
          Label1.Text = Application("user")
    End Sub

Now process is over,  you can open your page check the page in different browser it will count the online user..
i hope this one helpful to you ..

Friday, June 17, 2011

RowDataBound Event in Gridview using ASP.Net


Hi..
In Previous article i have written about how to insert,update and edit datagridview..


Then i found usage of Rowdatabound its very interesting in grid view, Normally when binding a value in grid view we are using templatefield but another one usage was there i.e. Bound field, If we use Boundfield we can change the data at the time of binding in grid view .
For an example in an grid view had one column email .so when binding an email address you have change the column link. For this you have to use rowdatabound filed.


This Coding add in client side…
<asp:BoundField HeaderText ="Email" DataField ="email" />

Here datafield as a field databasename.
Then you have add the below coding in rowdatabound in gridview event properties.

Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView1.RowDataBound
        'End If

        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim email As String = e.Row.Cells(9).Text
            e.Row.Cells(9).Text = "<a href='mailto:" & email & "'>" & email & "</a>"
          
        End If
    End Sub
I hope this one helpful to you….




Wednesday, June 15, 2011

How to Upload Multiple Files at a time in ASP.Net?


Hi.
Here i am going to explain about to upload multiple files using asp.net.For this one they are following many methods.But this one would be very simple one to upload multiple files.

 You have to add 3 fileupload control from toolbox and add one button.Also create one saved path to save this file.This path you can create anywhere ,even if it inside project also your wish...
Add this code in Button Click Event..


Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim filepath As String = "C:\Uploads"
        Dim uploadedFiles As HttpFileCollection = Request.Files

        For i As Integer = 0 To uploadedFiles.Count - 1
            Dim userPostedFile As HttpPostedFile = uploadedFiles(i)
            Try
                If userPostedFile.ContentLength > 0 Then
                    Label1.Text += "<u>File #" & (i + 1) & "</u><br>"
                    Label1.Text += "File Content Type: " & userPostedFile.ContentType & "<br>"
                    Label1.Text += "File Size: " & userPostedFile.ContentLength & "kb<br>"
                    Label1.Text += "File Name: " & userPostedFile.FileName & "<br>"

                    userPostedFile.SaveAs(filepath & "\" & System.IO.Path.GetFileName(userPostedFile.FileName))

                    Label1.Text += "Location where saved: " & filepath & "\" & System.IO.Path.GetFileName(userPostedFile.FileName) & "<p>"
                End If
            Catch Ex As Exception
                Label1.Text += "Error: <br>" & Ex.Message
            End Try
        Next
    End Sub

i hope this one helpful to you....

Monday, June 13, 2011

How to Validate Data and time in Vb.net



Hi..
I need an requirement to validate Data and time in textbox, then i goggled but i didn’t get any easiest way to validate data and time. Lastly i found this method to validate
date and time in vb.net.i hope this type definitely helpful to you...Even if you know any easiest methods then this one. please post your comments and code. 


Time:
 
Dim Datechk,tich as Boolean
GetValiddate(textbox1.text)


                        If datechk = False Then
                            MsgBox("Enter correct Date Format", MsgBoxStyle.Information)
                           End If


GetValidtime(textbox1.text)


                        If tich = False Then
                            MsgBox("Enter correct Time Format", MsgBoxStyle.Information)
                           End If




  Sub GetValidTime(ByVal atimestring As String)


        Try
            Dim dt As DateTime = DateTime.ParseExact(atimestring, "HH:mm:ss", Nothing)
            tich = True
        Catch
            tich = False
        End Try
    End Sub


Date:


 Sub GetValiddate(ByVal datetring As String)


        Try
            Dim dt As DateTime = DateTime.ParseExact(datetring, "dd/MM/yyyy", Nothing)
            datechk = True
        Catch
            datechk = False
        End Try
    End Sub

Another Method for Checking Date :

                        datechk = IsDate(textbox1.text) 'It return Boolean Value.

Even if you know any easiest methods then this Code.please post your comments and code.

Wednesday, June 8, 2011

How To Store ImageURL in Database and View the image through gridview using ASP.Net


Hi..
In my previous atricle i explain about store a image in database without using Handler. By convert the image to bytes then we can store Bytes to database.By Following this methods ,It take more time to display a image in Grid,Below i mention url for your refrence...
http://vbdotnetaddict.blogspot.com/2011/06/how-to-retrieve-uploaded-images-from.html


Now in this article ,we are going to insert only image url to the database,we are storing the image in seperate folder.
By this method it take very less time to display an image.

Just Follow these Steps You have to do..

click Solutin Explorer add a new folder with name Image.

Create A DataBase should be like this.......


Design client side page like Below,Further follow the code for design

Client Side Coding:
<body>
    <form id="form1" runat="server">
    <div>
    <table cellpadding ="0" cellspacing ="0" width="500" align="center" >
    <tr>
    <td height="100"></td>
    
    </tr>
    <tr>
    <td>
    Name:
    </td>
    <td>
        <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
    </td>
    
    </tr>
    <tr>
    <td>
    Image:
    </td>
    <td>
    <asp:FileUpload ID="FileUpload1" runat="server" />
    </td>
    
    
    </tr>
    <tr>
    <td height="30">
    
    </td>
    
    </tr>
    <tr>
    <td  align="justify"  >
    
        <asp:Button ID="Button1" runat="server" Text="ADD" />
    </td>
    <td>
        <asp:Label ID="Label1" runat="server"></asp:Label>
    </td>
    </tr>
    <tr>
    <td colspan ="2">
    <asp:Button ID="Button2" runat="server" Text="Show all" />
    </td>
        
    </tr>
    <tr>
    <td colspan ="2">
        <asp:GridView ID="imggrid" runat="server" AutoGenerateColumns ="false" Width="500px" DataKeyNames ="Sno" > 
        
        <Columns >
        <asp:TemplateField HeaderText ="SNO" >
        <ItemTemplate >
        <%#Eval("Sno")%>
        </ItemTemplate>
        </asp:TemplateField>
        <asp:TemplateField HeaderText ="Name" >
        <ItemTemplate>
        <%#Eval("Name")%>
        </ItemTemplate>
        
        </asp:TemplateField>
        <asp:TemplateField HeaderText="Image">
        <ItemTemplate >
            <asp:Image ID="Image1" runat="server" ImageUrl ='<%#eval("ImageURL") %>' height="100px" Width="100px" />
        </ItemTemplate>
        </asp:TemplateField>
        <asp:CommandField HeaderText ="Modify" ShowEditButton ="true" ShowDeleteButton ="false" EditText ="Modify" />
        <asp:TemplateField Headertext="Delete">
        <ItemTemplate >
                    <asp:LinkButton ID="lnkdelete" runat="server" CommandName ="Delete">Delete</asp:LinkButton>
        </ItemTemplate>
        
        </asp:TemplateField>
        </Columns>
        </asp:GridView>
    
    
    </td>
    
    </tr>
    </table>
    </div>
    </form>
</body>


Server Side Coding:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim imgext As String
        Dim imgpath As String
        Dim fname As String


        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString


        If FileUpload1.HasFile Then
            imgext = FileUpload1.FileName.Substring(FileUpload1.FileName.LastIndexOf(".") + 1).ToLower


            'Get the max Sno from the table
            maxid()
            fname = TextBox1.Text
            filename = id + (FileUpload1.FileName)
            If (imgext = "jpg" Or imgext = "gif" Or imgext = "bmp") Then
                imgpath = "~/image/" + filename
                FileUpload1.SaveAs(Server.MapPath("~/image/") + filename)
            Else
                Label1.Text = "update only jpg,gif and bmp file"
            End If
            'Insert image Path into Database
            fselect = "insert into imgurl values('" & id & "','" & fname & "','" & imgpath & "')"
            sqlcmd = New SqlCommand(fselect, con)
            con.Open()
            sqlcmd.ExecuteNonQuery()
            con.Close()
            Label1.Text = "image Upload Succesfully"
            loadgrid()
        End If
    End Sub
    Sub maxid()
        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString


        fselect = "select isnull(max(Sno)+1,1) as id from imgurl"
        sqlcmd = New SqlCommand(fselect, con)
        con.Open()
        sqladp = New SqlDataAdapter(sqlcmd)
        ds = New DataSet
        sqladp.Fill(ds)
        dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            id = dt.Rows(0).Item("id")


        End If
        con.Close()
    End Sub
    Sub loadgrid()
        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString
        fselect = "select * from imgurl"
        sqlcmd = New SqlCommand(fselect, con)
        con.Open()


        sqldr = sqlcmd.ExecuteReader()
        If sqldr.HasRows Then
            imggrid.DataSource = sqldr
            imggrid.DataBind()
            imggrid.Columns(0).Visible = False
        Else
            imggrid.DataSource = sqldr
            imggrid.DataBind()
            imggrid.Columns(0).Visible = False
        End If
        con.Close()
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        loadgrid()
    End Sub
    Protected Sub imggrid_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles imggrid.RowDeleting
        Dim sno As Integer
        Dim url As String
        Dim fpath As String
        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString
        sno = imggrid.DataKeys(e.RowIndex).Value.ToString
        fselect = "select imageURL from imgurl where sno='" & sno & "'"
        sqlcmd = New SqlCommand(fselect, con)
        con.Open()
        sqladp = New SqlDataAdapter(sqlcmd)
        con.Close()
        ds = New DataSet
        sqladp.Fill(ds)
        dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then
            url = dt.Rows(0).Item("imageURL")


        End If


        fselect = "delete from imgurl where sno='" & sno & "'"
        sqlcmd = New SqlCommand(fselect, con)
        con.Open()
        sqlcmd.ExecuteNonQuery()
        con.Close()
        'Delete the imgae File from that folder
        fpath = Server.MapPath(url)
        System.IO.File.Delete(fpath)
        loadgrid()
    End Sub

i hope this one helpful to u...
plz post you comments

Tuesday, June 7, 2011

How to send mail with attachment in asp.net


Hi..

In this article i am going to explain to send mail by using multiple attachment in ASP.NET.

Now In this article you can send a mail with attachment.Its very easy process, add fileupload control from the toolbox
and design a page like below ,then add the following code..
First you have to import the namespace....

system.net.mail

Then write the below code in Send Button Click Event.......


 Dim mail As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
        Dim attach1 As String
        mail.To.Add(TextBox2.Text)
'checking CC and BCC textbox empty or Not
        If Not TextBox3.Text = "" Then
            mail.CC.Add(TextBox3.Text)
        End If
        If Not TextBox4.Text = "" Then
            mail.Bcc.Add(TextBox4.Text)
        End If
 mail.Subject = TextBox5.Text
        mail.From = New MailAddress(TextBox1.Text)
        mail.Body = TextBox6.Text
If attachment.HasFile Then
            mail.Attachments.Add(New Attachment(attachment.PostedFile.InputStream, attachment.FileName))
        End If
        If attachment2.HasFile Then
            mail.Attachments.Add(New Attachment(attachment2.PostedFile.InputStream, attachment2.FileName))
        End If

        mail.IsBodyHtml = True
        Dim smtp As SmtpClient = New SmtpClient()
        smtp.Host = "smtp.gmail.com"
               smtp.Credentials = New System.Net.NetworkCredential("Gmailusername", "password")
        smtp.EnableSsl = True
        Label1.Text = "Your mail has sent"
        Try
            smtp.Send(mail)
        Catch ex As Exception
            Label1.Text = "The email cannot be sent" + ex.ToString()
        End Try


For Sending mail through yahoo you have to change following thing in the above code...

smtp.Host = "smtp.mail.yahoo.com"
smpt.port=25
smtp.EnableSsl = False
smtp.Credentials = New System.Net.NetworkCredential("Yahoousername", "password")


i hope this helpful to you..........
plz continue with comments...

Monday, June 6, 2011

How to retrieve uploaded images from the database using asp.net


Hi..

In Previous article i explained about How to upload image to database and How to validate that image,For your refernce i mention the article url below
http://vbdotnetaddict.blogspot.com/2011/02/upload-file-in-aspnet-using-vb-coding.html
http://vbdotnetaddict.blogspot.com/2011/06/how-to-validate-uploaded-images-in.html
Now i am going to explain about to retrieve the uploaded images from the database and View through Data Grid View..

Before in SQL you have to create a table like this..
GO
CREATE TABLE [dbo].[upload](
 [fileid] [int] IDENTITY(1,1) NOT NULL,
 [ImageName] [varchar](max) COLLATE SQL_Latin1_General_CP1_CS_AS NULL,
 [Image] [image] NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]



Coding:


 If FileUpload1.HasFile Then


                Dim intlength As Integer
                Dim bytes1() As Byte = pstFile(FileUpload1) 'Function Used to read bytes from the upload image
                ' Create SQL Connection 


                Dim con As New SqlConnection()
                con.ConnectionString = ConfigurationManager.ConnectionStrings("phone").ConnectionString




                intlength = Convert.ToInt32(FileUpload1.PostedFile.InputStream.Length)
                Dim cmd As New SqlCommand()
                cmd.CommandText = "INSERT INTO upload(ImageName,Image) VALUES (@ImageName,@Image)"
                cmd.CommandType = CommandType.Text
                cmd.Connection = con
                Dim ImageName As New SqlParameter("@ImageName", SqlDbType.VarChar, 50)
                ImageName.Value = TextBox1.Text.ToString
                cmd.Parameters.Add(ImageName)


                Dim imagelenth As New SqlParameter("@Image", SqlDbType.Image)
                imagelenth.Value = bytes1
                cmd.Parameters.Add(imagelenth)
         
                con.Open()
                Dim result As Integer = cmd.ExecuteNonQuery()
                con.Close()


                 loadgrid() 'Used To store image value in grid
            Else


                Label1.Text = "please select the file to uplaod"
            End If

 'Function Used to read bytes from the upload image

  Function pstFile(ByVal passfile As FileUpload) As Byte()
        Dim fs As Stream
        Dim bytes1 As Byte()
        Dim postfile As Byte()
        fs = passfile.PostedFile.InputStream
        Dim br1 As New BinaryReader(fs)
        bytes1 = br1.ReadBytes(passfile.FileContent.Length)
        postfile = bytes1
        Return postfile
    End Function





 'Function Used to store image value in gridview



  Sub loadgrid()
        Dim fselect As String
        Dim adp As New SqlDataAdapter
        Dim ds As New DataSet
        fselect = "select fileid,ImageName from upload"
        Dim con As New SqlConnection()


        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString
        Dim cmd As New SqlCommand()
        cmd = New SqlCommand(fselect, con)
        con.Open()
        adp = New SqlDataAdapter(cmd)
        ds = New DataSet
        adp.Fill(ds)
        dt = ds.Tables(0)
        Session("dataimage") = dt
        imggrid.DataSource = dt
        imggrid.DataBind()
    End Sub



'client Side Coding for create grid view

<body>
    <form id="form1" runat="server">
    <div>
     <asp:FileUpload ID="FileUpload1" runat="server" />
    <br />
    <br />
      Enter the File name to Upload  <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
        <br />
       <br />
        click here to upload the file  <asp:Button ID="Button1" runat="server" 
            Text="submit" style="height: 26px" />
    <br />
        <asp:Label ID="Label1" runat="server"></asp:Label>
         <table cellpadding ="0" cellspacing ="0"  width: "100%"> 
        <tr>
        <td height="300">
        <asp:GridView ID="imggrid" runat="server" AutoGenerateColumns ="false" 
                Width="97%"  >
        <Columns >
        <asp:TemplateField HeaderText ="Name">
        <ItemTemplate >
        <%#Eval("imagename")%>
        </ItemTemplate>
        
        
        </asp:TemplateField>
        <asp:TemplateField HeaderText ="Image">
        <ItemTemplate >
               
        <asp:Image ID="Image1" runat="server" ImageUrl ="Image.aspx?id=0" /> 'This image File is called form the page image.aspx
           
        </ItemTemplate>
                
        </asp:TemplateField>
         </Columns>
        
        </asp:GridView>
        </td>
        
        </tr>
       
        </table>
 </div>
    </form>
</body>


For view an image we have to create one another page like image.aspx, and write the following coding in the server side.....
image.aspx  page is called from the Grid View..
By the same way you can get the imagename from the query string ,By using image id get the image from the database and show in grid view.........



 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As New SqlConnection
        Dim i As Integer
        i = CInt(Request.QueryString("ID").ToString)


        con.ConnectionString = ConfigurationManager.ConnectionStrings("con").ConnectionString
        Dim sqlcmd As New SqlCommand
        Dim sqldr As SqlDataReader


        sqlcmd = New SqlCommand("select image from upload where ='" & i & "'", con)
        con.Open()
        sqldr = sqlcmd.ExecuteReader()
        con.Close()


        If sqldr.HasRows Then
            Response.BinaryWrite(sqldr("image"))
        End If


    End Sub


    End Sub
I hope this one really helpful to you........