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

ASP²É¼¯ ASP²É¼¯³ÌÐòÔ­Àí

ASP²É¼¯-ASP²É¼¯³ÌÐòÔ­Àí
²É¼¯³ÌÐòµÄÖ÷Òª²½ÖèÈçÏ£º
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
¶þ¡¢´Ó»ñÈ¡´úÂëÖÐÌáÈ¡ËùÓÐÓõÄÊý¾Ý
Ò»¡¢»ñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ
ÎÒÄ¿Ç°ËùÕÆÎÕµÄASP³£ÓûñÈ¡±»²É¼¯µÄÒ³ÃæµÄÄÚÈÝ·½·¨£º
1¡¢ÓÃserverXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl) 
    '´´½¨¶ÔÏó
    Dim ObjXMLHTTP
    Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
    'ÇëÇóÎļþ,ÒÔÒì²½ÐÎʽ
    ObjXMLHTTP.Open "GET",weburl,False
    ObjXMLHTTP.send
    While ObjXMLHTTP.readyState <> 4
        ObjXMLHTTP.waitForResponse 1000
    Wend
    'µÃµ½½á¹û
     GetBody=ObjXMLHTTP.responseBody
    'ÊͷŶÔÏó
     Set ObjXMLHTTP=Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
2¡¢»òXMLHTTP×é¼þ»ñÈ¡Êý¾Ý
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function GetBody(weburl)  
    '´´½¨¶ÔÏó
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
     .Open "Get", weburl, False, "", ""
     .Send
     GetBody = .ResponseBody
     End With
    'ÊͷŶÔÏó
    Set Retrieval = Nothing
End Function
µ÷Ó÷½·¨£º
GetBody(ÎļþµÄURLfµØÖ·)
ÕâÑù»ñÈ¡µÄÊý¾ÝÄÚÈÝ»¹ÐèÒª½øÐбàÂëת»»²Å¿ÉÒÔʹÓÃ
ÒÔÏÂÄÚÈÝΪ³ÌÐò´úÂë:
ÒÔÏÂΪÒýÓõÄÄÚÈÝ£º
Function BytesToBstr(body,Cset)
        dim objstream
        set objstream = Server.CreateObject("adodb.stream")
        objstream.Type = 1
        objstream.Mode =3
        objstream.Open
     &nb


Ïà¹ØÎĵµ£º

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»ñÈ¡µ±Ç°Â·¾¶Óï¾ä´óÈ«

ÔÚasp¿ª·¢Öо­³£ÐèÒªÓõ½µ±Ç°Ò³ÃæµÄ·¾¶£¬Ïà¶ÔµÄ£¬¾ø¶ÔµÄ£¬ÓвÎÊýµÄ£¬Ã»ÓвÎÊýµÄ£¬ÕâÀïÕûÀíһϣ¬¸öÈ˸оõºÜÈ«µÄasp»ñÈ¡Ò³Ãæ·¾¶Óï¾ä´óÈ«£¬ÀýÈ磺request.servervariables script_name SERVER_SOFTWARE
Îļþip·¾¶£º<%="http://" & request.servervariables("server_name")& request.servervariables("script_ ......

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 = ob ......

MVCÈý²ã¼Ü¹¹ÔÚASPÖеÄÓ¦ÓÃ


Ç°¶Îʱ¼ä¶ÁÁ˲»ÉÙ¹ØÓÚMVCµÄÎÄÕ£¬ÊÔ×ÅÔÚASPÖÐÓ¦ÓÃÁËһϣ¬·¢ÏÖ¶ÔÓÚС³ÌÐò£¬´úÂëÁ¿»á´ó·ù¶ÈÔö¼Ó£¬µ«ÊÇÂß¼­ÇåÎú£¬Êý¾Ý·â×°ºÜºÏÀí£¬ÒÔÇ°ÐèÒª×Ðϸ¹æ»®µÄ´úÂ븴Óþ¹È»³ÉÁËÀíËùµ±È»µÄÊÂÇé¡£
ËùνMVC£¬¼´Model£¨Ä£ÐÍ£©£¬View£¨ÊÓͼ£©£¬Control£¨¿ØÖÆ£©Èý²ã¼Ü¹¹¡£¸÷²¿·Ö¸÷˾ÆäÖ°£¬Model¼´µ×²ã¹¹¼Ü£¬°üº¬ÓëÊý¾Ý¿âÁ¬½ÓµÄ²¿·Ö£¬View ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ