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

Ô¶³Ì»ñÈ¡ÀàAsp xmlHttp

±àÕß×¢£ºÕâ¸öclassÖ÷ÒªÓÃÓÚ²Ù×÷aspÖеÄxmlhttp¡£
¡¡¡¡
Ê×ÏÈÊÇÀඨÒå Cls_AspHttp.asp£º
<%
''=================================================================
''·ÉÑïÔ¶³Ì»ñÈ¡Àà(AspHttp) 1.0.1 Bate1
''¡¡¡¡ By ±¼ÌÚµÄÐÄ
''¡¡¡¡ 2006-04-19
''=================================================================
Class FlyCms_AspHttp
¡¡Public oForm,oXml,Ados
¡¡Public strHeaders
¡¡Public sMethod
¡¡Public sUrl
¡¡Public sReferer
¡¡Public sSetCookie
¡¡Public sLanguage
¡¡Public sCONTENT
¡¡Public sAgent
¡¡Public sEncoding
¡¡Public sAccept
¡¡Public sData
¡¡Public sCodeBase
¡¡Private slresolveTimeout,slconnectTimeout,slsendTimeout,slreceiveTimeout
¡¡'' ============================================
¡¡'' ÀàÄ£¿é³õʼ»¯
¡¡'' ============================================
¡¡Private Sub Class_Initialize()
¡¡ oForm = ""
¡¡ Set oXml = Server.CreateObject("MSXML2.ServerXMLHTTP")
¡¡ set Ados = Server.CreateObject("Adodb.Stream")
¡¡¡¡¡¡¡¡ slresolveTimeout = 20000¡¡¡¡ '' ½âÎöDNSÃû×ֵij¬Ê±Ê±¼ä,20Ãë
¡¡¡¡¡¡¡¡ slconnectTimeout = 20000¡¡¡¡ '' ½¨Á¢WinsockÁ¬½ÓµÄ³¬Ê±Ê±¼ä,20Ãë
¡¡¡¡¡¡¡¡ slsendTimeout¡¡¡¡ = 30000¡¡¡¡ '' ·¢ËÍÊý¾ÝµÄ³¬Ê±Ê±¼ä,30Ãë
¡¡¡¡¡¡¡¡ slreceiveTimeout = 30000¡¡¡¡ '' ½ÓÊÕresponseµÄ³¬Ê±Ê±¼ä,30Ãë
¡¡End Sub
¡¡'' ============================================
¡¡'' ·µ»Ø°æ±¾ÐÅÏ¢
¡¡'' ============================================
¡¡Public Property Get Version
¡¡ Version = "·ÉÑïasphttpÀà1.0.0"
¡¡End Property
¡¡'' ============================================
¡¡'' ½âÎöDNSÃû×ֵij¬Ê±Ê±¼ä
¡¡'' ============================================
¡¡Public Property Let lresolveTimeout(LngSize)
¡¡ If IsNumeric(LngSize) Then
¡¡¡¡ slresolveTimeout = Clng(LngSize)
¡¡ End If
¡¡End Property
¡¡'' ============================================
¡¡'' ½¨Á¢WinsockÁ¬½ÓµÄ³¬Ê±Ê±¼ä
¡¡'' ============================================
¡¡Public Property Let lconnectTimeout(LngSize)
¡¡ If IsNumeric(LngSize) Then
¡¡¡¡ slconnectTimeout = Clng(LngSize)
¡¡ End If
¡¡End Property
¡¡'' ==========


Ïà¹ØÎĵµ£º

ASPÑ­»·Óï¾äÖ®do...loopÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/830.html
do ... loop Óï¾äÁ½ÖÖ¸ñʽµÄʾÀý
do whil ... loop £º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt ......

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

°²×°ÁËIIS»¹ÊÇÎÞ·¨´ò¿ªasp½â¾ö°ì·¨

ÏàÐÅÎÒµÄ,Ö»ÓÐÎÒ²ÅÕæÕýµØÕÒ¹ý´ð°¸,ÆäËü¶¼ÊÇÂÒ³­µÄ,ʵÄܽâ¾öµ½ÄãµÄÎÊÌâ,Ç°¸öÔÂÎÒ»¹ÔÚ¿àÕÒ´ð°¸,Ò²ÒÑÊÔÑé¹ýN´Î,×îºó³É¹¦ÁË,ÍøÉÏÒ²ÓиÄÄǸöʲôÕÊ»§µÄ,ÄǸöʵÔÚÌ«ÄÑÁË.
°´Îҵķ½·¨,Ç°ÌáÊÇÒ»,ϵͳÊÇXP,ÆäËüϵͳ²»¸Ò°ü.¶þ,ÄãûÓÐ×ö¹ýÆäËüÉèÖÃ.
Ö÷ÒªÊÇÕÊ»§È¨ÏÞÎÊÌâ.
´ò¿ª“¹ÜÀí¹¤¾ß”->“×é¼þ·þÎñ”- ......

asp Http_Referer,Server_NameºÍHttp_Host

asp Http_Referer,Server_NameºÍHttp_Host
ÒÔÇ°¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐʲôÇø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ