Lav en .cs eller .vb fil afhængig af sprogvalg. Lav en klasse der indeholder dine funktioner. Kompiler filen med csc.exe eller vbc.exe, f.eks. "csc.exe /target:library minklasse.cs". Placer din kompilerede dll fil (minklasse.dll) i dit /bin bibliotek og brug den nu lystigt på inde .aspx sider!
Namespace MyNamespace Public Class MySharedFunctions Public Sub DoSomething(IIn As Integer) As Integer DoSomething = IIn + 1 End Sub End Class End Namespace
Gemmes i f.eks MyNamespace.vb, kompileres med "vbc /target:library MyNamespace.vb"
Nu har jeg lavet en MyNamespace.vb fil der ligger i roden af c: drevet, hva dææælen skal jeg skrive helt præcist i DOS-promten?
Her er koden:
Namespace MyNamespace Public Class MySharedFunctions Public Sub test(ByVal sender As System.Object, ByVal e As System.EventArgs) Response.Write("TestingsName") End Sub End Class End Namespace
Sub ConnectToDB() 'DATABASE CONNECTION Dim strConn As String = "driver=MySQL;Server=localhost;DB=parkwine;UID=parkwine;Pwd=parkwine;" objConn = New ODBCConnection(strConn) end sub
sub DBSelect(strSQL as String) If Not Page.IsPostBack Then Dim objDA As New ODBCDataAdapter Dim dvw As DataView Dim ds As New DataSet objDA = New ODBCDataAdapter(strSQL, objConn) objDA.Fill(ds, "selecter") dvw = ds.Tables("selecter").DefaultView ctrlRepeater.DataSource = dvw ctrlrepeater.DataBind() End If end sub
sub FillRepeater(repeater As Repeater, page As Page, strSQL as String) If Not page.IsPostBack Then Dim objDA As New ODBCDataAdapter Dim dvw As DataView Dim ds As New DataSet objDA = New ODBCDataAdapter(strSQL, objConn) objDA.Fill(ds, "selecter") dvw = ds.Tables("selecter").DefaultView repeater.DataSource = dvw repeater.DataBind() End If end sub
C:\INETPUB\WWWROOT>vbc.exe /t:library /out:close.dll closeDll.vb Microsoft (R) Visual Basic .NET Compiler version 7.00.9466 for Microsoft (R) .NET Framework version 1.00.3705 Copyright (C) Microsoft Corporation 1987-2001. All rights reserved.
C:\INETPUB\WWWROOT\closeDll.vb(1) : error BC30466: Namespace or type 'WebControl s' for the Imports 'System.Web.UI.WebControls' cannot be found.
Namespace MyNamespace Public Class MySharedFunctions Public Sub test(Page page) page.Response.Write("TestingsName") End Sub End Class End Namespace
Da klassen Page ligger i System.Web.UI og Response skal naturligvis kvalificeres med page da denne jo er en property heri. Det kan godt være du skal have /r:system.web.dll med i din kommandolinie til kompileren!
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.