Ô¶³Ì»ñÈ¡Àà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
¡¡'' ==========
Ïà¹ØÎĵµ£º
<%
'==================================================
'º¯ÊýÃû£ºGetHttpPage
'×÷ Ó㺻ñÈ¡ÍøÒ³Ô´Âë
'²Î Êý£ºHttpUrl ------ÍøÒ³µØÖ·
'==================================================
Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True or Len(HttpUrl)<18 or HttpUrl="$False$" Then
GetHttp ......
1¡¢¿ØÖÆ"×Ý´ò"¡¢ ºá´ò”ºÍ“Ò³ÃæµÄ±ß¾à¡£
£¨1£©<script defer>
function SetPrintSettings() {
// -- advanced features
factory.printing.SetMarginMeasure(2) // measure margins in inches
factory.SetPageRange(false, 1, 3) // need pages from 1 to 3
factory.printing.printer = "HP De ......
1,Q:ÔõÑù°Ñ±ðÈËÍøÒ³Éϵı³¾°ÒôÀÖ±£´æÏÂÀ´?
A:ä¯ÀÀ¸ÃÍøÒ³ºó,ÔÚÄãµÄ Windows\Temporary Internet Files Îļþ¼ÐÏ¿ÉÒÔÕÒµ½¸Ã±³¾°ÒôÀֵĻº´æÎļþ£¬¿½±´³öÀ´¼´¿ÉʹÓá£Èç¹û»¹ÊÇÕÒ²»¼û¸ÃÎļþ£¬¿ÉÒÔ´ò¿ªÍøÒ³µÄÔ´Îļþ£¬ÕÒµ½ÒôÀÖÎļþµÄ URL ·¾¶£¬ÓÓÂìÒÏ”µÈ FTP Èí¼þ½øÐÐÏÂÔØ¡£
2,Q:±ÜÃâÓ ......
<%
Private Const BITS_TO_A_BYTE = 8
Private Const BYTES_TO_A_WORD = 4
Private Const BITS_TO_A_WORD = 32
Private m_lOnBits(30)
Private m_l2Power(30)
Private Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And ......
ÎļþÍ·ÓÃÁË
<%@Language="VBScript" CodePage="65001"%>
Îļþ±¾ÉíÒѾÊÇUtf-8µÄ±àÂëÁË
Ìá½»¹ýµ½Access¿âÖÐÔõô¶¼ÊÇ “产品介绍 ”ÕâÑùµÄ±àÂë
Ò»²½²½·ÖÎö£¬²»´æ¿âÖ±½ÓÊä³ö£¬Ò²ÊÇÕâÑùµÄ±àÂë¡£ÏëÀ´¸úAccessÎÞ¹ØÁË¡£
ÏàÓÚÃԻ󣬺óÀ´ÖØн¨Ò»¸ö±íµ¥Ôª£¬Ìá½» ......