Direkomendasikan: Kiat untuk menggunakan ASP untuk mentransfer data format HTML ke Excel Pelajari cara membangun halaman ASP untuk melakukan streaming data HTML ke spreadsheet execl dan menampilkan spreadsheet execl di IE. Sejauh ini, ada beberapa cara untuk membuat tabel data Excel menggunakan teknologi ASP, dan Anda juga dapat menggunakan grup Excel 8.0 VBA sisi server
Dalam pekerjaan kami, kami sering perlu mengonversi data menjadi bagan batang, diagram lingkaran, dll. Untuk memfasilitasi dan analisis data intuitif. Di sini saya akan memperkenalkan kepada Anda komponen yang membuat diagram lingkaran dan diagram batang di ASP: CSDrawGraph, csdgt.zip. Karena ini adalah komponen, kita perlu mendaftar dengan regsvr32.exe sebelum menggunakannya. csdrawgraph, yang dapat membuat diagram lingkaran, bagan batang, dan bagan garis di ASP. Format yang didukung termasuk GIF, PNG, JPG dan BMP.
ChartDemo.asp
| Berikut ini adalah konten yang dikutip: < %@ bahasa = VBScript %> <Html> <head> <title> Demonstrasi Csdrawgraph </iteme> </head> <body bgcolor =#ffffff> <p> Demonstrasi sederhana ini menunjukkan dua grafik menggunakan data yang sama. Yang pertama adalah Bagan batang: </p> <P align = center> <img src = chartImages.asp? Type = lebar batang = 400 tinggi = 300> </p> <P align = kiri> yang kedua adalah diagram lingkaran. Warna latar belakang diatur ke cahaya abu -abu untuk menunjukkan ukuran keseluruhan gambar. </p> <P align = center> <img src = chartImages.asp? Type = lebar pie = 400 tinggi = 300> </p> </body> </html> |
ChartImages.asp
| Berikut ini adalah konten yang dikutip: < %@ bahasa = VBScript %> <% Response.expires = 0 Response.buffer = true Respons.clear Response.contentType = gambar/gif Setel bagan = server.CreateObject (csdrawgraphtrial.draw) Chart.adddata no> 1, 17, ff0000 Chart.adddata no> 2, 28, 00ff00 Chart.adddata no> 3, 5, 0000ff Jika request.QueryString (type) = Pie lalu Chart.title = sampel diagram lingkaran Chart.bgcolor = eeeeeee Chart.labelbgcolor = eeeeeee Chart.titlebgcolor = eeeeeee Response.binarywrite chart.gifpie Kalau tidak Bagan.Title = Bagan Bar Sampel Response.binarywrite chart.gifbar Akhiri jika Respons.end %> |
Program ini sangat sederhana, dan saya tidak akan menjelaskannya secara detail. Mari kita lihat contoh mengonversi data dari database ke grafik:
line.asp:
| Berikut ini adalah konten yang dikutip: <Html> <head> <Title> grafik baris yang menunjukkan semua hasil </iteme> </head> <body> <tabel align = lebar tengah = 400> <tr> <td colspan = 4> <img src = gif_lines.asp width = 400 tinggi = 300> </td> </tr> </boable> <p> Tautan ke halaman hasil lainnya: </p> <p> <a href = Barsbyday.asp> Bar Bagan menunjukkan semua hasil untuk setiap hari </a>. </p> <p> <a href = barsbycolour.asp> bagan batang yang menunjukkan hasil untuk setiap warna secara terpisah </a>. </p> </body> </html> |
gif_lines.asp:
| Berikut ini adalah konten yang dikutip: < %@ bahasa = VBScript %> <% 'Gunakan data dalam database untuk menghasilkan grafik garis. 'Buat 4 baris menurut 4 nilai yang berbeda. 'Tunjukkan nama minggu ini di sumbu x. Response.expires = 0 Response.buffer = true Respons.clear 'Gunakan pernyataan berikut untuk membuat objek bagan, dan versinya akan berbeda. 'Setel bagan = server.CreateObject (csdrawgraph.draw) Setel bagan = server.CreateObject (csdrawgraphtrial.draw) ConnectionString = penyedia = microsoft.jet.oledb.4.0; Sumber data = & _ Server.mappath (data.mdb) Setel dbconn = server.CreateObject (adodb.connection) Dbconn.open Connectionstring Set RS = Server.CreateObject (ADODB.Recordset) SQL = SELECT * dari Table1 Order By Day Rs.open SQL, dbconn Sementara tidak rs.eof Chart.addpoint cint (rs (hari)), cint (rs (merah)), ff0000, merah Chart.addpoint cint (rs (hari)), cint (rs (biru)), 0000ff, biru Chart.addpoint cint (rs (hari)), cint (rs (hijau)), 00ff00, hijau Chart.addpoint cint (rs (hari)), cint (rs (kuning)), ffff00, kuning Chart.AddxValue Cint (RS (Day)), RS (DayName) Rs.movenext Pergi ke 'Tutup koneksi database Rs.close Dbconn.close 'Berikut ini menetapkan properti komponen 'Koordinat sumbu x mulai dari 1 bukan 0. (xoffset = 1) Chart.title = semua hasil gabungan Chart.titlex = 100 Chart.yaxistext = total untuk setiap hari Chart.originy = 220 Chart.xoffset = 1 Chart.xtop = 7 Chart.xgrad = 1 Chart.usexaxislabels = true Chart.linewidth = 2 Chart.PointSize = 3 Chart.pointstyle = 1 'Gambar terakhir dikirim ke browser dalam format gif Response.contentType = gambar/gif Response.binarywrite chart.gifline Respons.end %> |
Bagikan: Operasi Data Metode Pengembangan Cepat ASP Ini adalah pengalaman saya sendiri, untuk Anda rujuk. Tujuan saya adalah membuat pengembangan menjadi sederhana, pertimbangkan pernyataan implementasi sesedikit mungkin, dan mencurahkan lebih banyak energi untuk memikirkan logika bisnis. Saya berharap artikel saya akan menginspirasi dan membantu Anda. Oke, mari kita ikuti intinya: