excelexport.aspx
  
  ＜%@ page language="vb" autoeventwireup="false" codebehind="excelexport.aspx.vb"
  inherits="aspxweb.mengxianhui.com.excelexport"%＞
  ＜!doctype html public "-//w3c//dtd html 4.0 transitional//en"＞
  ＜html＞
  　＜head＞
  　?。紅itle＞excelexport＜/title＞
  　?。糾eta name="generator" content="microsoft visual studio.net 7.0"＞
  　　＜meta name="code_language" content="visual basic 7.0"＞
  　?。糾eta name="vs_defaultclientscript" content="javascript"＞
  　?。糾eta name="vs_targetschema" content="http://schemas.microsoft.com/intellisense/ie5"＞
  ?。?head＞
  ＜body ms_positioning="gridlayout"＞
  　＜form id="form1" method="post" runat="server"＞
  　?。糰sp:datagrid id="datagrid1" runat="server" cellpadding="4" backcolor="white"
  bordercolor="#cc9966" borderwidth="1px" borderstyle="none" width="100%" height="100%"
  font-size="9pt" font-names="宋體"＞
  　?。約electeditemstyle font-bold="true" forecolor="#663399" backcolor="#ffcc66"＞＜/selecteditemstyle＞
  　?。糰lternatingitemstyle backcolor="#ffcc99"＞＜/alternatingitemstyle＞
  　?。糹temstyle borderwidth="2px" forecolor="#330099" borderstyle="solid"
  bordercolor="black" backcolor="white"＞＜/itemstyle＞
  　　＜headerstyle font-bold="true" horizontalalign="center" borderwidth="2px"
  forecolor="#ffffcc" borderstyle="solid" bordercolor="black" backcolor="#990000"＞＜/headerstyle＞
  　?。?asp:datagrid＞
  ?。?form＞
  ＜/body＞
  ＜/html＞
  
  
  　　excelexport.aspx.vb
  
  public class excelexport
  inherits system.web.ui.page
  protected withevents datagrid1 as system.web.ui.webcontrols.datagrid
  #region " web 窗體設計器生成的代碼 "
  '該調用是 web 窗體設計器所必需的。
  ＜system.diagnostics.debuggerstepthrough()＞ private sub initializecomponent()
  end sub
  
  private sub page_init(byval sender as system.object, byval e as system.eventargs) _
  handles mybase.init
  　'codegen: 此方法調用是 web 窗體設計器所必需的
  　'不要使用代碼編輯器修改它。
  　initializecomponent()
  end sub
  
  #end region
  private sub page_load(byval sender as system.object, byval e as system.eventargs) _
  handles mybase.load
  　'在此處放置初始化頁的用戶代碼
  　' 定義是否是 sql server 數據庫，這里為false
  　dim blnissqlserver as system.boolean = false
  　dim strsql as string
  　dim objdataset as new dataset()
  　dim objconn as object
  　dim strcnn as string
  　if blnissqlserver then
  　　strcnn = "user id=sa;initial catalog=northwind;data source=./netsdk;"
  　　objconn = new system.data.sqlclient.sqlconnection(strcnn)
  　　objconn.open()
  　　dim objadapter as new system.data.sqlclient.sqldataadapter()
  　　strsql = "select * from customers where country='usa'"
  　　objadapter.selectcommand = new system.data.sqlclient.sqlcommand(strsql, objconn)
  　　objadapter.fill(objdataset)
  　else
  　　strcnn = "provider=microsoft.jet.oledb.4.0;data source=" + server.mappath("test.mdb")
  　　objconn = new system.data.oledb.oledbconnection(strcnn)
  　　objconn.open()
  　　dim objadapter as new system.data.oledb.oledbdataadapter()
  　　strsql = "select top 10 title from document"
  　　objadapter.selectcommand = new system.data.oledb.oledbcommand(strsql, objconn)
  　　objadapter.fill(objdataset)
  　end if
  　dim oview as new dataview(objdataset.tables(0))
  　datagrid1.datasource = oview
  　datagrid1.databind()
  　objconn.close()
  　objconn.dispose()
  　objconn = nothing
  　if request.querystring("bexcel") = "1" then
  　　response.contenttype = "application/vnd.ms-excel"
  　　' 從content-type header中去除charset設置
  　　response.charset = ""
  　　' 關閉 viewstate
  　　me.enableviewstate = false
  　　dim tw as new system.io.stringwriter()
  　　dim hw as new system.web.ui.htmltextwriter(tw)
  　　' 獲取control的html
  　　datagrid1.rendercontrol(hw)
  　　' 把html寫回瀏覽器
  　　response.write(tw.tostring())
  　　response.end()
  　end if
  end sub
  end class