asp Éú³É¾²Ì¬
<%
Do_Url = "http://"
'Do_Url = Do_Url&Request.ServerVariables("SERVER_NAME")&"/shownews.asp" Ö÷Ŀ¼
aa=Request.Servervariables("url") 'ÐéÄâĿ¼
bb=InstrRev(aa,"/")
cc=left(aa,bb)
Do_Url = Do_Url&Request.ServerVariables("HTTP_HOST")&cc&"index.asp"
call SaveFile("index.htm",Do_Url)
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>
Ïà¹ØÎĵµ£º
<%
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 ......
Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆͼÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌض¨µÄä¯ÀÀÆ÷ºÍһЩ¹¦ÄÜÇ¿´óµÄÈí¼þ£¨ÈçIE5ºÍOffice 2000£©£¬ÄÇô¾ÍÓÐÄÜÁ¦ÀûÓÃOffice Web×é¼þÌṩһ¸ö½»»¥Ê½Í¼Ðοª ......
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 ......
Ò³ÃæµÄÊäÈëºÍÊä³öÉæ¼°µ½ÁËRequestºÍResponse,ÓÉÓÚËûÃǺÍJspÖеÄÏàËÆ,
ÏÂÃæÎÒÃǽøÐÐÏêϸµÄ½â¶Á£º
JSPÖУº
ÔÚ¶¯Ì¬ÍøÒ³¿ª·¢ÖУ¬HTML±íµ¥ÊÇÓëÓû§½»»¥ÐÅÏ¢µÄÖ÷ÒªÊֶΡ£
ʹÓÃJSP´¦Àí±íµ¥ÇëÇóʱ£¬Ò»°ã×ñÑÕâÑùÒ»ÖÖģʽ£¬Ê×ÏÈ£¬Óû§Í¨¹ý±íµ¥¿Ø¼þÊäÈë²¢Ìá½»ÐÅÏ¢;½Ó×Å£¬JSPÒ³Ãæ»ñµÃ±íµ¥Êý ......
ÔõôÓÃaspÅжÏÏÂÃæµÄÐÅÏ¢ÕâÀïÎÒÊÇ¿´µ½¶¯Ì¬ÍøµÄ.
FSOÎļþ¶Áд √ Jmail·¢ËÍÓʼþÖ§³Ö ×
CDONTS·¢ËÍÓʼþÖ§³ ......