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

asp¶ÁÈ¡Îı¾ÄÚÈÝ

'**************************************************    
'º¯ÊýÃû£ºFSOFileRead    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþÄÚÈݵĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
'·µ»ØÖµ£ºÎļþÄÚÈÝ    
'**************************************************    
function FSOFileRead(filename)    
Dim objFSO,objCountFile,FiletempData    
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")    
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)    
FSOFileRead = objCountFile.ReadAll    
objCountFile.Close    
Set objCountFile=Nothing    
Set objFSO = Nothing    
End Function    
  
'**************************************************    
'º¯ÊýÃû£ºFSOlinedit    
'×÷ ÓãºÊ¹ÓÃFSO¶ÁÈ¡ÎļþijһÐеĺ¯Êý    
'²Î Êý£ºfilename ----ÎļþÃû³Æ    
' lineNum ----ÐÐÊý    
'·µ»ØÖµ£ºÎļþ¸ÃÐÐÄÚÈÝ    
'**************************************************    
function FSOlinedit(filename,lineNum)    
if linenum < 1 then exit function    
dim fso,f,temparray,tempcnt    
set fso = server.CreateObject("scripting.filesystemobject")    
if not fso.fileExists(server.mappath(filename)) then exit function    
set f = fso.opentextfile(server.mappath(filename),1)    
if not f.AtEndofStream then    
tempcnt = f.readall    
f.close    
set f = nothing    
temparray = split(tempcnt,chr(13)&chr(10


Ïà¹ØÎĵµ£º

aspµ¼³öEXCELÊý×Ö¸ñʽ¼°×Ô¶¯ÊÊÓ¦¿í¶ÈµÄÎÊÌâ


aspµ¼³öEXCELÊý×Ö¸ñʽ¼°×Ô¶¯ÊÊÓ¦¿í¶ÈµÄÎÊÌâ
ÏÂÃæÖ±½Ó½øÐдúÂëÑÝʾ£º
<%
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
Set xlApplication = Server.CreateObject("Excel.Application")
xlApplication.Visible = False
xlApplication.Workbooks.Add
Set xlWorksheet = xl ......

asp»º´æÇåÀíÓï¾ä˵Ã÷£º

<%
Response.Buffer = True
'Ò»°ãÇé¿öÏ£¬µ±Óû§ÇëÇóWEB·þÎñÆ÷ʱ£¬·þÎñÆ÷°ÑÇëÇ󻨏´¸ø¿Í»§¶Ë¡£ÔÚ¿Í»§¶Ë£¬ä¯ÀÀÆ÷°Ñ»º´æ×÷ΪһÖÖ¼Ó¿ìËٶȵIJßÂÔ£¬¾ÍÊǵ±ÇëÇóʱÏȼì²é»º´æµÄÇé¿ö£¬Èç¹ûÓоÍÖ±½Óµ÷»º´æÁË£¬¶ø²»ÇëÇó·þÎñÆ÷ÁË¡£
'ÔÚWEB³ÌÐòÉè¼ÆÖУ¬ÓÐʱΪÁË·ÀÖ¹ÖØ¸´µÄÌá½»»òÕßÑϸñµÄ´ÎÐòµÈ£¬±ØÐëÈÃÓû§µÄÊý¾ÝÁ¢¼´ÔÚʹÓúó¾Í ......

ASPÓëJSP ¹ØÓÚÒ³ÃæµÄÊäÈëºÍÊä³öµÄÎÊÌâ

Ò³ÃæµÄÊäÈëºÍÊä³öÉæ¼°µ½ÁËRequestºÍResponse,ÓÉÓÚËûÃǺÍJspÖеÄÏàËÆ,
ÏÂÃæÎÒÃǽøÐÐÏêϸµÄ½â¶Á£º
JSPÖУº
    ÔÚ¶¯Ì¬ÍøÒ³¿ª·¢ÖУ¬HTML±íµ¥ÊÇÓëÓû§½»»¥ÐÅÏ¢µÄÖ÷ÒªÊֶΡ£
    ʹÓÃJSP´¦Àí±íµ¥ÇëÇóʱ£¬Ò»°ã×ñÑ­ÕâÑùÒ»ÖÖģʽ£¬Ê×ÏÈ£¬Óû§Í¨¹ý±íµ¥¿Ø¼þÊäÈë²¢Ìá½»ÐÅÏ¢;½Ó×Å£¬JSPÒ³Ãæ»ñµÃ±íµ¥Êý ......

¼òµ¥µÄasp²É¼¯´úÂë½Ì³ÌµçÄÔ¼¼Êõ½»Á÷

²É¼¯¿ªÊ¼
µÚÒ»²½ÊÇ·ÖÎöÒª²É¼¯µÄÒ³Ãæ¡£
¡¡Ê¹ÓÃä¯ÀÀÆ÷´ò¿ªÒª²É¼¯µÄÒ³Ãæ£¨Èç:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml£¬Äã¿ÉÒÔÆäËûÒ³Ãæ£©£¬´ò¿ªºó£¬µã»÷ÓÒ¼ü£¬²éÔ´Îļþ¡£
µÚ¶þ²½£¬ÕÒµ½Òª²É¼¯µÄÄÚÈÝËùÔÚλÖá£
¼ÙÈçÎÒÒª²É¼¯Õâ¸öÒ³ÃæÉϵıêÌâºÍÄÚÈÝËùÔÚµÄλÖãº
±êÌâÔÚ<h1 id="artibodyTitle" st ......

aspÐÔÄܲâÊÔ±¨¸æ

ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔ­ÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ