十八、创建 activex 财务组件.htm

当你用 ASP 编写服务器端应用程序时

            Main 
            过程将被调用。　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>当您的财务组件被调用时，它不需要任何特殊代码来初始化自身。因此，需要提　　　　　 <BR>供一个空的（没有 Visual 
            Basic 语句的）Sub Main 
            过程。　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>选择“Project”菜单中的“Add 
            Module”。　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>在“Module 1”对话框中，双击模块图标。　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>在 Module 1 代码窗口中，键入 
            Sub 
            Main。　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>按下 Enter 
            键。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>将自动进入如下代码：　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>Sub 
            Main()　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>End 
            Sub　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>保存 Finance 
            工程　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>当保存所作的工作时，将询问您是否保存 Visual Basic 工程的全部 3 
            部分。其　　　　　<BR>中包括工程文件、类模块和代码模块。　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>打开“File”菜单。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>选择“Save 
            Project”。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>在“File 
            name”文本框中，键入“Finance”。选择 localhost Web 
            服务器上的　　　　　<BR>如下路径：DriveLetter:\Winnt\System32\Inetsrv\，其中 
            DriveLetter 是适当　　　　　<BR>的驱动器号。（如果您没有接受默认的安装目录，请用您的安装目录替换 \Winn　　　　　 
            <BR>t\System32。）　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>单击“Save”按钮。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>如果在此以前，另一个用户已经学完了教程的这一部分，将出现一条消息，提示　　　　　 
            <BR>文件已经存在。请用您的文件覆盖旧文件。　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>双击“File name”文本框中的值 
            “Project1”，选中它。　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>为工程文件键入名称“Finance” 
            (.vbp)。　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>单击“Save”按钮保存工程。　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>如果在此以前，另一个用户已经学完了教程的这一部分，将出现一条消信息，提　　　　　 
            <BR>示文件已经存在。请用您的文件覆盖旧文件。　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>成为“进程内 
            (In-Process)”组件　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>Visual Basic 允许您创建进程内 ActiveX 组件（通常称为 OLE 自动服务器）和　　　　　<BR>进程外 
            ActiveX 组件。一个进程内 ActiveX 组件是一个动态链接库（带 
            .dll　　　　　　<BR>后缀），由调用它的进程进行加载。一个进程外 ActiveX 组件是一个可执行文件　　　　　<BR>（带 
            .exe 后缀），当它被应用程序调用后，以独立进程的状态运行。由于进程　　　　　 
            <BR>内组件与调用它的程序在同一个进程空间，所以性能比进程外组件要佳。　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>使 Finance 
            服务器组件成为进程内 ActiveX 组件　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>打开“File”菜单。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>选定“Make 
            Finance.dll”。　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>单击“Options”按钮。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>选定“Auto Increment”复选框。　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>单击“OK”。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>键入 
            DriveLetter:\localhost\Winnt\System32\Inetsrv\Finance，其中 Drive　　　　　 
            <BR>Letter 是适当的驱动器号。（如果您没有接受默认的安装目录，请用您的安装目　　　　　<BR>录替换 
            \Winnt\System32。）　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>如果在此以前，另一个用户已经学完了教程的这一部分，将出现一条消信息，提　　　　　 
            <BR>示文件已经存在。请用您的文件覆盖旧文件。　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>退出 Visual 
            Basic。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>注册 Finance 
            服务器组件　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>所有服务器组件都必须注册。Windows NT 和 Windows 95 
            用系统注册表来追踪哪　　　　　<BR>个服务器组件是可用的。在您的计算机上将 Finance 
            服务器组件注册后，就可以　　　　　<BR>在 VBScript 和所有兼容 OLE 
            的语言中调用它了。　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>打开一个命令提示符窗口。　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>在命令提示符后键入 cd Drive 
            Letter:\localhost\Winnt\System32\Inetsrv，　　　　　 <BR>其中 DriveLetter 
            是适当的驱动器号。（如果您没有接受默认的安装目录，请用　　　　　<BR>您的安装目录替换 
            \Winnt\System32。）　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>按下 Enter 
            键。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>键入 regsvr32 
            Finance.dll。　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>按下 Enter 
            键。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　<BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>当出现一个对话框显示“DllRegisterServer in finance.dll succeeded”时，　　　　　 
            <BR>请单击“OK”按钮。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
            <BR>　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 <BR>关闭命令提示符窗口。 
        </TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
        <TBODY>
        <TR>
          <TD>■今日推荐：<A 
            href="http://lzjx.com/w/main.asp?id=388&amp;sx=jc">ASP内建对象Serv</A> 
          </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=800 bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD background="十八、创建 ActiveX 财务组件.files/qw39.gif"></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=1 cellPadding=5 width=800 bgColor=#ffffff border=0>
  <TBODY>
  <TR>
    <TD class=N noWrap align=middle>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff 
        border=0><TBODY>
        <TR>
          <TD 
      background="十八、创建 ActiveX 财务组件.files/qw39.gif"></TD></TR></TBODY></TABLE><BR>本网站是学习网站,内容整理大多来自互联网,尽量标明了出处,如果侵犯了您的权力请通知我,立即纠正<BR>欢迎提出宝贵建议，提供相关资料，以便相互学习,共同提高!<BR>
      <OBJECT 
      codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
      height=18 width=103 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME="BGCOLOR" VALUE=""><PARAM NAME="movie" VALUE="../images/21sg.swf"><PARAM NAME="quality" VALUE="high">
                                      <embed src="../images/21sg.swf" 
      quality="high" 
      pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
      type="application/x-shockwave-flash" width="103" height="18" ></embed>     
       </OBJECT></TD></TR>
  <TR>
    <TD height=79>&nbsp;</TD></TR>
  <TR>
    <TD align=middle></TD></TR></TBODY></TABLE></CENTER></BODY></HTML>