VB v ASP stárnce dělané V C# – .NET – Fórum – Programujte.com

Ahoj, jde vůbec použít Vb kód do stránky kterou mám psanou v C#? Pokud ano, jak to udělám? Díky

Můžeš si vytvořit podsložky v App_Code, zaregistrovat je ve web.config a kódy v C# a VB.NET pak spolu můžou komunikovat.

Takhle uprav web.config

[code:xml]

<configuration>

    <system.web>

        <compilation>

            <codeSubDirectories>

                <add directoryName="VB_Kod"/>

                <add directoryName="CS_Kod"/>

            </codeSubDirectories>

        </compilation>

    </system.web>

</configuration>

Ještě se zeptá, když v tý třídě ve VB budu chtít odkázat na prvek label na stránce jak to udělám?

Na defaul.aspx tu třídu načtu takto´:

<%@ Page Language="VB" CodeFile="App_Code/VB_Kod/Class2.vb"%>

<asp:label id="BackLinks" runat="server"></asp:label>

Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim OutString As String

        OutString = GetBackLinksData()

        BackLinks.Text = OutString

    End Sub

DObře půjdu k věci. POradí někdo jak mám vložit do má asp stránky psané v C# tenhle kód?:

<SCRIPT language="VB" runat="server">



' ********************************************************************

' Paste this block of code on your web page where you would like text 

' links to be displayed. This code will dynamically add and remove text 

' links on your web page according to your BackLinks.com settings.

' ********************************************************************



' The following variable defines whether links are opened in a new window

' (1 = Yes, 0 = No)

Const OpenInNewWindow As Byte = 1

' This variable defines the timeout for the script, in seconds

Const TimeOut As Byte = 30



Const UserKey As String = "DP66-503M-A2OU"



Public Function GetBackLinksData() As String

    Dim TextEncoding As System.Text.Encoding

    Dim Reader As System.IO.StreamReader

    Dim Writer As System.IO.StreamWriter

    Dim WebResponce As Net.WebResponse

    Dim IOReceive As System.IO.Stream

    Dim WebRequest As Net.WebRequest

    Dim strPostingString As String

    Dim LinkUrl As String

    Dim BLURL As String

    

    If Request.ServerVariables("HTTPS").ToString() = "on" Then 

        LinkUrl="https://" 

    Else 

        LinkUrl="http://" 

    End If



    'LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("REQUEST_URI").ToString()



    LinkUrl = LinkUrl & Request.ServerVariables("HTTP_HOST").ToString() & Request.ServerVariables("SCRIPT_NAME").ToString()

    If Request.ServerVariables("QUERY_STRING").ToString() <> "" Then 

        LinkUrl = LinkUrl & "?" & Request.ServerVariables("QUERY_STRING").ToString() 

    End If



    LinkUrl = server.URLencode(LinkUrl)

    

    strPostingString = "&Key=" & UserKey

    strPostingString = strPostingString & "&LinkUrl=" & LinkUrl

    strPostingString = strPostingString & "&OpenInNewWindow=" & OpenInNewWindow

    

    BLURL = "http://www.backlinks.com/engine.php?"  & strPostingString



    Try

        WebRequest = Net.WebRequest.Create(BLURL)

        WebRequest.Method = "GET"

        WebRequest.Timeout = TimeOut * 1000

        WebResponce = WebRequest.GetResponse

        IOReceive = WebResponce.GetResponseStream

        TextEncoding  = System.Text.Encoding.GetEncoding("utf-8")

        Reader = New System.IO.StreamReader(IOReceive, TextEncoding)

        GetBackLinksData = Reader.ReadToEnd()

        If Not WebResponce Is Nothing Then

            WebResponce.Close()

        End If

        Catch exError As Exception

            Return exError.Message

    End Try

End Function



Public Sub Page_Load(sender As Object, e as System.EventArgs)

    Dim OutString As String

    OutString = GetBackLinksData()

    BackLinks.Text = OutString



End Sub

</SCRIPT>



<asp:label id="BackLinks" runat="server"></asp:label>