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Êý×Ö¸ñʽ¼°×Ô¶¯ÊÊÓ¦¿í¶ÈµÄÎÊÌâ
ÏÂÃæÖ±½Ó½øÐдúÂëÑÝʾ£º
<%
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 ......
<%
Response.Buffer = True
'Ò»°ãÇé¿öÏ£¬µ±Óû§ÇëÇóWEB·þÎñÆ÷ʱ£¬·þÎñÆ÷°ÑÇëÇ󻨏´¸ø¿Í»§¶Ë¡£ÔÚ¿Í»§¶Ë£¬ä¯ÀÀÆ÷°Ñ»º´æ×÷ΪһÖÖ¼Ó¿ìËٶȵIJßÂÔ£¬¾ÍÊǵ±ÇëÇóʱÏȼì²é»º´æµÄÇé¿ö£¬Èç¹ûÓоÍÖ±½Óµ÷»º´æÁË£¬¶ø²»ÇëÇó·þÎñÆ÷ÁË¡£
'ÔÚWEB³ÌÐòÉè¼ÆÖУ¬ÓÐʱΪÁË·ÀÖ¹ÖØ¸´µÄÌá½»»òÕßÑϸñµÄ´ÎÐòµÈ£¬±ØÐëÈÃÓû§µÄÊý¾ÝÁ¢¼´ÔÚʹÓúó¾Í ......
Ò³ÃæµÄÊäÈëºÍÊä³öÉæ¼°µ½ÁËRequestºÍResponse,ÓÉÓÚËûÃǺÍJspÖеÄÏàËÆ,
ÏÂÃæÎÒÃǽøÐÐÏêϸµÄ½â¶Á£º
JSPÖУº
ÔÚ¶¯Ì¬ÍøÒ³¿ª·¢ÖУ¬HTML±íµ¥ÊÇÓëÓû§½»»¥ÐÅÏ¢µÄÖ÷ÒªÊֶΡ£
ʹÓÃJSP´¦Àí±íµ¥ÇëÇóʱ£¬Ò»°ã×ñÑÕâÑùÒ»ÖÖģʽ£¬Ê×ÏÈ£¬Óû§Í¨¹ý±íµ¥¿Ø¼þÊäÈë²¢Ìá½»ÐÅÏ¢;½Ó×Å£¬JSPÒ³Ãæ»ñµÃ±íµ¥Êý ......
²É¼¯¿ªÊ¼
µÚÒ»²½ÊÇ·ÖÎöÒª²É¼¯µÄÒ³Ãæ¡£
¡¡Ê¹ÓÃä¯ÀÀÆ÷´ò¿ªÒª²É¼¯µÄÒ³Ãæ£¨Èç:http://sports.sina.com.cn/k/2008-09-15/04593948756.shtml£¬Äã¿ÉÒÔÆäËûÒ³Ãæ£©£¬´ò¿ªºó£¬µã»÷ÓÒ¼ü£¬²éÔ´Îļþ¡£
µÚ¶þ²½£¬ÕÒµ½Òª²É¼¯µÄÄÚÈÝËùÔÚλÖá£
¼ÙÈçÎÒÒª²É¼¯Õâ¸öÒ³ÃæÉϵıêÌâºÍÄÚÈÝËùÔÚµÄλÖãº
±êÌâÔÚ<h1 id="artibodyTitle" st ......
ÔÚ·þÎñÆ÷ÉÏÉú³É¶¯Ì¬ÄÚÈÝÊÇʹÓÃASP×îÖ÷ÒªµÄÔÒòÖ®Ò»£¬ËùÒÔÎÒÃÇÑ¡ÔñµÄµÚÒ»¸ö²âÊÔÏîÄ¿ÊÇÈ·¶¨°Ñ¶¯Ì¬ÄÚÈÝ·¢Ë͵½Ó¦´ðÁ÷ʹÓÃʲô·½·¨×îºÃ¡£»ù±¾µÄÑ¡ÔñÓÐÁ½ÖÖ£¨ÒÔ¼°ËüÃǵÄһЩ±ä»¯£©£ºÊ¹ÓÃÄÚǶASP±ê¼Ç£¬Ê¹ÓÃResponse.WriteÓï¾ä¡£
¡¡¡¡ Ϊ²âÊÔÕâЩ²»Í¬µÄ·½·¨£¬ÎÒÃÇ´´½¨ÁËÒ»¸ö¼òµ¥µÄASPÒ³Ãæ£¬Ò³ÃæÏȶ¨ÒåһЩ±äÁ¿È»ºó°ÑËüÃDzåÈëµ½±í¸ ......