asp调用dll的问题

请给一个asp调用dll的例子。另外，该dll是否要注册？    
  如果不想注册，是否可以换用asp.net或php？ 问题点数：100、回复次数：4Top

1 楼cmslovehxh（关中刀客）回复于 2005-05-20 08:26:50 得分 20

asp中用dll组件是要注册的。  
  asp.net   程序编译后会生成一个dll，不用注册。前提要你用code   behindTop

2 楼changechange（http://access911.net 是我的个人网站，欢迎光临）回复于 2005-05-20 08:36:58 得分 20

注册完   DLL   后，直接用  
   
  dim   a  
  set   a   =   server.createobject("类库名")  
  就可以调用了Top

3 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-05-20 09:04:38 得分 40

我给你个,我测试过了,楼主记得给分我就是了!!!  
   
  使用组件封装数据库操作(一)    
     
  作者：未知   文章来源：Internet   点击数：   168   更新时间：2003-6-12    
     
        其实，大家在书写asp程序时，最担心的可能就是数据库的连接信息，会被一些人看到，进行一些破坏。下面我们用vb6.0来做一个动态链接库(.dll)来隐藏数据库的连接信息。    
  　　启动vb6.0，新建-->Active     dll工程。单击"工程"-->引用,选择"microsoft     active     server     pages     object     library"    
  和"microsoft     activeX     data     objects     2.1     library"两项。将类模块的名称改为dcss.将工程的名称改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。    
  在dcss.cls中写入:    
  Private     myscriptingcontext     As     ScriptingContext    
  Private     myapplication     As     Application    
  Private     myrequest     As     Request    
  Private     myresponse     As     Response    
  Private     myserver     As     Server    
  Private     mysession     As     Session    
   
  Public     Sub     onstartpage(passedscriptingcontext     As     ScriptingContext)    
  Set     myscriptingcontext     =     passedscriptingcontext    
  Set     myapplication     =     myscriptingcontext.Application    
  Set     myrequest     =     myscriptingcontext.Request    
  Set     myresponse     =     myscriptingcontext.Response    
  Set     myserver     =     myscriptingcontext.Server    
  Set     mysession     =     myscriptingcontext.Session    
  End     Sub    
   
  Public     Sub     onendpage()    
  Set     myscriptingcontext     =     Nothing    
  Set     myapplication     =     Nothing    
  Set     myrequest     =     Nothing    
  Set     myresponse     =     Nothing    
  Set     myserver     =     Nothing    
  Set     mysession     =     Nothing    
  End     Sub    
   
  '以上语句是必须的。    
  '定义两个公有函数    
   
  Public     Function     datasource()     As     Variant    
  datasource     =     "driver={sql     server};server=yang;uid=sa;pwd=;     database=dcss"    
  End     Function    
   
  编译生成dcss.dll文件。注册regsvr32     路径\dcss.dll。    
  用visual     interdev打开global.asa文件.当然了，你也可以在其它文件中使用。    
  set         dcss=server.CreateObject("yygwy.dcss")        
  oconn=dcss.datasource()                        
  application("strconn")=oconn        
   
  在其它的页面中如下调用即可：    
  set     objConn     =     Server.CreateObject("ADODB.Connection")    
  objConn.Open     application("strconn")    
     
  Top

4 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-05-20 09:05:08 得分 20

注意:工程名不是工程文件名是在属性窗口改的,类名也一样Top

相关问题

• asp.net
• vb6.0
• 文件
• 数据库
• 注册
• dll
• application
• asp
• server
• dcss

• 帖主：zhourongbiao
• cmslovehxh
• changechange
• yb2008
• yb2008

• Web开发类图书