Avatar billede peder77 Nybegynder
07. juli 2003 - 12:28 Der er 16 kommentarer og
1 løsning

asp overførsel

Hej.

Jeg har hentet et asp script som overføre de seneste 5 emner fra mit forum til en liste, som består at emnernes overskrift og et link til emnet.
De links vil jeg gerne have åbnet i en flash film, jeg ved bare ikke hvad variablen er.
er der nogen som kan hjælpe med at få de links til at stå i flash og åbne dem i et nyt vindue?
Avatar billede peder77 Nybegynder
07. juli 2003 - 12:29 #1
her er asp koden
<!--#INCLUDE FILE="snitz/config.asp" -->
<!--#INCLUDE FILE="snitz/inc_functions.asp" -->
<%
Dim sQLQuery
Dim count
count = "0"
sQLQuery = "select FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_MESSAGE," & _
        " FORUM_TOPICS.T_DATE from FORUM_TOPICS" & _   
        " ORDER BY FORUM_TOPICS.TOPIC_ID DESC;"
Set dataConn = Server.CreateObject("ADODB.Connection")
dataConn.Open strConnString
Set RSlist = Server.CreateObject("ADODB.recordset")
Rslist.Open sqlQuery, dataConn
Do While Not RSlist.EOF AND count < "5"
response.write "<a href=""snitz/topic.asp?TOPIC_ID=" & RSlist("TOPIC_ID") & " "" " & " class=""pageLinks""  > Emne : " & VBNewline &_
    RSlist("T_SUBJECT") & "</a><BR>" & VBNewline           

                count = count + 1                             
RSlist.Movenext
Loop
%>
Avatar billede peder77 Nybegynder
07. juli 2003 - 12:29 #2
og

<%
Function RemoveHTML( strText )
            Dim nPos1   
        Dim nPos2
     
        nPos1 = InStr(strText, "<")   
        Do While nPos1 > 0       
            nPos2 = InStr(nPos1 + 1, strText, ">")       
            If nPos2 > 0 Then           
                strText = Left(strText, nPos1 - 1) & Mid(strText, nPos2 + 1)       
        Else           
            Exit Do       
        End If       
            nPos1 = InStr(strText, "<")   
        Loop       
           
        RemoveHTML = strText
End Function
%>
Avatar billede peder77 Nybegynder
07. juli 2003 - 12:39 #3
Jeg henter med:

on (press){
    loadVariablesNum ("http://www.minside.dk/overskrifter.asp",0);
}
i et tekst felt med variabel navnet nPos1
??
Avatar billede _k Nybegynder
07. juli 2003 - 22:23 #4
Kan ikke lige lyngennemskue dit asp-scripts output, men det SKAL være noget i retning af:
nPos1=whatever der er i variablen

Dvs. ikke noget mellemrum mellem lighedstegnet, variablenavnet og variablens indhold.

Det er bedre at loade ind i Flash med loadVars objektet. Det lyder fint, men gør det hele meget mere driftsikkert:

loadVarsTxt = new LoadVars();
loadVarsTxt.load("http://www.minside.dk/overskrifter.asp");
loadVarsTxt.onLoad = function (success){

if (success){
    navnetPåDitTekstfelt.htmlText = this.nPos1;
    }
else {
    navnetPåDitTekstfelt.htmlText = "Damn, det virker ikke :o(";
    }
}

(kald dit tekstfelt noget andet end nPos1, som jo også er navnet på den variabel du henter ind)
Avatar billede peder77 Nybegynder
08. juli 2003 - 08:25 #5
Hej _k

Det virker så langt at der nu står damn, det virker ikke. og det må jo siges at være en fremgang.
Jeg tror jeg mangler at finde ud af hvad variablen hedder?? det out put jeg mangler står her
www.discosurf.dk/overskrifter.asp
det er det samme resultat jeg gerne ville ende op med i flash filmen.
Jeg håber at der er nogen som kan hjælpe!!
Avatar billede _k Nybegynder
08. juli 2003 - 09:22 #6
Du skal først og fremmest have formateret dit asp-output lidt bedre! For at få det til at virke, skal Flash fodres med en variabel før alt dit html. Dvs. at du skal få dit dokument til at se nogenlunde sådan her ud når du kalder det med ovenstående url:

nPos1=<a href="snitz/topic.asp?TOPIC_ID=20 "  class="pageLinks"  > Emne :
Tester</a><BR>
<a href="snitz/topic.asp?TOPIC_ID=19 "  class="pageLinks"  > Emne :
Alrø GRUBBY</a><BR>
<a href="snitz/topic.asp?TOPIC_ID=18 "  class="pageLinks"  > Emne :
God sommer</a><BR>
<a href="snitz/topic.asp?TOPIC_ID=17 "  class="pageLinks"  > Emne :
Rettelse på en mandag!</a><BR>
<a href="snitz/topic.asp?TOPIC_ID=16 "  class="pageLinks"  > Emne :
Møllen fre-lør</a><BR>

...og så virker class ikke i Flash alligevel, så det kan du godt droppe.....
Avatar billede peder77 Nybegynder
08. juli 2003 - 09:59 #7
Hmm! ja jeg må tilstå at jeg ikke aner en skid om det hele.
Jeg har fundet asp scriptet igennem en anden her på eksperten!

Når class ikke virker i flash, kommer mine links så til at virke?
jeg har ingen ide om hvordan jeg får mit asp output formateret så det står perfekt.
Jeg forhøjer pointene til 150 for svar som kan hjælpe mig til at få overført de links til min flash film!
Avatar billede _k Nybegynder
08. juli 2003 - 10:19 #8
<!--#INCLUDE FILE="snitz/config.asp" -->
<!--#INCLUDE FILE="snitz/inc_functions.asp" -->
<%
Dim sQLQuery
Dim count
count = "0"
sQLQuery = "select FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_MESSAGE," & _
        " FORUM_TOPICS.T_DATE from FORUM_TOPICS" & _   
        " ORDER BY FORUM_TOPICS.TOPIC_ID DESC;"
Set dataConn = Server.CreateObject("ADODB.Connection")
dataConn.Open strConnString
Set RSlist = Server.CreateObject("ADODB.recordset")
Rslist.Open sqlQuery, dataConn
response.write "nPos1"
Do While Not RSlist.EOF AND count < "5"
response.write "<a href=""snitz/topic.asp?TOPIC_ID=" & RSlist("TOPIC_ID") & " "" " & " class=""pageLinks""  > Emne : " & VBNewline &_
    RSlist("T_SUBJECT") & "</a><BR>" & VBNewline           

                count = count + 1                             
RSlist.Movenext
Loop
%>

Har ikke mulighed for at teste selv.

Når du sender en class til Flash registrerer den det bare ikke, det grundlæggende link virker alligevel.

For at kunne snakke samme sprog, hvad kan du så selv? Forstå html? asp? databaser? actionscript? andre programmeringssprog?
Avatar billede _k Nybegynder
08. juli 2003 - 10:20 #9
....manglede lige et lighedstegn!

<!--#INCLUDE FILE="snitz/config.asp" -->
<!--#INCLUDE FILE="snitz/inc_functions.asp" -->
<%
Dim sQLQuery
Dim count
count = "0"
sQLQuery = "select FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_SUBJECT, FORUM_TOPICS.T_MESSAGE," & _
        " FORUM_TOPICS.T_DATE from FORUM_TOPICS" & _   
        " ORDER BY FORUM_TOPICS.TOPIC_ID DESC;"
Set dataConn = Server.CreateObject("ADODB.Connection")
dataConn.Open strConnString
Set RSlist = Server.CreateObject("ADODB.recordset")
Rslist.Open sqlQuery, dataConn
response.write "nPos1="
Do While Not RSlist.EOF AND count < "5"
response.write "<a href=""snitz/topic.asp?TOPIC_ID=" & RSlist("TOPIC_ID") & " "" " & " class=""pageLinks""  > Emne : " & VBNewline &_
    RSlist("T_SUBJECT") & "</a><BR>" & VBNewline           

                count = count + 1                             
RSlist.Movenext
Loop
%>
Avatar billede peder77 Nybegynder
08. juli 2003 - 10:48 #10
Jeg forstår html og tildels asp, actionscript. Databaser aner jeg ikke noget om:(
Jeg prøver det du har postet her:)
Avatar billede peder77 Nybegynder
08. juli 2003 - 10:52 #11
Det ser fanme ud til at virke:)
Det står lidt underligt men det virker!!!
Avatar billede peder77 Nybegynder
08. juli 2003 - 10:59 #12
Links virker også! hvor fedt.
Sidste ting!
se
www.discosurf.dk/asphenter.swf
Kan det laves så emnet: xxxx står på samme line? med mellem rum til næste emne?.
Jeg skyder på at det er noget med at fjerne
Emne : " & VBNewline &_  ??
Jeg ville bare have det lidt mere overskuelig.
Avatar billede _k Nybegynder
08. juli 2003 - 11:07 #13
Kanon at du får det til at du :o)

Du kan forsøge at fjerne (eller indsætte?) både <br> og VBNewline. Der er kun én måde at få det til at se perfekt ud på. Eksperimentér!!!

Held og lykke.....
Avatar billede peder77 Nybegynder
08. juli 2003 - 11:07 #14
ov ja også skal linkene åbne i _blank?
Avatar billede peder77 Nybegynder
08. juli 2003 - 11:17 #15
Så står det som jeg ønsker:) det jeg prøvede at sige før: kan jeg åbne likene i et nyt vindue?
Så skal du nok få dine points!
Avatar billede peder77 Nybegynder
08. juli 2003 - 17:09 #16
Nåh men _k her får du som fortjent.
Jeg er meget glad for hjælpen.
For at finde ud af det med vinduet har jeg oprettet et spm her:
http://www.eksperten.dk/spm/373919
tanx
peter
Avatar billede _k Nybegynder
08. juli 2003 - 22:02 #17
Mange tak for point :o) Regner med at du har fået kompetent svar på dit sidste spørgsmål...
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester