5.8w+
社区成员
- 全部
- .NET Framework
- ASP
- Web Services
- .NET互联网桌面应用
- VB
- 图表区
- 分析与设计
- 组件/控件开发
- AppLauncher
- 问答
请问Asp.Net(vb)编写网页，如何调用模块中声明的函数？
请问Asp.Net(vb)编写网页，如何调用模块中声明的函数？程序里可以直接调用，在网页中应该怎么调用啊？公用函数一般的都写在哪里？模块？
模块：
Module Main_mod
Public SqlConn As New SqlClient.SqlConnection
#Region "连接数据库"
Public Function open(ByVal StrServer As String) As Boolean
Try
Dim myConnectionString As String
myConnectionString = "Server=" + StrServer + ";user id=ck;pwd=123456;database=test"
SqlConn = New SqlClient.SqlConnection(myConnectionString)
SqlConn.Open()
Return True
Catch
Return False
End Try
End Function
#End Region
End Module
web.aspx中
Sub Page_Load(sender As Object,e As EventArgs)
If open("127.0.0.1") = True Then
Response.Write("数据库连接成功！")
Else
Response.Write("数据库连接失败！")
End If
End Sub
模块：
Module Main_mod
Public SqlConn As New SqlClient.SqlConnection
#Region "连接数据库"
Public Function open(ByVal StrServer As String) As Boolean
Try
Dim myConnectionString As String
myConnectionString = "Server=" + StrServer + ";user id=ck;pwd=123456;database=test"
SqlConn = New SqlClient.SqlConnection(myConnectionString)
SqlConn.Open()
Return True
Catch
Return False
End Try
End Function
#End Region
End Module
web.aspx中
Sub Page_Load(sender As Object,e As EventArgs)
If open("127.0.0.1") = True Then
Response.Write("数据库连接成功！")
Else
Response.Write("数据库连接失败！")
End If
End Sub
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
fenglik 2004-11-04
谢谢大家，已经搞定，原来引用自己这个网页程序的命名空间，就可以了！
cansum396 2004-11-04
直接用就好了
fenglik 2004-11-04
是不是都要把这些公用的类生成Dll，然后再引用进来，才可以调用？有没有方法不生成Dll可以直接调用啊？
fenglik 2004-11-03
To csdncb(iter) ：那你公用函数一般是写在哪里的啊
csdncb 2004-11-03
我觉得这条路不行吧，原因：
模块中的function编译后放到了bin\*.dll中，需要在服务器上运行。
如果是在服务器端还有可能，有客户端IE就很多说了？
仅猜想。
模块中的function编译后放到了bin\*.dll中，需要在服务器上运行。
如果是在服务器端还有可能，有客户端IE就很多说了？
仅猜想。
fenglik 2004-11-03
不在模块Main_mod中声明，而在web.aspx中直接声明，我可以成功调用，但放到模块Main_mod中，就说我open未声明！
我想把一些公用函数放在模块Main_mod中以供其它网页调用，但不知怎么调用。
Main_mod.open试过不行。
请问大家公用函数一般是写在哪里的啊？
我想把一些公用函数放在模块Main_mod中以供其它网页调用，但不知怎么调用。
Main_mod.open试过不行。
请问大家公用函数一般是写在哪里的啊？
saucer 2004-11-03
have you tried
Main_mod.open ?
it might not work across assemblies, then try
public class Main_Cls
Public shared SqlConn As New SqlClient.SqlConnection
Public Shard Function open(ByVal StrServer As String) As Boolean
..
end class
use
Main_Cls.open
Main_mod.open ?
it might not work across assemblies, then try
public class Main_Cls
Public shared SqlConn As New SqlClient.SqlConnection
Public Shard Function open(ByVal StrServer As String) As Boolean
..
end class
use
Main_Cls.open
westcars 2004-11-03
Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
TextBox1.Text = Calendar1.SelectedDate.ToString
End Sub
我的代码与你的一样，但是能成功！
TextBox1.Text = Calendar1.SelectedDate.ToString
End Sub
我的代码与你的一样，但是能成功！
westcars 2004-11-03
友情UP
lhcoolhacker 2004-11-03
你必须在aspx页面中先声明<%@ import Namespace="你函数所包含的Dll文件的名称空间" %>
然后就可以调用了.
然后就可以调用了.
fenglik 2004-11-03
up
fenglik 2004-11-03
up
