asp µ¼Èëµ¼³öEXCEL
Ò»¡¢asp.netÖе¼³öExeclµÄ·½·¨£º
ÔÚasp.netÖе¼³öExeclÓÐÁ½ÖÖ·½·¨£¬Ò»ÖÖÊǽ«µ¼³öµÄÎļþ´æ·ÅÔÚ·þÎñÆ÷ij¸öÎļþ¼ÐÏÂÃæ£¬È»ºó½«ÎļþµØÖ·Êä³öÔÚä¯ÀÀÆ÷ÉÏ£»Ò»ÖÖÊǽ«ÎļþÖ±½Ó½«ÎļþÊä³öÁ÷д¸øä¯ÀÀÆ÷¡£ÔÚResponseÊä³öʱ£¬t·Ö¸ôµÄÊý¾Ý£¬µ¼³öexeclʱ£¬µÈ¼ÛÓÚ·ÖÁУ¬nµÈ¼ÛÓÚ»»ÐС£
1¡¢½«Õû¸öhtmlÈ«²¿Êä³öexecl
´Ë·¨½«htmlÖÐËùÓеÄÄÚÈÝ£¬Èç°´Å¥£¬±í¸ñ£¬Í¼Æ¬µÈÈ«²¿Êä³öµ½ExeclÖС£
Response.Clear();
Response.Buffer= true;
Response.AppendHeader("Content-Disposition","attachment;filename="+DateTime.Now.ToString("yyyyMMdd")+".xls");
Response.ContentEncoding=System.Text.Encoding.UTF8;
Response.ContentType = "application/vnd.ms-excel";
this.EnableViewState = false;
ÕâÀïÎÒÃÇÀûÓÃÁËContentTypeÊôÐÔ£¬ËüĬÈϵÄÊôÐÔΪtext/html£¬Õâʱ½«Êä³öΪ³¬Îı¾£¬¼´ÎÒÃdz£¼ûµÄÍøÒ³¸ñʽµ½¿Í»§¶Ë£¬Èç¹û¸ÄΪms-excel½«½«Êä³öexcel¸ñʽ£¬Ò²¾ÍÊÇ˵ÒÔµç×Ó±í¸ñµÄ¸ñʽÊä³öµ½¿Í»§¶Ë£¬Õâʱä¯ÀÀÆ÷½«ÌáʾÄãÏÂÔØ±£´æ¡£ContentTypeµÄÊôÐÔ»¹°üÀ¨£ºimage/JPEG;text/HTML;image/GIF;vnd.ms-excel/msword ¡£Í¬Àí£¬ÎÒÃÇÒ²¿ÉÒÔÊä³ö(µ¼³ö)ͼƬ¡¢wordÎĵµµÈ¡£ÏÂÃæµÄ·½·¨£¬Ò²¾ùÓÃÁËÕâ¸öÊôÐÔ¡£
2¡¢½«DataGrid¿Ø¼þÖеÄÊý¾Ýµ¼³öExecl
ÉÏÊö·½·¨ËäȻʵÏÖÁ˵¼³öµÄ¹¦ÄÜ£¬µ«Í¬Ê±°Ñ°´Å¥¡¢·ÖÒ³¿òµÈhtmlÖеÄËùÓÐÊä³öÐÅÏ¢µ¼Á˽øÈ¥¡£¶øÎÒÃÇÒ»°ãÒªµ¼³öµÄÊÇÊý¾Ý£¬DataGrid¿Ø¼þÉϵÄÊý¾Ý¡£
System.Web.UI.Control ctl=this.DataGrid1;
//DataGrid1ÊÇÄãÔÚ´°ÌåÖÐÍϷŵĿؼþ
HttpContext.Current.Response.AppendHeader("Content-Disposition","attachment;filename=Excel.xls");
HttpContext.Current.Response.Charset ="UTF-8";
HttpContext.Current.Response.ContentEncoding =System.Text.Encoding.Default;
HttpContext.Current.Response.ContentType ="application/ms-excel";
ctl.Page.EnableViewState =false;
System.IO.StringWriter tw = new System.IO.StringWriter() ;
System.Web.UI.HtmlTextWriter h
Ïà¹ØÎĵµ£º
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
<!--ÕâÊÇÒ»¸öÖ÷Ò³Îļþ-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>»ÃµÆÆ¬ÐÂÎÅ</title>
</head>
<body>
<!--#Include file="diaoyong.asp"-->
</body>
</html>
& ......
ASP+AccessÊý¾Ý¿âµÄ18Ìõ°²È«·¨Ôò£º
1.Ê×ÏÈ£¬ÎÒÃÇÐèÒª¹ýÂËËùÓпͻ§¶ËÌá½»µÄÄÚÈÝ,ÆäÖаüÀ¨?id=NÒ»Àà,ÁíÍ⻹ÓÐÌá½»µÄhtml´úÂëÖеIJÙ×÷Êý¾Ý¿âµÄselect¼°aspÎļþ²Ù×÷Óï·¨,´ó¼Ò¿ÉÒÔ°ÑÌá½»µÄ×Ö·ûתÒå,È»ºóÔÙ´æÈëÊý¾Ý¿â¡£
2.È»ºóÐèÒª¶Ô·ÃÎÊAccessÊý¾Ý¿âµÄÒ³Ãæ½øÐÐÊÚȨ,Õë¶ÔÏÔʾÊý¾ÝÒ³ÃæÖ»ÄÜʹÓÃselectÓï¾ä,¹ýÂËÆäËûµÄupdate,asp ......
<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF" 'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa" 'Êý¾Ý¿âÓû§Ãû
strPwd = "123456" ......
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBi ......
3¡¢´¿ASP´úÂëÉú³Éͼ±íº¯Êý——ÕÛÏßͼ
<%dim total(7,3)
total(1,0)="Öйú¾Óª±¨"
total(2,0)="ÕÐÆ¸Íø"
total(3,0)="51Job"
total(4,0)="ÐÂÃñÍí±¨"
total(5,0)="ÐÂÎÅÍí±¨"
total(6,0)="ÄÏ·½ÖÜÄ©"
total(7,0)="Ñò³ÇÍí±¨"
total(0,1)="#FF0000,1.5,1,2,¹«Ë¾1"'²ÎÊý1ÏßÌõµÄÑÕÉ«£¬²ÎÊý2ÏßÌõµÄ¿í¶È£¬²ÎÊý3Ï ......