c# ÑéÖ¤Âë×é¼þ ¿Évb£¬asp£¬netµ÷ÓÃ
½ñÌ칫˾ҪÇóÓÃC#д¸öÑéÖ¤Âë×é¼þ£¬ÈÃasp¿ÉÒÔµ÷Óã¬ÔÚÍøÉÏÕÒÁËÒ»¶Ñ×ÊÁÏ£¬ÖÕÓÚ¸øÎÒ¸ø¸ã³öÀ´ÁË£¬ÒòΪ±¾È˵ÚÒ»´Îд×é¼þ£¬Ò²ÊǵÚÒ»´Î·¢±íÎÄÕ£¬ËùÓпÉÄÜ˵µÄ²»ÊǺܺ㬴ó¼ÒÇë¼ûÁ¡£
csdnÉÏÓÐÕâôƪÎÄÕ£¬Ïëѧϰд×é¼þµÄ¿ÉÒÔÈ¥¿´¿´£ºhttp://blog.csdn.net/KimmKing/archive/2008/12/04/3445233.aspx£¬ÒòΪ±¾È˾ÍÊÇ·ÂÕÕÕâ¸öдµÄÑéÖ¤Âë×é¼þ£¬ÒòΪÅÂÉÏÃæµÄÎÄÕ¶ªÊ§£¬ÎÒ¾ÍÔÚÕâÀï¼òµ¥ËµÏ´´½¨µÄ¹ý³Ì£º
1¡¢´´½¨Ò»Àà¿â
2¡¢ÊµÏÖÒ»¸öÀࣨ¾ßÌå´úÂëÏÂÃæÏêд£©
3¡¢¸øÎļþÇ©Ãû
·½·¨£ºÑ¡Ôñ¿ªÊ¼²Ëµ¥ÖÐVistual StudioĿ¼ÏµÄVistual Studio ToolsϵÄVistual Studio ÃüÁîÌáʾ¡£Ê¹ÓÃsn -k c:\myKey.snkÉú³ÉÇ©ÃûÎļþ¡£ÔÚÏîÄ¿ÉÏÓÒ¼ü£¬µã»÷ÊôÐÔ£¬Ñ¡ÔñÇ©Ãû£¬Ñ¡ÖÐΪ³ÌÐò¼¯Ç©Ãû£¬Ñ¡ÔñmyKey.snkÎļþ¡£
4¡¢Éú³É½â¾ö·½°¸
ÔÚÏîĿĿ¼µÄ\TestCom\bin\DebugÖпÉÒÔÕÒµ½TestCom.dll
5¡¢Éú³ÉtlbÀà¿â
ÔÚVisual StudioÃüÁîÌáʾ·ûÏ£¬Çл»µ½´ËĿ¼¡£
ÊäÈëtlbexp TestCom.dll /out:TestCom.tlb
6¡¢×¢²áÀàÐÍ¿â
ÊäÈëregasm TestCom.dll /tlb: TestCom.tlb /codebase£¬½«ÀàÐͿ⵼Èëµ½×¢²á±í¡£Ìáʾ³É¹¦×¢²áÁËÀàÐÍ£¬ËµÃ÷²Ù×÷³É¹¦£¬´ËʱTestCom .dll¿ÉÒÔ×÷Ϊһ¸öcomÀ´Ê¹Óá£
7¡¢Ìí¼Ódllµ½GAC
ÊäÈëgacutil /i TestCom.dll£¬½«´Ë.net³ÌÐò¼¯Ìí¼Óµ½GAC¡£
ÕâÑù´´½¨×é¼þµÄËùÓй¤×÷¾ÍÍê³ÉÁË¡£Ê£ÏµľÍÊǵ÷ÓÃÁË
ÔÚvbºÍnetÀïÃæµ÷Ó㺵¼Èëdll£¬ÊµÀý»¯¶ÔÏó¾Í¿ÉÒÔʹÓÃÁË
£¨Dim a As New TestCom.Class1£©a.·½·¨
£¨TestCom.Class1 aa = new TestCom.Class1£¨£©£©aa.·½·¨
ÔÚaspµ÷Óãº
<%
SET s = CreateObject("TestCom.Class1")
s.test()
%>
ÒÔÉϾÍÊÇÎÒÕÒµ½µÄ´´½¨×é¼þµÄ×ÊÁÏ£¬ÄÇôÏÖÔھͿªÊ¼±àдÑéÖ¤Âë×é¼þµÄ´úÂë°É
Ê×ÏȱàдÀà¿â£º
using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Security;
namespace TestComs
{
[ComVisible(true)]
public interface iClass1
{
string DoCode(int num);
byte[] DoImg(string code);
}
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.AutoDual)]
public class Class1 : iClass1
{
private double PI2;
public Class1()
{
PI2 = 6.
Ïà¹ØÎĵµ£º
MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ ......
½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2¡¢Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'Ëæ»úÅÅÐò
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
#region µÃµ½ËùÓб¾µØÍøÂçÖпÉʹÓõÄSQL·þÎñÆ÷Áбí
/// <summary>
/// µÃµ½ËùÓб¾µØÍøÂçÖпÉʹÓõÄSQL·þÎñÆ÷Áбí
/// </summary>
/// <param name="p_strServerList">·þÎñÆ÷Áбí</param& ......