[ת]ʹÓÃASPµ÷ÓÃC#дµÄCOM×é¼þ
ת×Ô: http://www.cnblogs.com/rentj1/archive/2009/02/23/1396187.html
1 н¨Àà¿âMyTestDLL
2 ÓÒ»÷ÏîÄ¿“MyTestDLL”-¡·ÊôÐÔ-¡·Éú³É-¡·¹´Ñ¡“ΪCOM»¥²Ù×÷×¢²á”
3 ´ò¿ª AssemblyInfo.cs Îļþ ÐÞ¸Ä [assembly: ComVisible(true)]
4 ´ò¿ªVisual Sutdio 2008 µÄÃüÁîÌáʾÐй¤¾ßÊäÈëguidgen.exe Ñ¡ÔñDEFINE_GUID µ¥»÷ "New GUID"
5´úÂë
1¡¢Ã¿¸öÀàÃû¶ÔÓ¦Ò»¸ö½Ó¿ÚÃû£¬½Ó¿ÚÃûÊÇÀàÃûǰ¼ÓÉÏÒ»¸ö´óдµÄI
2¡¢½Ó¿ÚÖÐÉùÃ÷µÄ·½·¨ÒªÊ¹ÓÃÊôÐÔ [DispId(n)]
3¡¢Àà±ØÐëÓÐÒ»¸öÎ޲ι¹Ô캯Êý
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
namespace MyTestDll
{
// ÕâÀïGuidΪµÚ4²½Éú³ÉµÄ¡£
[Guid("FFA4B191-FB5B-4dd5-B7B1-B2F32BF6F1FF")]
public interface IMyTestDll
{
[DispId(0)]
string GetAbout();
}
public class Test1:IMyTestDll
{
private string summary;
public Test1()
{
summary = "ÕâÊÇÎҵĵÚÒ»¸ö²âÊÔ";
}
public string GetAbout()
{
return summary;
}
}
}
6 Éú³ÉÏîÄ¿
ASP²âÊÔ´úÂë
<%
Dim o &nbs
Ïà¹ØÎĵµ£º
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '»º´æÍ¼Æ¬
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '½¨Á¢ÏÂÔØ¶ÔÏó
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '¿ªÊ¼»ñȡͼƬ,http://xxx/pngÕâ½Ú¿ÉÒԸijÉ× ......
Sub CreateAccessDB(DBToCreate)
Dim catNewDB ' As ADOX.Catalog
Set catNewDB = Server.CreateObject("ADOX.Catalog")
catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & se ......
ÔÚËÑË÷ÒýÇæµÄ¿ª·¢ÖУ¬ÎÒÃÇÐèÒª¶ÔÍøÒ³µÄHtmlÄÚÈݽøÐмìË÷£¬ÄÑÃâµÄ¾ÍÐèÒª¶ÔHtml½øÐнâÎö¡£²ð·Öÿһ¸ö½Úµã²¢ÇÒ»ñÈ¡½Úµã¼äµÄÄÚÈÝ¡£´ËÎĽéÉÜÁ½ÖÖC#½âÎöHtmlµÄ·½·¨¡£
µÚÒ»ÖÖ·½·¨£º
ÓÃSystem.Net.WebClientÏÂÔØWeb Page´æµ½±¾µØÎļþ»òÕßStringÖУ¬ÓÃÕýÔò±í´ïʽÀ´·ÖÎö¡£Õâ¸ö·½·¨¿ÉÒÔÓÃÔÚWeb CrawlerµÈÐèÒª·ÖÎöºÜ¶àWeb PageµÄÓ¦ÓÃÖ ......
±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/826.html
ASP ¶¨Òå³£Á¿µÄ·½·¨
³£Á¿£ºÓÃÒ»ÖÖÃû³Æ´úÌæÊý×ÖºÍ×Ö·û´®£¬ÇÒÆäÖµ±£³ÖÒ»Ö±²»±ä¡£
ÔÚ VBscript ÖУ¬¿ÉÒÔÓà const Óï¾äÀ´¶¨Òå³£Á¿¡£
³£Á¿·ÖÊý×ÖÐͺÍ×Ö·û´®ÐÍ¡£
±íʾÈÕÆÚµÄ³£Á¿Ð´ÔÚÁ½¸ö # Ö®¼ä¡£
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAG ......