Hej!

Har ett forum i asp/vbscript där det ingår en massa knappar t.ex. new post, new topics m.m.

Nu undrar jag om det finns en möjlighet att få dessa knappar som rollovers.

Ett script som gör alla dessa knappar rollovers.

Om du klickar på länken nedan kommer du till sidan och om du loggar in som
test/test kan du se knapparna jag menar.

Du måste klicka på forums/ sedan test forum.

http://www.esperanzadata.se/soop/default.asp

Är här någon med något förslag vore jag tacksam.

Jörgen

Det är bara att blanda in javascript där du i onmouseover-händelsen skiftar bild på respektive knapp.
I onmouseout-händelsen återställer du bilden till startbilden.

Antingen lägger du detta i bildlänken eller så skapar du en funktion som du anropar och däri styr allt detta.

Tack Mikael

Vet du var man kan få tag på ett sådant script, är en zombi på att koda.

Jörgen

Det kodar man själv :)

<img src="bild1.gif" onmouseover="this.src='bild2.gif';" onmouseout="this.src='bild1.gif';" />

Sen kan man göra samma sak i en funktion som man anropar och skickar med ett par parametrar(bildnamnet).

Hmm ok tack

Men om jag har en kod som ser ut som följer kan jag då skriva in ditt förslag på något sätt?

Kod.

If blnPollCreate Then
Response.Write ("")
End If

tack
Jörgen

Då lägger du till i bildlänken:

onmouseover=""this.src='"& strImagePath &"new_poll_over.gif';""
resp
onmouseout=""this.src='"& strImagePath &"new_poll.gif';""

Stort tack Mikael, men skulle du vilja visa mig hur den koden ser ut.
Som jag sa innan är jag en zombie på detta med kodning.

Jörgen

<code>If blnPollCreate Then
Response.Write ("")
End If</code>

Stort tack Anders för detta,
fungerade utmärkt.

Jörgen

Hej igen,
Om det inte är förmycket önskning av mig skulle någon vilja visa mej på denna koden också




Stort tack om någon vill detta

Jörgen

Det är inte för mycket begärt. Syftet med forumet är ju att hjälpa folk med dessa frågor.
Värre om det hela system det handlar om :)

Stort tack Mikael.
Jag vågar knappast fråga om det skulle gå med en förfrågan till.
Detta är en stor kod men den innehåller 7 images som jag också skulle vilja ha som rollover.

De är...profile_icon,search_sm,pm_icon,add_buddy_sm,edit_post_icon,delete_sm och move_icon

-------------------------------------------------------------------------------------------------------------------

If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePostsEvenRowColour) Else Response.Write(strTablePostsOddRowColour)
Response.Write(""" background=""" & strTablePostsBgImage & """ class=""text"">")
Response.Write(vbCrLf & " ")


'If the user has a hompeage put in a link button
If strAuthorHomepage <> "" Then Response.Write(vbCrLf & " ")


'If the private msg's are on then display a link to enable use to send them a msg
If blnPrivateMessages AND intGroupID <> 2 Then

Response.Write(vbCrLf & " ")
Response.Write(vbCrLf & " ")

End If

'If the logged in user is the person who posted the message or the forum administrator/moderator then allow them to edit or delete the message
If (lngLoggedInUserID = lngUserID AND Not(blnForumLocked) AND blnActiveMember AND Not(blnTopicLocked)) OR (blnAdmin OR blnModerator) Then

'Only let the user edit the post if they have edit rights
If blnEdit OR blnAdmin Then Response.Write(vbCrLf & " ")

'Only let a normal user delete there post if someone hasn't posted a reply
If (intTotalNumOfThreads = intThreadNo) OR (blnAdmin OR blnModerator) Then

'Only let the user delete the post if they have delete rights
If blnDelete OR blnAdmin Then Response.Write(vbCrLf & " ")
End If
End If
'response.write ""

'If the user is the forum admin or a moderator then let them move the topic to another forum
If blnAdmin OR blnModerator Then Response.Write(vbCrLf & " ")

--------------------------------------------------------------------------------------------------------------------

Det är ingen fara, bara att fråga på :)
Men nu har du sett exepel på hur man gör direkt i Asp-koden och hur du lägger in det i ren html-kod.
Prova själv nu på dem ställen där du vill ha samma funktioner. Det kommer du att lära dig mycket på :)

Blir det fel sen så hjälper vi(jag) dig såklart när tid ges!

OK, det har du rätt i Mikael.
Då gör jag ett försök

tack
Jörgen

Har ändrat två av bilderna och detta ser ut att fungera.

tack igen

Jörgen

Kunde fixa de 7 bilderna i förra koden
Men detta klarar jag ej av.

Någon

If intRecordPositionPageNum <> intTotalNumOfPages Then
Response.Write (vbCrLf & "")
End If

Jörgen

Vad händer när du kör den kod-snutten?

Vad som händer är att jag kommer till en sida där jag kan svara på posten
Om du går in här

http://www.esperanzadata.se/Soop

och loggar in med
test/test

och sedan går till forums och klickar dig framåt så förtår du bättre vad jag menar.


Jörgen

Jo det jag menade var att den kod du postade (vid första ögonkastet) såg rätt ut. Vad är det som blir fel när du kör den?

Ahh, förlåt mig, jag menade att denna inte fungerar vet ej varför.

Jörgen

Här är orgonalet

If intRecordPositionPageNum <> intTotalNumOfPages Then
Response.Write (vbCrLf & "")
End If

Testa...
<code>
If intRecordPositionPageNum <> intTotalNumOfPages Then
Response.Write (vbCrLf & "")
End If</code>

Nej tuvärr fungerade detta inte

Jörgen

Högerklicka på din sida som inte fungerar och ta "visa källa". Kopiera den HTML som genereras (inte hela sida utan bara koden för den länk som inte fungerar) och posta den här så kanske vi kan se vad som blir fel.

tror att det är detta

<table width="100%" border="0" cellspacing="0" cellpadding="4" align="center">
<tr>
<td width="70%"><span class="lgText"><img src="/Testsida/skins/default/forum_images/subject_folder.gif" alt="Subject" align="absmiddle"> Topic: Test Topic</span>
</td>
<td align="right">
</td>
</tr>
</table>

Nja det verkar inte rätt.

Iden kod jag ändrade åt dig så pekar länken på <code>forum_posts.asp?TID</code>

Men i den kod du postar nu så pekar länken på <code>poll_create_form.asp?FID

samt

post_message_form.asp?FID</code>

Hmm märkligt
Detta har jag i min fil fattar inte varför det blir olika när jag högerklickar

If intRecordPositionPageNum <> intTotalNumOfPages Then
Response.Write (vbCrLf & "")
End If

Kolla så det inte är cashen som spökar. Tryck Ctrl+F5 så sidan laddas utan att ta hänsyn till den.

Gör sedan en sökning i den genererade HTML-koden efter "forum_posts.asp?TID".

Märkligt, tömde cachen och sökte men fann inget
Kan det vara att jag kör sidan local kanske?

Jörgen

Konstigt när jag kollar min sida som ligger live så fungerar det på ett ställe.
Kan jag återkomma senare, måste fixa lite andra grejor.
Och så kan jag kolla livesidans källa hur det ser ut där.

Mvh
Jörgen

Ett STORT tack till Mikael och Anders för Er hjälp.
Lyckades med alla ändringar i koderna


Mvh
Jörgen

Varsågod och du har säkert lärt dig en del på att själv lösa det sista!

Inga problem, roligt att det löste sig. :)