asp µ¼³öexcelÊý¾Ý fso µ¥Ôª¸ñ¸ñʽ
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--¼ÙÉèÄãÏëÈÃÉú³ÉµÄEXCELÎļþ×öÈçϵĴæ·Å
filename = Server.MapPath("users.xls")
'--Èç¹ûÔÀ´µÄEXCELÎļþ´æÔڵϰɾ³ýËü
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--´´½¨EXCELÎļþ
set myfile = fs.CreateTextFile(filename,true)
'Set rs = Server.CreateObject("ADODB.Recordset")
'--´ÓÊý¾Ý¿âÖаÑÄãÏë·Åµ½EXCELÖеÄÊý¾Ý²é³öÀ´
'sql = "select * from Tb_Execl order by id desc"
'rs.Open sql,conn
StartTime = Request("StartTime")
EndTime = Request("EndTime")
StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"
strSql = "select * from myeky_myusr "
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then
dim trLine,responsestr
strLine=""
For each x in rstData.fields
strLine = strLine & x.name & chr(9)
Next
'--½«±íµÄÁÐÃûÏÈдÈëEXCEL
myfile.writeline strLine
Do while Not rstData.EOF
strLine=""
for each x in rstData.Fields
strLine = strLine & x.value & chr(9)
next
myfile.writeline strLine
rstData.MoveNext
loop
end if
Response.Write "Éú³ÉEXCELÎļþ³É¹¦£¬µã»÷ <a href=""users.xls"" target=""_blank"">ÏÂÔØ </a>£¡"
rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>
ÎÊÌ⣺
Éú³ÉExcelÎļþÖеÄÊý¾ÝÈ磺ÈÕÆÚʱ¼äÐÍ Ä¬ÈÏÏÔʾÁË8¸ö# ; ֵȫÊÇÊý×Ö³¬³¤ºó20071022130515ÀíÓ¦Õý³£ÏÔʾ20071022130515£¬Ä¬ÈÏÏÔʾ£º2.0071e+13;
ÈçºÎµ¼³öExcelÎļþºó¡£ÈÕÆÚÐÍĬÈÏÏÔʾ2007-10-23¶ø·Ç8¸ö#£¬ÊýÖµ³¬³¤ÏÔʾÕý³£ÄØ¡£
1,µ¼³öµÄʱºòÈçºÎ ÉèÖõ¼³ö µ¥Ôª¸ñ¸ñʽ
2,ÈçºÎ¿ØÖÆÁпíÁиß;
3,ÈçºÎÔÚµ¼³öʱºÏ²¢µ¥Ôª¸ñ;
Õâ¸öÎÊÌâµÚ1¸ö»Ø´ð£º
Êý×Ö¼ÓÉÏ',¿ÉÒÔÕý³£ÏÔʾȫ²¿Êý×Ö
ÆäËûÔÚVBÀïд¹ý£º
Dim mExApp As Excel.Application 'Ó¦ÓÃ
Dim mExBook As Excel.Workbook '¹¤×÷±¡
Dim mExSheet As Excel.Worksheet '¹¤×÷±í
Õâ¸öÎÊÌâµÚ2¸ö»Ø´ð£º
Set mExApp = CreateObject("Excel.Application") '¶¨ÒåXls
Ïà¹ØÎĵµ£º
1. ÏÖÔÚµÄÈÕÆÚʱ¼äÃüÁîÊÇ <%=now%> ¼´¿É
2.ASPÈ¡µÃ±í¸ñ(from)Êý¾ÝÊäÈëµÄ·½·¨£¬ÊÇʹÓÃÒ»¸öÄÚÖõĶÔÏó(object)—Requect, ËüÒÔget,post¶øÒì¡£
3.ÈôÒª×Ô¼ºÓÃVB»òÆäËüÓïÑÔ±àд£¬.dllÎļþ¹©ASPʹÓÃÐ轫DLLÎļþ×¢²á·½¿É£ºDOSÏÂÊäÈë regsbr32 *.dll
4.ÏÔʾÎå¸öÖØ¸´µÄ¾ä×Ó£¬×ÖÌåÔ½À´Ô½´ó <% for i=1 to 5 %> &l ......
ΪÁËʹÓû§Äܹ»µÇ¼ʹÓà ASP.NET ³ÉÔ±×ʸñ£¨Forms Éí·ÝÑéÖ¤£©½øÐÐÓû§Éí·ÝÑéÖ¤µÄ ASP.NET Ó¦ÓóÌÐò£¬¿ÉÒÔʹÓà LoginStatus ¿Ø¼þ¡£LoginStatus ¿Ø¼þ¼ì²âÓû§µÄÉí·ÝÑé֤״̬¡£Èç¹ûÓû§Î´¾¹ýÉí·ÝÑéÖ¤£¬¸Ã¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Òýµ¼Óû§½øÈëÓ¦ÓóÌÐòµÄµÇ¼ҳ¡£Èç¹ûÓû§ÒѾ¹ýÉí·ÝÑéÖ¤£¬LoginStatus ¿Ø¼þ½«ÏÔʾһ¸ö°´Å¥£¬Óû§¿ ......
·½·¨Ò»£º
<%
' ============================================
' ¸ñʽ»¯Ê±¼ä(ÏÔʾ)
' ²ÎÊý£ºn_Flag
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyyÄêmmÔÂddÈÕ"
' 5:"yyyymmdd"
' &nb ......
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......