VB v ASP stárnce dělané V C# – .NET – Fórum – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

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

 

Hledá se programátor! Plat 1 800 € + bonusy (firma Boxmol.com)
plasmo0
Věrný člen
28. 9. 2008   #1
-
0
-

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

Nahlásit jako SPAM
IP: 82.150.166.–
Jak vzniká vynález? To všichni vědí, že je něco nemožné, a pak se objeví nějaký blázen, který neví, že je to nemožné, a udělá vynález. [br] Albert Einstein [br][br] http://plasmo.cz [br] http://bleskovaregistrace.cz [br] http://livetrading.cz
Reklama
Reklama
Chrasty
~ Redaktor
+4
Posthunter
28. 9. 2008   #2
-
0
-

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)

Nahlásit jako SPAM
IP: 193.179.196.–
plasmo0
Věrný člen
28. 9. 2008   #3
-
0
-

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?

Nahlásit jako SPAM
IP: 82.150.166.–
Jak vzniká vynález? To všichni vědí, že je něco nemožné, a pak se objeví nějaký blázen, který neví, že je to nemožné, a udělá vynález. [br] Albert Einstein [br][br] http://plasmo.cz [br] http://bleskovaregistrace.cz [br] http://livetrading.cz
plasmo0
Věrný člen
28. 9. 2008   #4
-
0
-

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ý.

Nahlásit jako SPAM
IP: 82.150.166.–
Jak vzniká vynález? To všichni vědí, že je něco nemožné, a pak se objeví nějaký blázen, který neví, že je to nemožné, a udělá vynález. [br] Albert Einstein [br][br] http://plasmo.cz [br] http://bleskovaregistrace.cz [br] http://livetrading.cz
Zjistit počet nových příspěvků

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žit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:

×Vložení videa

Aktuálně jsou podporována videa ze serverů YouTube, Vimeo a Dailymotion.
×
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo emailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové příspěvky (pouze pro přihlášené)
Sleduj vlákno a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.
Reaguješ na příspěvek:

Uživatelé prohlížející si toto vlákno

Uživatelé on-line: 0 registrovaných, 91 hostů

Podobná vlákna

ASP.NET / ASP.NET MVC — založil Otazka

ASP.NET — založil Petr Štastný

ASP.NET — založil Hoffik

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý