Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄÓ¦ÓóÌÐòÓò£¨The Application Domain£©

 Ó¦ÓóÌÐòÓòÊÇͨ¹ýCLRÇ¿ÖÆ½ç¶¨µÄÈ·±£Ó¦ÓóÌÐò¼ä²»Ï໥ӰÏìµÄµØÖ·¿Õ¼ä£¬Ëü¾ßÓÐÒÔÏÂÌØÕ÷
 1£®Ò»¸ö¶ÀÁ¢µÄWebÓ¦ÓóÌÐòµÄËùÓÐWebÒ³¹²ÏíÏàͬµÄÄÚ´æ×ÊÔ´£¬ÀýÈçÈ«¾ÖµÄÓ¦ÓóÌÐòÊý¾Ý£¬Ã¿¸öÓû§µÄSessionÊý¾ÝÒÔ¼°»º´æÊý¾Ý¡£ÕâЩÐÅÏ¢²»Äܱ»ÆäËûµÄASP.Net»òASPÓ¦ÓóÌÐòÖ±½Ó·ÃÎÊ¡£
 2£®Ò»¸ö¶ÀÁ¢µÄWebÓ¦ÓóÌÐòËùÓÐWebÒ³¹² ......

asp½ûÖ¹Íⲿ·þÎñÆ÷Ìá½»±íµ¥µ½·þÎñÆ÷

½ûÖ¹Õ¾ÍâÌá½»±íµ¥µÄasp´úÂëÈçÏ£º
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......

aspÏÂÔØÆäËüÍøÕ¾µÄͼƬÀ´¸øhtmlÏÔʾ

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æÍ¼Æ¬
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔØ¶ÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......

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 С͵ ²É¼¯ Àà º¯Êý ³£Óà ±ØÐë ½ØÈ¡ ±àÂëת»»

<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ