aspÒýÓÃvb6±àдµÄdll
aspÒýÓÃvb6±àдµÄdll ×¢²ádll£¬regsvr32 E:\abc.dll£¬ÏÔʾ³É¹¦¡£ µ«ÊÇÔÚaspµ±Öд´½¨¶ÔÏó³É¹¦£¬µ÷ÓÃdllµ±Öеķ½·¨¶¼²»³É¹¦£¬Ò²Ã»Óб¨´í¡£Ôõô»ØÊÂÄØ£¿
ÊDz»ÊÇcreateobjectÀïµÄ×Ö´®²»¶Ô°¡¡£ÒýÓà ÊDz»ÊÇcreateobjectÀïµÄ×Ö´®²»¶Ô°¡¡£ ÊǶԵģ¬Èç¹ûд²»¶Ô£¬¾ÍÏÔʾ´´½¨¶ÔÏóʧ°ÜÁË¡£ ÎÒÏÖÔÚÄÜ´´½¨¶ÔÏó¡£µ«Êǵ÷ÓÃÀïÃæµÄ·½·¨¾Í²»ÐÐÁË¡£ ûÈËÖªµÀÂð£¿Ã»ÈËÖªµÀÂ𣿠ûÓб¨´í,¼ì²é On Error .... È¥µô --------- ¼ì²éÊÇ·ñÊÇÂß¼ÉϵÄÎÊÌâ,µ¼Ö³ÌÐòûÓб»Ö´ÐÐ --- ¼ì²éÊÇ VB ÖеÄÎÊÌ⻹ÊÇ VBS ÖгöµÄÎÊÌâ Èç¹û³ÌÖÐÓÐOn Error resume Next ×îºÃÊǰÑÒì³£´òÓ¡³öÀ´.Èç¹ûÄ㲻ϣÍû¿Í»§¿´µ½ÕâЩ,¿ÉÒÔ×Ô¶¨ÒåÒì³£ÐÅÏ¢ if err then response.write err.description End if ÒýÓà aspÒýÓÃvb6±àдµÄdll ×¢²ádll£¬regsvr32 E:\abc.dll£¬ÏÔʾ³É¹¦¡£ µ«ÊÇÔÚaspµ±Öд´½¨¶ÔÏó³É¹¦£¬µ÷ÓÃdllµ±Öеķ½·¨¶¼²»³É¹¦£¬Ò²Ã»Óб¨´í¡£Ôõô»ØÊÂÄØ£¿ ÄãÊ×ÏÈ£¬ÖØÆôIIS ÔÙ°Ñ regsvr32 /u E:\abc.dll ÔÙÓÃVB6 Éú²ú¹ý abc.dll ÔÙ regsvr32 E:\abc.dll ÎÒ¾ÍÊÇÕâÑù¾ÍµÃÁË¡£
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£© ¾¹È»²»ÊÇzero¡£ ²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»° Õâ¸öÖ»ÄܶÁÎı¾, VB code: Private Sub Command1_Click() Dim WordApp As Object Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£ Õâ¸ö£¿¡£¡£¡£ Ã²ËÆÃ»·¨¡£ ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£ Ï´εã»÷µÄÈç¹ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»» Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
dim a as string,b as string£¬c as string a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ" b="µ¥Î»¹¤³ÌÃû³Æ" c="µ¥Î»" Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´® ¿´¿´i ......