Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ASPͨ¹ýVBA·½Ê½µ÷ÓÃEXCELÄ£°æÉú³ÉеÄEXCEL £¨×ª£©

<%
 '1¡¢´´½¨EXCEL¶ÔÏñ
  set objExcelApp = CreateObject("Excel.Application")
  objExcelApp.DisplayAlerts = false '²»ÏÔʾ¾¯¸æ
  objExcelApp.Application.Visible = false '²»ÏÔʾ½çÃæ
  '2¡¢ н¨ExcelÎļþ
  objExcelApp.WorkBooks.add
  set objExcelBook = objExcelApp.ActiveWorkBook
  set objExcelSheets = objExcelBook.Worksheets
  set objExcelSheet = objExcelBook.Sheets(1)
  '3¡¢ ¶ÁÈ¡ÒÑÓÐExcelÎļþ
  strAddr = Server.MapPath(".")
  objExcelApp.WorkBooks.Open(strAddr & "\excel\Report.xls")
  set objExcelBook = objExcelApp.ActiveWorkBook
  set objExcelSheets = objExcelBook.Worksheets
  set objExcelSheet = objExcelBook.Sheets(1)
  '4¡¢ Áí´æExcelÎļþ
  SaveName = "½»»»»ú_"&year(now())&month(now())&day(now())&hour(now())&minute(now())&second(now())
  objExcelBook.SaveAs strAddr & "\excel\"&SaveName&".xls"
 ' 5¡¢ ±£´æExcelÎļþ
  objExcelBook.Save '£¨²âÊÔʱ±£´æ³É¹¦£©
  '6¡¢ Í˳öExcel²Ù×÷
  objExcelApp.Quit 'Ò»¶¨ÒªÍ˳ö
  set objExcelApp = Nothing
  Response.Write "<html><body bgcolor='gainsboro' text='#000000'>Òѳɹ¦µ¼³öΪExcelÎļþ<a href=/excel/" & SaveName & ".xls>ÏÂÔØ</a>"
  %>


Ïà¹ØÎĵµ£º

ASP.NETÖ®Èý ASP.NETÊý¾Ý¼°¿Ø¼þ

ASP¡£NETÖй²Óм¸ÖÖÀàÐ͵Ŀؼþ
========================================
Á½ÖÖ£º
1. ¿Í»§¶Ë¿Ø¼þ£¬Ò²¾ÍÊÇÎÒÃÇÔÚHTMLÖо­³£Óõ½µÄ
2. ·þÎñ¶Ë¿Ø¼þ£¬ÀýÈç: <asp:TextBox ID="txt" runat="server" />
¿Í»§¶Ë¿Ø¼þÒ²¿ÉÒÔת³É·þÎñ¶Ë¿Ø¼þ
<input type="text" id="txt" runat="server" />
HTML ºÍ WEB
ASP¡£NET ......

TopForAspʵÀý(ÌÔ±¦¿ª·Åƽ̨ASP°æµÄÓ¦ÓÃʵÀý)

ÌÔ±¦¿ª·Åƽ̨£¬ÕâÀï²»ÔÙ·Ñ»°ÁË£¬Ö±½Ó¿´ÍøÖ·£ºhttp://open.taobao.com/
ÕâÀïÓкܶàµÄʵÀý£¬±¾ÈË×î½üÒ²Ò»Ö±ÔÚѧϰ¡£
ǰ¼¸Ìì¿´µ½ÀË×ÓµÄȺÀïÓÐһλÅóÓÑ˵ÏëÒªASPµÄʵÀý£¬×Ô¼º¾ÍÕÒÁ˸öʱ¼ä¼òµ¥Ð´Ò»Ï¡£
µ±È»Ð´µÄ²»ºÃ£¬ÒòΪ±¾È˹¤×÷Ò²±È½Ïæ¡£Ö»ÊǼòµ¥ÄÜÓÃÒ»¸öʵÀýÈ¡µÃXML×Ö·û´®µÄÊý¾Ý¡£ÔÚÕâÀïÒ²ÊÇÅ×שÒýÓñ£¬Ï£Íû´ó¼Ò²»ÒªÅÄש¡ ......

AspÖÐÒþ²ØÏÂÔØµØÖ·

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '´«²Î
strFileName="/files/"&strFileName    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

ASPÌõ¼þÓï¾äÖ®select caseÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case  Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
      2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
      3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪ ......

ASPÑ­»·Óï¾äÖ®do...loopÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/830.html
do ... loop Óï¾äÁ½ÖÖ¸ñʽµÄʾÀý
do whil ... loop £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ