Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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


Ïà¹ØÎĵµ£º

TopForAspʵÀý(ÌÔ±¦¿ª·Åƽ̨ASP°æµÄÓ¦ÓÃʵÀý)

ÌÔ±¦¿ª·Åƽ̨£¬ÕâÀï²»ÔÙ·Ñ»°ÁË£¬Ö±½Ó¿´ÍøÖ·£ºhttp://open.taobao.com/
ÕâÀïÓкܶàµÄʵÀý£¬±¾ÈË×î½üÒ²Ò»Ö±ÔÚѧϰ¡£
ǰ¼¸Ìì¿´µ½ÀË×ÓµÄȺÀïÓÐһλÅóÓÑ˵ÏëÒªASPµÄʵÀý£¬×Ô¼º¾ÍÕÒÁ˸öʱ¼ä¼òµ¥Ð´Ò»Ï¡£
µ±È»Ð´µÄ²»ºÃ£¬ÒòΪ±¾È˹¤×÷Ò²±È½Ïæ¡£Ö»ÊǼòµ¥ÄÜÓÃÒ»¸öʵÀýÈ¡µÃXML×Ö·û´®µÄÊý¾Ý¡£ÔÚÕâÀïÒ²ÊÇÅ×שÒýÓñ£¬Ï£Íû´ó¼Ò²»ÒªÅÄש¡ ......

ASPÁ¬½ÓSQLiteÊý¾Ý¿âÒ»Àý

ÒªÓÃASPÀ´²Ù×÷SQLiteÊý¾Ý¿â£¬Ç°ÌáÌõ¼þÊÇÔÚ·þÎñÆ÷Éϵð²×°SQLiteµÄODBCÇý¶¯³ÌÐò£¬¿Éµ½Õâ¸öÕ¾µãÉÏÏÂÔØ°²×°£ºhttp://www.ch-werner.de/sqliteodbc/£¬°²×°ºÃºó¾Í¿ÉÒÔÏñʹÓÃAccessÒ»ÑùÀ´Ê¹ÓÃSQLiteÁË£¡Ï±ßÊÇÒ»¸öSQLiteÊý¾Ý¿â½á¹¹£º
ÒýÓÃÄÚÈÝ
Create TABLE admin(username text,age integer);
ÎÒÃÇÔÙÀ´ÓÃASPÑÝʾÏÂÈçºÎ¶ÔSQLi ......

asp»ñÈ¡µ±Ç°Â·¾¶Óï¾ä´óÈ«

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

ASPÌõ¼þÓï¾äÖ®IFÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/827.html
Ìõ¼þÓï¾äÖ® if ... then ... else Óï¾ä
ÓÃÀ´ÅжÏÌõ¼þÊÇ true »ò false £¬²¢¸ù¾ÝÅжϽá¹ûÀ´Ö´ÐÐÖ¸¶¨µÄÓï¾ä£¬Í¨³£Ìõ¼þÊÇÓñȽÏÔËËã·û¶ÔÖµ»ò±äÁ¿½øÐбȽÏÀ´±í´ï¡£
if ... then ... else ¿ÉÒÔ¸ù¾ÝÐèÒª½øÐÐǶÌ×ʹÓ㬿ÉÒÔд³É elseif ¡£
ʾÀý£º
ÒÔÏÂÎ ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ