Wednesday, February 25, 2009

Creating a XML document in .Net

Creating a XML document with C#
using System;
using System.Xml;

namespace AlokKumarSinha
{
class MainClass
{
XmlDocument xmldoc;
XmlNode xmlnode;
XmlElement xmlelem;
XmlElement xmlelem2;
XmlText xmltext;
static void Main(string[] args)
{
MainClass app=new MainClass();
}
public MainClass() //constructor
{
xmldoc=new XmlDocument();
//let's add the XML declaration section
xmlnode=xmldoc.CreateNode(XmlNodeType.XmlDeclaration,"","");
xmldoc.AppendChild(xmlnode);
//let's add the root element
xmlelem=xmldoc.CreateElement("","root","");
xmltext=xmldoc.CreateTextNode("root text");
xmlelem.AppendChild(xmltext);
xmldoc.AppendChild(xmlelem);
//let's add another element (child of the root)
xmlelem2=xmldoc.CreateElement("","child1","");
xmltext=xmldoc.CreateTextNode("The text of the child1 element");
xmlelem2.AppendChild(xmltext);
xmldoc.ChildNodes.Item(1).AppendChild(xmlelem2);
//let's try to save the XML document in a file: C:\alok.xml
try
{
xmldoc.Save("c:\alok.xml"); //I've chosen the c:\ for the resulting file alok.xml
}
catch (Exception e)
{
Console.WriteLine(e.Message);
}
Console.ReadLine();
}
}
}

Creating a XML document with VB.Net

Class MainClass
Private xmldoc As XmlDocument
Private xmlnode As XmlNode
Private xmlelem As XmlElement
Private xmlelem2 As XmlElement
Private xmltext As XmlText
Private Shared Sub Main(ByVal args As String())
Dim app As New MainClass()
End Sub
Public Sub New()
'constructor
xmldoc = New XmlDocument()
'let's add the XML declaration section
xmlnode = xmldoc.CreateNode(XmlNodeType.XmlDeclaration, "", "")
xmldoc.AppendChild(xmlnode)
'let's add the root element
xmlelem = xmldoc.CreateElement("", "root", "")
xmltext = xmldoc.CreateTextNode("root text")
xmlelem.AppendChild(xmltext)
xmldoc.AppendChild(xmlelem)
'let's add another element (child of the root)
xmlelem2 = xmldoc.CreateElement("", "Child1", "")
xmltext = xmldoc.CreateTextNode("The text of child1")
xmlelem2.AppendChild(xmltext)
xmldoc.ChildNodes.Item(1).AppendChild(xmlelem2)
'let's try to save the XML document in a file: C:\alok.xml
Try
xmldoc.Save("c:" & vbNullChar & "alok.xml")
'I've chosen the c:\ for the resulting file alok.xml
Catch e As Exception
Console.WriteLine(e.Message)
End Try
Console.ReadLine()
End Sub
End Class

Saturday, February 7, 2009

To add a search engine to web page

To add a search engine to my web page that my users be able to search content of my website(all the pages not only the first page) ::
Solution
1. Visit This link:: http://forums.asp.net/p/1217595/2163891.aspx.

2.To have internal ASP.NET Search engine for your pages, have a look here: Internal Site Search Engine
To have google search engine on your websitem, follow this link: http://www.google.com/coop/cse/

Monday, February 2, 2009

Code for Downloading and Uploading Files in Asp.net

Code for downloading files ::
Sub Page_Load(Sender As Object, E As EventArgs)
Dim strRequest As String = Request.QueryString("file") '-- if something was passed to the file querystring If strRequest <> "" Then 'get absolute path of the file Dim path As String = Server.MapPath(strRequest) 'get file object as FileInfo Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server If file.Exists Then 'set appropriate headers Response.Clear() Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name) Response.AddHeader("Content-Length", file.Length.ToString()) Response.ContentType = "application/octet-stream" Response.WriteFile(file.FullName) Response.End 'if file does not exist Else Response.Write("This file does not exist.") End If 'nothing in the URL as HTTP GET Else Response.Write("Please provide a file to download.")
End If
End Sub
---------
Code for uploading the Files::
in markup side::-
---
asp:FileUpLoad id="FileUpLoad1" AlternateText="You cannot upload files" runat="server"
asp:Button id="Button1" Text="Upload" OnClick="Button1_Click" runat="server"
asp:Label id="Label1" runat="server"
---------------------in CodeBehind::
Sub Button1_Click(sender As Object, e As EventArgs) if FileUpLoad1.HasFile 'Uncomment this line to Save the uploaded file 'FileUpLoad1.SaveAs("C:\SomePhysicalPath" & FileUpLoad1.Filename) Label1.Text = "Received " & FileUpLoad1.FileName & " Content Type " & FileUpLoad1.PostedFile.ContentType & " Length " & FileUpLoad1.PostedFile.ContentLength else Label1.Text = "No uploaded file" end if end sub