日期:2014-05-17  浏览次数:21060 次

求助??ASP怎么调用.NET写的DLL文件?
各位编程高手,现在急求一个问题,就是在ASP中如何调用.NET写的DLL文件.这个DLL文件是用ASP.NET所编的,所用语言为C#,有没有具体的实现语句,并且这个DLL文件是不是要放在某个具体的位置?
现求各位帮帮小弟,先谢谢了.



------解决方案--------------------
一楼回答正确。
下面是我从网络上拿来的文章,不过已经完全表达了我想要说的内容。
你看看应该会有帮助的:

写过一段时间的.net之后,再回过头来看asp,其实asp也同样可以像.net那样把代码进行封装的,感觉其实很爽的.但.net就是.net优势还是很明显的了,所以如果有些朋友想更深入的学习的话,还是选择.net.
不过今天还是把asp封装的问题写一写,我想网上也有很多这方面的文章,但在这里还是给大家写一个比较简单和实用的出来,便于大家上手,可能有些朋友特别是一些刚学这方面的朋友有所帮助,当然首页要准备的最重要的是vb工具了我用vb6.0

启动你的VB,选择ActiveX图标.这个图标可以在新建工程找到!VB会提供一个默认的工程名(project1)和类名(class1).我们会将这两个名字都改掉.在改名之前,请首先确认我们拥有Microsoft Active Server Pages Object Library,它在我们的程序非常有用.从菜单中选择 "工程 ",然后在其中选择 "引用 ",就会出现 "引用 "窗口
从中选择Microsoft Active Server Pages Object Library.

首先在vb中建一个类文件:工程名:exp

代码:

Dim MyApplication As Application
Dim MyRequest As Request
Dim MyResponse As Response
Dim MyServer As Server
Dim 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 Sub hellow()
MyResponse.Write ( "Hello World ")
End Sub

Public Sub google()
MyResponse.Write ( "ssssssssssss ")
End Sub

说明:ScriptingContext传送给我们的对象请我们使用.这个ScriptingContext包括了全部的ASP方法和属性.实现上,这使得我们有能力访问所有ASP的对象

当然这里还有一步就是生成exp.dll文件了,生成之后就可以用 regsvr32 d:/vb-asp/exp.dll 注册了.(很生要)

asp页面:

<%@ Language=VBScript%>
<HTML>
<HEAD>
<TITLE> Example 1 </TITLE>
</HEAD> <BODY>

<%
dim Obj
Set Obj = Server.CreateObject( "exp.aspdll ")
Obj.hellow
response.write( " <br> ")
Obj.google
%>

</BODY>
</HTML>

说明:

Set Obj = Server.CreateObject( "exp.aspdll ") 其中,exp为工程名,aspdll为类名.Set Obj = Server.CreateObject( "工程名.类名称 ")

测试通过.

===========================================================

对于更复杂的运用,大家可以通过这个实例向外扩展就可以了.



如:

Public Sub connstr2()
Set conn = MyServer.CreateObject( "ADODB.Connection ")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq= " & MyServer.MapPath( "codata.mdb ")

Set rs = conn.Execute( "select * from news ")
Do While Not rs.EOF
MyResponse.Write (rs( "news_title ") & " <br> ")
rs.MoveNext
Loop
rs.Close
Set conn = Nothing
End Sub

这个是用数据库连接的代码封装,当然这里要添加ADO引用的.