頁面內容導入Excel

 

Response.Clear() Response.buffer = true
Response.ContentType = "application/vnd.ms-excel;utf-8"
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
'Response.Charset = "utf-8"

 If Instr(1, Request.ServerVariables("HTTP_USER_AGENT"), "MSIE 4.01") > 0 then
 Response.AddHeader("Content-Disposition","inline;filename="+DateTime.Now.Tostring("yyyy-MM-dd")+".xls")
Else
 Response.AddHeader("Content-Disposition","attachment;filename="+DateTime.Now.Tostring("yyyy-MM-dd")+".xls") 

End If 

再代碼前加上這句就可以了，其實現在用<%%>這種格式來做頁面是越做越順手了，以前總以爲這樣很難維護，現在回頭看看，也不然...整個ERP還是這樣弄過來的.而且維護我感覺比以前用後臺.cs文件的形式來得更直觀!