请问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 RegionEnd 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

解决方案 »

  1.   

    have you triedMain_mod.open ?it might not work across assemblies, then trypublic class Main_Cls
        Public shared SqlConn As New SqlClient.SqlConnection    Public Shard Function open(ByVal StrServer As String) As Boolean
        ..end classuse 
    Main_Cls.open
      

  2.   

    不在模块Main_mod中声明,而在web.aspx中直接声明,我可以成功调用,但放到模块Main_mod中,就说我open未声明!
    我想把一些公用函数放在模块Main_mod中以供其它网页调用,但不知怎么调用。
    Main_mod.open试过不行。
    请问大家公用函数一般是写在哪里的啊?
      

  3.   

    我觉得这条路不行吧,原因:
    模块中的function编译后放到了bin\*.dll中,需要在服务器上运行。
    如果是在服务器端还有可能,有客户端IE就很多说了?
    仅猜想。
      

  4.   

    To csdncb(iter) :那你公用函数一般是写在哪里的啊
      

  5.   

    你必须在aspx页面中先声明<%@ import Namespace="你函数所包含的Dll文件的名称空间" %>
    然后就可以调用了.
      

  6.   

    Private Sub Calendar1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
            TextBox1.Text = Calendar1.SelectedDate.ToString    End Sub
    我的代码与你的一样,但是能成功!
      

  7.   

    是不是都要把这些公用的类生成Dll,然后再引用进来,才可以调用?有没有方法不生成Dll可以直接调用啊?