求ASP代码封装成DLL技术，抛百分！

本人现在想学ASP封装成DLL的技术，哪们兄台能教会小弟，老弟总抛分一百作回报，绝不食言。但是现在网上的这方面信息俺也看了不少，就是没有好用的，希望大家能给小弟一个详细好用的技术文章！ 问题点数：100、回复次数：36Top

1 楼newhandtoo（停留卡）回复于 2005-01-16 14:14:21 得分 0

用VB编写ASP组件（一)  
  http://www.yesky.com/20000720/95799.shtml  
   
  用VB编写ASP组件（二)  
  http://www.yesky.com/20000722/96397.shtml  
  Top

2 楼kakalong（失忆的风）回复于 2005-01-16 14:48:56 得分 0

这里有例子  
  http://blog.csdn.net/onlineTop

3 楼aifox（alvar--想上吊的鱼）回复于 2005-01-16 15:10:37 得分 0

 
        龙卷风的blog上有很多  
        找找看        
   
  set   objMenu=server.createobject("pse2m.ToolBar")  
  set   rst=objMenu.ToolBar(strsql)  
  Top

4 楼love4me（怡见友情）回复于 2005-01-16 16:15:26 得分 0

上面的办法，我试了，还是行不通，哪位高手能指点一下呢？！  
  QQ:57659930Top

5 楼love4me（怡见友情）回复于 2005-01-16 16:18:22 得分 0

本人用的是Windows   2003   Server   +   VB6.0(中文版)　和一台　Windows   XP   Professional   +   VB6.0(中文版)   的软件环境！Top

6 楼love4me（怡见友情）回复于 2005-01-16 16:42:46 得分 0

代码部分如下：  
  Private   MyApplication   As   Application  
  Private   MyRequest   As   Request  
  Private   MyResponse   As   Response  
  Private   MyServer   As   Server  
  Private   MySession   As   Session  
   
  Public   Function   OnStartPage(ByVal   sc   As   ScriptingContext)  
  Set   MyApplication   =   sc.Application  
  Set   MyRequest   =   sc.Request  
  Set   MyResponse   =   sc.Response  
  Set   MyServer   =   sc.Server  
  Set   MySession   =   sc.Session  
  End   Function  
   
  Public   Sub   hello()  
  MyResponse.Write   ("hello   baby,i   love   you!")  
  End   Sub  
   
  Public   Function   OnEndPage()  
  Set   MyApplication   =   Nothing  
  Set   MyRequest   =   Nothing  
  Set   MyResponse   =   Nothing  
  Set   MyServer   =   Nothing  
  Set   MySession   =   Nothing  
  End   Function  
   
  在工程中也引用了“Microsoft   Active   Server   Pages   Object   Library”，编译通过后，用regsvr32注册成功，但是在浏览时出现“缺少对象:   'Jiang'”(其中工程名：Jiang   类名：Meng)  
   
  网页内容如下：  
  Dim   rs  
  rs   =   Server.CreateObject("Jiang.Meng")  
  rs.hello  
  Set   rs   =   NothingTop

7 楼laihongbo524（风铃夜思雨）回复于 2005-01-16 16:44:57 得分 0

http://community.csdn.net/Expert/TopicView.asp?id=3701662Top

8 楼EEE555（亮亮）回复于 2005-01-16 16:51:59 得分 0

有没有不要组件支持的dll封装?Top

9 楼ASPserver（即便你从不绽放,淹没在花团似锦的芳香,她也会千百度中寻至你气息,只蓦然回首间,只回首间的一眼,你便知）回复于 2005-01-16 17:07:15 得分 0

upTop

10 楼kakalong（失忆的风）回复于 2005-01-16 17:13:03 得分 0

你注册你的DLL没有啊？Top

11 楼clcy（风雨）回复于 2005-01-16 17:17:57 得分 0

关注~~~~~~~~~~~~~~Top

12 楼cnetnet（虫子）回复于 2005-01-16 17:40:58 得分 0

用VB6把你的ASP代码编写并打包成DLL，然后上传到服务器注册，当然你要有服务器操作权才可以！  
  Top

13 楼xutao888（小丸子）回复于 2005-01-16 17:58:42 得分 0

呵呵~~我刚才看到一篇文章，并且测试通过  
   
      http://www.lougoo.com/Article/aspjs/zjkf/68.Html  
   
      楼主可以参考参考~~~~~~~Top

14 楼xinyu1225（天道酬勤）回复于 2005-01-16 19:19:07 得分 0

upTop

15 楼boythl（沙漠孤狐【工作，生活，编程】）回复于 2005-01-16 22:04:47 得分 0

我今天下午才用了ASP风火轮，感觉还不错，下载地址URL   http://asptransbuilder.nease.net/AspTransBuilder.rar  
  主页地址http://asptransbuilder.nease.net/index.htm  
  《将ASP写成DLL》http://asptransbuilder.nease.net/asp2.htm  
   
  顺利的讲我的整个站点给封装成了DLL，1.4M大，会点VB会更好使。。。Top

16 楼itera（恍恍惚惚浑浑噩噩）回复于 2005-01-16 23:03:11 得分 0

关注  
   
  Top

17 楼lpy123456（三流鬼）回复于 2005-01-16 23:15:02 得分 0

http://202.97.181.85:8012/detail.asp?blog_id=1&content_id=21#comment12  
   
  我的小站上有个相关的文件　你看看吧Top

18 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2005-01-16 23:22:01 得分 0

Dim   rs  
  set   rs   =   Server.CreateObject("Jiang.Meng")  
   
   
  Top

19 楼minghui000（沉迷网络游戏）回复于 2005-01-17 00:52:03 得分 0

把ASP代码在VB里编译  
   
  Top

20 楼zxsjs（拐角）回复于 2005-01-17 08:49:38 得分 0

目前最方便的方法就是用asp2dll把写的asp文件转为VB文件编成dll文件，最好懂一些VB技术：）Top

21 楼xrenwu（卖火柴的大男孩）回复于 2005-01-17 09:40:59 得分 0

upTop

22 楼windok2004（世界）回复于 2005-01-17 09:54:15 得分 0

学习Top

23 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-01-17 10:07:53 得分 0

使用组件封装数据库操作(一)    
     
  作者：未知   文章来源：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")    
     
  网站设计录入：admin         责任编辑：admin        
  Top

24 楼yb2008（中科商务网--ZKE360.COM）回复于 2005-01-17 10:08:29 得分 0

------------------  
  上面我已经测试过了,可以使用Top

25 楼znjgress（四空和尚）回复于 2005-01-17 10:14:26 得分 0

支持一下  
  顺便问一下，有没有ｖｂ．ｎｅｔ的作ｄｌｌ  
  谢谢Top

26 楼echina（IT少帅）回复于 2005-01-17 10:20:49 得分 0

不错呀！！！！！！！！！！！！！！！！！！Top

27 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-01-17 10:39:24 得分 0

大力支持！！！我也不知道能不能实现！！帮你UP到底Top

28 楼lawdoor（【风语者】）回复于 2005-01-17 10:56:48 得分 0

mark!Top

29 楼fl99（笨笨(QQ:250009333)）回复于 2005-01-17 11:04:23 得分 0

Private   MyApplication   As   Application  
  Private   MyRequest   As   Request  
  Private   MyResponse   As   Response  
  Private   MyServer   As   Server  
  Private   MySession   As   Session  
   
  Public   Function   OnStartPage(ByVal   sc   As   ScriptingContext)  
  Set   MyApplication   =   sc.Application  
  Set   MyRequest   =   sc.Request  
  Set   MyResponse   =   sc.Response  
  Set   MyServer   =   sc.Server  
  Set   MySession   =   sc.Session  
  End   Function  
   
  Public   Sub   hello()  
  MyResponse.Write   ("hello   baby,i   love   you!")  
  End   Sub  
   
  Public   Function   OnEndPage()  
  Set   MyApplication   =   Nothing  
  Set   MyRequest   =   Nothing  
  Set   MyResponse   =   Nothing  
  Set   MyServer   =   Nothing  
  Set   MySession   =   Nothing  
  End   Function  
   
  在工程中也引用了“Microsoft   Active   Server   Pages   Object   Library”，编译通过后，用regsvr32注册成功，但是在浏览时出现“缺少对象:   'Jiang'”(其中工程名：Jiang   类名：Meng)  
   
  网页内容如下：  
  Dim   rs  
  rs   =   Server.CreateObject("Jiang.Meng")  
  rs.hello  
  Set   rs   =   Nothing  
   
  Top

30 楼mymyal123（风之森）回复于 2005-01-17 11:11:51 得分 0

学习Top

31 楼shan1119（大天使，卐～解！）回复于 2005-01-17 18:42:59 得分 0

T0:znjgress(潇湘剑客)   (   )   信誉：100    
  有，在编译时可以选择类型Top

32 楼zzy0000（隐者）回复于 2005-01-17 19:55:45 得分 0

mark   学习Top

33 楼chinahuman（铁匠）回复于 2005-01-17 21:31:02 得分 0

最简单的就是用asp2dll  
  上面的讲的都差不多了，不过这样，效率并没有得到太大的提升，只是把代码封装起来了而已．  
  如果你的ＡＳＰ里面是直接把脚本和ＨＴＭＬ混在一起的话，那估计效果也不是很好．Top

34 楼AMinfo（茂仔）回复于 2005-01-17 22:20:42 得分 0

 
   
  实际就是做成ActiveX组件，这种方式适用于源码加密，  
  一、制作ActiveX组件，网上关于VB创建ActiveX的教程比较多；  
  二、注册组件，Regsrv32；  
  三、在ASP中嵌入ActiveX组件:Set   yourDLL=Server.CreateObject("your.activex")。Top

35 楼yuesongboy（温柔一刀）回复于 2005-01-18 10:01:42 得分 100

Option   Explicit  
   
  Dim   Conn   As   ADODB.Connection  
  Dim   Cmd   As   ADODB.Command  
  Dim   obj   As   Object  
  Private   Sub   Class_Initialize()  
          Set   Conn   =   New   ADODB.Connection  
          Set   Cmd   =   New   ADODB.Command  
  End   Sub  
   
  Private   Sub   Class_Terminate()  
  If   Cmd.State   =   Null   Then  
          Set   Cmd   =   Nothing  
  End   If  
  If   Conn.State   =   Null   Then  
          Conn.Close  
          Set   Conn   =   Nothing  
  End   If  
  End   Sub  
  Public   Function   SelectData(ProcName   As   Variant,   Id   As   Variant,   DateTable   As   Variant)   As   ADODB.Recordset  
  On   Error   GoTo   ErrNumber  
          Set   obj   =   New   MedicineLink.Link'声明字符串数据获得的对象  
          Conn.ConnectionString   =   obj.abc()'把数据源给conn  
          Set   obj   =   Nothing  
          Conn.Open  
       
      Cmd.ActiveConnection   =   Conn  
      Cmd.CommandType   =   adCmdStoredProc  
      Cmd.CommandText   =   ProcName  
       
      Cmd.Parameters.Append   Cmd.CreateParameter("@Id",   adInteger,   adParamInput,   4,   Id)  
      Cmd.Parameters.Append   Cmd.CreateParameter("@DateTable",   adVarWChar,   adParamInput,   1000,   DateTable)  
      Cmd.Execute  
       
      Set   SelectData   =   Cmd.Execute  
  Ext:  
      Exit   Function  
  ErrNumber:  
      Set   Cmd   =   Nothing  
      Set   SelectData   =   Nothing  
      GoTo   Ext  
  End   FunctionTop

36 楼oklhj（oklhj）回复于 2005-01-18 14:40:32 得分 0

upTop

相关问题

• .net
• vb6.0
• 文件
• 组件
• 代码
• asp
• 编译
• dcss
• myresponse
• nothingset

• 帖主：love4me
• yuesongboy

• Web开发类图书