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
Fórum › .NET
VB v ASP stárnce dělané V C#
![](img/forum_vlakno_help_vyreseno.png)
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>
A pak v App_Code vytvoř ty podsložky (VB_Kod a CS_Kod)
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"%>
A pak tam mám Label:
<asp:label id="BackLinks" runat="server"></asp:label>
A v té třídě mám v evetnu Pega_load toto:
Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Dim OutString As String
OutString = GetBackLinksData()
BackLinks.Text = OutString
End Sub
Ale nedělá to co má, nevypíše to obsah do prvku label. Co stím?
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>
Už jsem zkusil vše a jsem bezradný.
![](img/forum_nove_psp_new.png)
Přidej příspěvek
Toto téma je starší jak čtvrt roku – přidej svůj příspěvek jen tehdy, máš-li k tématu opravdu co říct!
Ano, opravdu chci reagovat → zobrazí formulář pro přidání příspěvku
×Vložení zdrojáku
×Vložení obrázku
×Vložení videa
Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/1.gif)
![](/img/smile/2.gif)
![](/img/smile/3.gif)
![](/img/smile/4.gif)
![](/img/smile/5.gif)
![](/img/smile/6.gif)
![](/img/smile/7.gif)
![](/img/smile/8.gif)
![](/img/smile/9.gif)
![](/img/smile/10.gif)
![](/img/smile/11.gif)
![](/img/smile/12.gif)
![](/img/smile/13.gif)
![](/img/smile/14.gif)
![](/img/smile/15.gif)
![](/img/smile/16.gif)
![](/img/smile/17.gif)
![](/img/smile/18.gif)
![](/img/smile/19.gif)
![](/img/smile/20.gif)
![](/img/smile/21.gif)
![](/img/smile/22.gif)
![](/img/smile/23.gif)
![](/img/smile/24.gif)
![](/img/smile/25.gif)
![](/img/smile/26.gif)
![](/img/smile/27.gif)
![](/img/smile/28.gif)
![](/img/smile/29.gif)
![](/img/smile/30.gif)
![](/img/smile/31.gif)
![](/img/smile/32.gif)
Uživatelé prohlížející si toto vlákno
Uživatelé on-line: 0 registrovaných, 13 hostů
Podobná vlákna
Hledáme programátora ASP, ASP.NET, MS SQL - Praha — založil Michaela Vorlová
Asp .net webhosting asp one co skopčit? — založil T.D.
Nový ASP.NET Webhosting a ASP.NET Freehosting — založil ASPIFY.com
ASP.NET / ASP.NET MVC — založil Otazka
Moderátoři diskuze