Pages

Sunday, 26 August 2012

Download Template Blog Gratis Disini


Berikut merupakan Daftar situs Template Blog yang saya dapatkan dan Kumpulkan dari Hasil Pencarian di Google.Jika anda berminat Untuk Mendownload Template Gratis Silahkan Kunjungi Langsung Situs Resminya dan Pilih mana Template Yang Anda Sukai.

Free Blogger Templates (Blogspot)
1.www.btemplates.com
2.www.bloggerbuster.com
3.http://blogtemplate4u.com/
4.www.freeblogger-templates.blogspot.com
5.www.blogger-templates.blogspot.com
6.www.finalsense.com
7.www.ourblogtemplates.com
8.www.bloggerstyles.com
9.www.eblogtemplates.com
10.www.blogspottemplate.com

Free WordPress Templates
1. www.prowordpressthemes.com
2. www.wordpresstemplates.com
3. wordpresstemplates.name
4. www.skinpress.com
5. www.wordpress.org
6. www.topwpthemes.com
7. www.blogohblog.com
8. www.templatesbrowser.com
9. www.wpskins.org
10. www.freewordpresstheme.info

Premium WordPress Templates
1. www.wordpressthemesmarket.com
2. www.wpcandy.com
3. www.web20-templates.com
5. www.wpremix.com
6. www.ithemes.com
7. www.wp-magazine.com
8. www.studiopress.com
9. www.wp-vybe.com
10. www.premiumwp.com

Bonus Daftar Template Blog..^_^
1. http://www.eblogtemplates.com/
2. http://www.jackbook.com/
3. http://www.indosmart.blogspot.com/search/label/template
4. http://www.magznetwork.com/
5. http://www.freetemplate.widarto.net
6. www.simplebits.com

Semoga Bermanfaat Buat Semuanya..^_^.Mungkin Jika Sobat Memiliki Sumber Link Download Template Gratis Bisa di Share di Sini.

Thursday, 9 August 2012

Simpan Image mySql With File Upload


 Dim img As FileUpload = CType(FileUpload1, FileUpload)
                Dim imgByte As Byte() = Nothing
                If img.HasFile AndAlso Not img.PostedFile Is Nothing Then
                    'To create a PostedFile
                    Dim File As HttpPostedFile = FileUpload1.PostedFile
                    'Create byte Array with file len
                    imgByte = New Byte(File.ContentLength - 1) {}
                    'force the control to load data in array
                    File.InputStream.Read(imgByte, 0, File.ContentLength)
                    cmd.CommandText = "update daftar_siswa  set fotosiswa=@img where id_pendaftaran='" & ASPxTextBox1.Text & "'"
                    cmd.Parameters.AddWithValue("@img", imgByte) : cmd.Connection = con
                    cmd.ExecuteNonQuery()
                End If

Ayo DI coba Brow !00% Berhasil...