ASPÓëActiveX¿Ø¼þ½»»¥ÊµÕ½
ActiveX¿Ø¼þÔËÐÐÔÚ¿Í»§¶Ë¡£ÎÒÃÇ¿ÉÒÔ»ñµÃ¿Í»§¶ËµÄһЩÐÅÏ¢£¬ÈçIC¿¨µÄÐÅÏ¢,¿Í»§¶ËµÄÑéÖ¤µÈµÈ¡£µ«ÊÇActiveX¿Ø¼þÒ²ÓÐÐí¶àȱµã£º¿Í»§¶ËµÄ²¿ÊðºÜÀ§ÄÑ£¬Èç¿Í»§¶Ë²»ÄÜÕýÈ·ÏÂÔØ£¬ÏÂÔØÁËÒÔºó²»ÄÜÕýÈ·Ö´ÐУ¬ÏÂÔØµÄʱºòÐèÒªÉèÖÃIEµÄ°²È«¼¶±ðµÈµÈ¡£
¸ü¶àµÄʱºò£¬ÎÒ¶¼ÔÚʹÓÃCOM×é¼þÀ´À©Õ¹ASPµÄ¹¦ÄÜ¡£×¼È·µØËµ£¬ÊÇ·þÎñ¶ËÔËÐеÄActivex Dll×é¼þ¡£Ê¹ÓÃServer.CreateObject(“¹¤³ÌÃû.ÀàÃû”)¼´¿ÉÍê³É¶Ô×é¼þµÄµ÷Óá£ÕâÖÖ·½Ê½ÎÊÌâºÜÉÙ,Ö»Òª×é¼þÖÐÒÔPUBLIC¶ÔÍⱩ¶·½·¨¼È¿É¡£µ«ÊÇ£¬ÓÐʱºòÎÒÃDZØÐëʹÓÃACTIVEX ¿Ø¼þ(*.OCX)ǶÈëµ½ÍøÒ³ÖÐÖ´ÐÐÀ´»ñÈ¡¿Í»§¶ËµÄÐÅÏ¢¡£Õâ¾ÍÓÐÁËÐíÐí¶à¶àµÄһЩÎÊÌâ¡£
ÕâÊÇÎÒÃÇÐèÒª½â¾öµÄN¸öÎÊÌâ(´Ó¼òµ¥µ½ÄÑ)
1£® ÈçºÎ´Ó·þÎñ¶Ë»ñÈ¡Êý¾Ý£¬´«µÝµ½ActiveX¿Ø¼þÖС£
1£© ³õʼ»¯Ê±Ê¹ÓòÎÊý°ó¶¨
2£© ÔËÐÐʱµÃµ½Êý¾Ý
2£® ActiveX¿Ø¼þµÃµ½¿Í»§¶ËµÄÐÅÏ¢£¬ÈçºÎ´«µÝµ½·þÎñ¶Ë¡£
3£® °²È«ÐÔ
1£© Êý×ÖÇ©Ãû
2£© ʹÓÃIOBJSAFE½Ó¿Ú
ºÃÁË£¬ÎÒÃÇ¿ªÊ¼ÊµÀýѧϰ¡£
Õâ¸ö¹¦ÄÜÑÝʾÁËÈçºÎÖÆ×÷Ò»¸ö¼òµ¥µÄ¿Ø¼þ,²¢Ç¶ÈëÍøÒ³ÖÐÖ´ÐС£
¹¤×÷»·¾³:WINXP+VB6+IE6
ÎÒµÄIE°²È«ÉèÖÃΪ°²È«¼¶±ð-ÖС£ËùÓеÄActivexÑ¡ÏîÉèΪÆôÓá£
´ò¿ªvb6,н¨ActiveX¿Ø¼þ¹¤³Ì¡£
¹¤³ÌÃû:fOcx£¬Óû§¿Ø¼þÃû:UC1
ΪÁË·½±ã£¬ÎÒÃÇʹÓÃActiveX¿Ø¼þ½Ó¿ÚÏòµ¼…,²Ëµ¥->Íâ½Ó³ÌÐò->Íâ½Ó³ÌÐò¹ÜÀíÆ÷->VB 6 ActiveX¿Ø¼þ½Ó¿ÚÏòµ¼¡£È·¶¨¼´¿É¡£
´ò¿ªActiveX¿Ø¼þ½Ó¿ÚÏòµ¼£¬ÏÂÒ»²½£¬¶ÔÓÚ¿ÉÓÃÃû³ÆºÍÑ¡¶¨Ãû³ÆÎÒÃÇĬÈÏÏÂÒ»²½£¬Ð½¨×Ô¶¨Òå³ÉÔ±£¬GetInfoÀàÐÍ:ÊôÐÔ£¬ÏÂÒ»²½£¬¹²Óз½·¨ÖÐÑ¡ÔñÎÒÃǸղÅÌí¼ÓµÄGetInfo,Ó³Éäµ½¿Ø¼þÑ¡ÔñTxtInfo,³ÉԱѡÔñText,ÏÂÒ»²½Ö±µ½Íê³É¡£´úÂë´°¿ÚÖлáÉú³ÉһЩÎÒÃDz»ÐèÒªµÄ£¬É¾³ý£¬Ê£ÏµĴúÂëÈçÏ£º
Option Explicit
'×¢Ò⣡²»ÒªÉ¾³ý»òÐÞ¸ÄÏÂÁб»×¢Ê͵ÄÐУ¡
'MappingInfo=txtinfo,txtinfo,-1,Text
Public Property Get GetInfo() As String
GetInfo = txtinfo.Text
End Property
Public Property Let GetInfo(ByVal New_GetInfo As String)
txtinfo.Text() = New_GetInfo
PropertyChanged "GetInfo"
End Property
'´Ó´æÖüÆ÷ÖмÓÔØÊôÐÔÖµ
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
txtinfo.Text = PropBag.ReadProperty("GetInfo", "Text1")
End Sub
'½«ÊôÐÔֵдµ½´æ´¢Æ÷
Private Sub UserControl
Ïà¹ØÎĵµ£º
Èç¹ûÔÚÒ»¸öÍøÕ¾µÄÒ³ÃæÖÐÏëµ÷ÓÃÆäËûÍøÕ¾Ò³ÃæÄÚÈÝ£¬Ö±½ÓÓÃһϴúÂë¾Íok£¬http://www.wanyusoft.com/index.asp Õâ¸ö·¾¶¾ÍÊÇËùÒªµ÷ÓõÄÒ³ÃæÂ·¾¶¡£
<%
response.write(getHTTPPage("http://www.wanyusoft.com/index.asp"))
function getHTTPPage(url)
dim http
set http=createobject("MSXML2.XMLHTTP")
Http.o ......
´Ó×Ö·û´®Öзµ»ØÖ¸¶¨ÊýÄ¿µÄ×Ö·û¡£
Mid(string, start, length)
²ÎÊý
string
×Ö·û´®±í´ïʽ£¬´ÓÖзµ»Ø×Ö·û¡£Èç¹û string °üº¬ Null£¬Ôò·µ»Ø Null¡£
Start
string Öб»ÌáÈ¡µÄ×Ö·û²¿·ÖµÄ¿ªÊ¼Î»Öá£Èç¹û start ³¬¹ýÁË string ÖÐ×Ö·ûµÄÊýÄ¿£¬Mid ½«·µ»ØÁ㳤¶È×Ö·û´® ("")¡£
Length
Òª·µ»ØµÄ×Ö·ûÊý¡£Èç¹ûÊ¡ ......
³öÏÖÕâ¸öÔÒòÊÇinternetÓû§·ÃÎʵÄȨÏÞ²»¹»£¬ÏµÍ³Ä¬ÈÏȨÏÞÊÇÖ»¶ÁµÄ£¬ËùÒÔÎÒÃÇÒª¸øËü·ÖÅä¿ÉÐÞ¸ÄȨÏÞ£¬·Ï»°²»¶à˵£¬½øÈëÖ÷Ì⣺
1.×ÊÔ´¹ÜÀíÆ÷——>¹¤¾ß——>Îļþ¼ÐÑ¡Ïî——>²é¿´
2.½«"¼òµ¥Îļþ¹²Ïí(ÍÆ¼ö)"Ñ¡ÏîÈ¥µô
3.Ñ¡ÔñÄãµÄWEBÎļþ¼Ð£¬¿´ÆäÊôÐÔ£¬ÕâʱÄã»á·¢ÏÖ¶àÁ˸ö"°²È«"Ñ¡Ï£ ......
֮ǰд¹ýÒ»¸ö²»ÓÃÑéÖ¤ÂëµÄ·À×¢²á»ú·½·¨£¬Ê¹ÓÃÁ˽«½ü2Äêºó£¬³¹µ×ʧЧ¡£
½ñÌìżȻײ¼ûÒ»¸ö·ÀÖ¹¶ñÒâ×¢²áµÄ·½·¨£¬ÕýÔÚ˼¿¼ing¡£ÏȰѷ½·¨ÁÐÏ£º
»ñÈ¡¿Í»§¶ËÌá½»µÄÐÅÏ¢£»
½«ÐÅÏ¢´æÈë Session£»
Éú³ÉÒ»¸öËæ»úÊý£¨³ÆÎª ticket£©£»
½«Ëæ»úÊýÒ²´æÈë Session£»
Óà JavaScript µÄÐÎʽ½«Ëæ»úÊýÒÔÁ´½ÓµÄÐÎʽÊä³ö£¬²¢Ìáʾ¿Í»§µã»÷ÉÏÒ ......
FlashÖеÄXML¶ÔÏóÒ²Óз½·¨¿ÉÒÔ½«XMLÊý¾ÝÏò·þÎñÆ÷·¢ËÍ¡£¼´sendºÍsendAndLoad¡£send·½·¨Ïòij¸ö URL ´«µÝ XML ¶ÔÏ󣬷µ»ØµÄÐÅÏ¢¶¼±»·¢Ë͵½ÁíÍâÒ»¸öä¯ÀÀÆ÷´°¿Ú£»sendAndLoad ·½·¨Ïòij¸ö URL ·¢ËÍÒ»¸ö XML ¶ÔÏó¡£·µ»ØµÄÐÅÏ¢¶¼·ÅÔÚÒ»¸öXML¶ÔÏóÖС£
ÔÚijÖ̶ֳÈÉÏ£¬ XMLµÄsend·½·¨ºÍsendAndLoad·½·¨ÀàËÆÓÚloadVars¶ÔÏóµÄsend·½·¨ºÍ ......