EXCEL

Response.Clear()
        Dim DosyaAdi As String = "Blog"
        Response.AddHeader("content-disposition", "attachment;filename=" & DosyaAdi & ".xls")
        Response.ContentType = "application/vnd.xls"
        Response.Charset = "1254"
        Dim stringWrite As New System.IO.StringWriter()
        Dim htmlWrite As New HtmlTextWriter(stringWrite)
        DWGunlukAyrinti.RenderControl(htmlWrite)
        Response.Write(stringWrite.ToString())
        Response.End()

WORD

Response.Clear()
        Dim DosyaAdi As String = "Blog"
        Response.AddHeader("content-disposition", "attachment;filename=" & DosyaAdi & ".doc")
        Response.ContentType = "application/vnd.doc"
        Response.Charset = "1254"
        Dim stringWrite As New System.IO.StringWriter()
        Dim htmlWrite As New HtmlTextWriter(stringWrite)
        DWGunlukAyrinti.RenderControl(htmlWrite)
        Response.Write(stringWrite.ToString())
        Response.End()

Buarada asagidaki olayida eklememiz gerekiyor

  Public Overrides Sub VerifyRenderingInServerForm(ByVal control As System.Web.UI.Control)
    End Sub

Global.asax dosyasina Application_BeginRequest 'i ekleyip içerisinde ufak degisikliklerle mükemmel url ler çikarilabilmekte.

 void Application_BeginRequest(object sender, EventArgs e)
    {
        string path = Context.Request.Path;
        path = path.Replace(".html",".aspx");
        Context.RewritePath(path);
    }

Context.Request.Path komutu istek yapan adresi getiriyor.Daha sonra gelen string içersindeki .html degerlerini .aspx ile degistiryor ve adres çubugundaki degeri degistirmeden .aspx sayfaya yönlendiriyor. Yalniz söyle birsey var bu örnegi kullanmak için 404 ile ugrasmaniz ve haliyle IIS yetkiniz olmasi lazim, onun yerine linkleri bir aspx sayfasina gönderirseniz hiç IIS ile ugrasmadan BeginRequest kisminda yaraticiliginizi kullanabilirsiniz.

Asagida web sayfasinda bir mesajbox çikarma kodunu veriyorum.

 Private Sub alertver(ByVal mesaj As String) 
        Page.ClientScript.RegisterStartupScript(Me.GetType(), "MyScript", "alert('" & mesaj & "');", True)
  End Sub

Burdada basit bir yönlendirme kodu..

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Yonlen", "parent.window.location.href='default.aspx';", True)

Bu sekilde sayfamiza istedigimiz gibi bir javascript entegre edebiliriz,Gerisi sizin kabiliyetinize kalmis..

Sayfaya ekleyecegimiz javascript kodu

 <script>

function getKeyCode(e)
{
 if (window.event)
    return window.event.keyCode;
 else if (e)
    return e.which;
 else
    return null;
}

 function keyRestrict(e, validchars) {
 var key='', keychar='';
 key = getKeyCode(e);
 if (key == null) return true;
 keychar = String.fromCharCode(key);
 keychar = keychar.toLowerCase();
 validchars = validchars.toLowerCase();
 if (validchars.indexOf(keychar) != -1)
  return true;
 if ( key==null || key==0 || key==8 || key==9 || key==13 || key==27 )
  return true;
 return false;
}
            </script>

Kisitlama yapmak istedigimiz kontrole ekleyecegimiz attribute

TxtUsername.Attributes.Add("onKeyPress", "return keyRestrict(event,'0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_-.')")

Not: Burada girilmesini istedigimiz karakterleri belirtiyoruz...

Genellikle üyekayit sayfalarinda kullanilan güvenlik kodu uygulamasini verecegim kod ile kolayca kullanabilirsiniz.

Bunun için resimuretici.aspx adinda bir sayfa açin, html kismina hiçbirsey yazmaya gerek yok, codebehind kismina asagidaki kodlari yapistirin..

Imports System.Drawing.Imaging
Imports System.Drawing
Partial Class Resimuretici
    Inherits System.Web.UI.Page
    Private Function SifreUret() As String
        Dim karakterler As Char() = {"A"c, "B"c, "C"c, "D"c, "F"c, "G"c, "H"c, "M"c, "R"c, "T"c, "V"c, "X"c, "Y"c, "Z"c, "R"c, "W"c, "S"c, "1"c, "2"c, "0"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c}
        Dim sifre As String = ""
        Dim rnd As Random = New Random
        Dim i As Integer = 0
        While i < 6
            Dim randomindex As Integer = rnd.Next(0, karakterler.Length - 1)
            Dim secilenchar As Char = karakterler(randomindex)
            sifre += secilenchar.ToString
            System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
        End While
        Return sifre
    End Function

    Private Function ArkaPlanRengi() As Color
        Dim renkler As Color() = {Color.Red, Color.Pink, Color.Yellow, Color.Green, Color.Blue, Color.BlanchedAlmond}
        Dim rnd As Random = New Random
        Return renkler(rnd.Next(0, renkler.Length - 1))
    End Function

    Private Sub ResimUret()
        Dim password As String = SifreUret
        Dim bmp As Bitmap = New Bitmap(110, 35)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim mybrush As SolidBrush = New SolidBrush(ArkaPlanRengi)
        g.FillRectangle(mybrush, 0, 0, bmp.Width, bmp.Height)
        Dim rnd As Random = New Random
        Dim karakterdizisi As Char() = password.ToCharArray
        Dim sayac As Integer = 0
        For Each ch As Char In karakterdizisi
            Dim f As Font = New Font("verdana", 16, GraphicsUnit.Pixel)
            Dim myfontbrush As SolidBrush = New SolidBrush(Color.Black)
            Dim x As Integer = 5
            Dim newX As Single = sayac * f.Size + x
            Dim offset As Integer = rnd.Next(0, 14)
            Dim p As PointF = New PointF(newX, offset)
            g.DrawString(ch.ToString, f, myfontbrush, p)
            System.Math.Min(System.Threading.Interlocked.Increment(sayac), sayac - 1)
        Next
        Session("password") = password
        bmp.Save(Response.OutputStream, ImageFormat.Gif)
    End Sub

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

Daha sonra üyekayit sayfamiza bir Image kontrolü ekleyip src kismina resimuretici.aspx sayfasini yazmamiz yeterli...

<asp:Image ID="Image1" runat="server" ImageUrl="ResimUretici.aspx" />