Notifikationer

Markér alle som læst Log ud

integra2ren Nybegynder

07. marts 2001 - 11:21 Der er 24 kommentarer og
1 løsning

Byt billede

Er det muligt at lave en funktion der bytter 2 billeder ud med hinanden i ASP. Skal fungere på samme måde som et swapimage funktion i javascript. Funktionen skal sættes igang nær man klikker på billedet.

Synes godt om

spectual Nybegynder

07. marts 2001 - 11:24 #1

Hvorfor vil du lave det i asp? Er det ikke godt nok at lave det i javascript?

Det ville aldrig komme til at fungere på helt samme måde, fordi ASP er et server-baseret programmeringssprog.

Synes godt om

nute Nybegynder

07. marts 2001 - 11:29 #2

enig med spectual...holder ikke dette fx:

<img src=\"etbilde.gif\" onClick=\"this.src=\'etannetbilde.gif\';\">

man kan ikke benytte ASP til realtime oppdateringer...

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 11:37 #3

Problemet er at det skal bygges ind i en string i ASP og jeg har lidt problemer med at få det til at virke. Jeg tror måske at det har noget at sige at den pågældende string ligger før <script>swapImage</script> som ligger i head.

Se http://www.eksperten.dk/spm/54848

Synes godt om

nute Nybegynder

07. marts 2001 - 11:43 #4

kan vi få se noe kode....jeg forstår ikke helt hva ditt problem er...

Synes godt om

spectual Nybegynder

07. marts 2001 - 11:50 #5

Jeg kan overhovedet ikke forstå dit problem. Får du en fejlmeddelse? Hvad er det der ikke virker?

Kan vi få noget helt konkret?

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 11:55 #6

Jeg har et forum som fungerer fint. Det der er problemet er når svarene skal vises skal en lille mappe skifte fra en lukket mappe til åben mappe.

http://www.integra2ren.dk/aspforum/viewmsg.asp?id=419&ForumID=8

Koden til denne side ser sådan ud:


<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN

strSQL = \"SELECT * FROM Forums WHERE (ID = \" & Request(\"ForumId\") & \")\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intForumID = rs(\"ID\")
strForum = rs(\"Forum\")
strDescription = rs(\"Description\")
End If

strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ID = \" & Request(\"Id\") & \") AND (OrgThread = True)\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intMessageID = rs(\"ID\")
strSubject = Server.HTMLEncode(rs(\"Subject\"))
strName = Server.HTMLEncode(rs(\"Name\"))
strEmail = Server.HTMLEncode(rs(\"Email\"))
dtmFormDate = rs(\"FormDate\")
dtmFormTime = rs(\"FormTime\")
strComment = Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \")
End If

strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ReplyId = \" & Request(\"Id\") & \") AND (OrgThread = False) ORDER BY ID DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSvar = strSvar & \"<li><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=images/folder_1.gif width=19 height=16 border=0></a> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \"  \"
End If
rs.MoveNext
Loop
End If
rs.Close
myConn.Close
Set myConn = Nothing
%>
<html>

<head>
<title>ASPForum [ Læs besked ]</title>

</head>

<body bgcolor=\"#ffffff\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#FFFFFF\"
topmargin=\"2\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"2\">
<div align=\"center\"><center>

<table border=\"0\" width=\"400\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\" height=\"176\">
<tr>
<td colspan=\"3\" bgcolor=\"#efefef\">Forum: <%=strForum%> - <%=strSubject%> </td>
</tr>
<tr>
<td valign=\"top\" colspan=\"2\">
<div align=\"center\"><a href=\"default.asp\">[Indgang]</a>
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\">[Emner]</a>
</div><hr>
</td>
</tr>
<tr>
<td valign=\"top\" width=\"281\">Emne:</td>
<td valign=\"top\" width=\"119\">Indlæg:</td>
</tr>
<tr>
<td colspan=\"3\" height=\"113\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\">
<tr>
<td width=\"250\" align=\"left\"><%=strSubject%></td>
<td width=\"150\" rowspan=\"2\" valign=\"top\" align=\"right\" >
<table width=\"120\" border=\"0\">
<tr>
<td><%=dtmFormDate%>-<%=dtmFormTime%></td>
</tr>
<tr>
<td><%=strName%></td>
</tr>
<tr>
<td><a href=\"mailto:<%=strEmail%>\"><img src=\"images\\brev.gif\" width=\"18\" height=\"11\" border=\"0\"></a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"250\" valign=\"top\" height=\"57\" ><%=strComment%> 
<a href=\"forumpost.asp?ForumId=<%=intForumID%>&MessageId=<%=intMessageID%>\">[Besvar]</a></td>
</tr>
<tr>
<td align=\"left\" colspan=\"2\">
<hr noshade size=\"1\" color=\"#000000\">
</td>
</tr>
<tr>
<td bgcolor=\"#efefef\" align=\"left\" colspan=\"2\"><%=strSvar%></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
</body>
</html>

Som i kan se bliver svarene vist via strSvar = strSvar & \"........

Der i er linket der viser svaret under overskriften og her har jeg forsøgt at få den lille mappe byttet med den åbne. Men det virker ikke.

Synes godt om

nute Nybegynder

07. marts 2001 - 12:05 #7

en enkel måte er jo å gjøre sånn :

if( len(request(\"Showsub\")) > 0 ) then
\'skriv ut åpen folder bilde
else
\'skriv ut lukket folder bilde
end if

i den linje du skriver ut ditt bilde

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:13 #8

Hvor og hvordan sætter jeg det ind i ovenstående kode??

Synes godt om

nute Nybegynder

07. marts 2001 - 13:19 #9

du kan lage din loop sånn:

Do While Not rs.EOF
imgSrc = \"images/folder_1.gif\" \' Lukket folder
if( request(\"Showsub\") == rs(\"ID\") ) then
imgSrc = \"images/folder_2.gif\" \' åpen folder
end if
strSvar = strSvar & \"<li><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=\" & imgSrc & \" width=19 height=16 border=0></a> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \"  \"
End If
rs.MoveNext
Loop

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:21 #10

Tester det lige

Synes godt om

nute Nybegynder

07. marts 2001 - 13:23 #11

prøv

if( CInt(request(\"Showsub\")) == rs(\"ID\") ) then

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:29 #12

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/aspforum/viewmsg.asp, line 32

if( CInt(request(\"Showsub\")) == rs(\"ID\") ) then
------------------------------^

Synes godt om

nute Nybegynder

07. marts 2001 - 13:32 #13

hmmm....

skriv

response.write request(\"Showsub\") & \" \" & rs(\"ID\")

før din if clause for å se om de inneholder noen verdier...

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:35 #14

Microsoft VBScript compilation error \'800a03ea\'

Syntax error

/aspforum/viewmsg.asp, line 33

if( request(\"Showsub\") == rs(\"ID\") ) then
------------------------^

Synes godt om

nute Nybegynder

07. marts 2001 - 13:36 #15

du skal jo selvfølgelig ikke bruke ==, men kun =...

(( jeg mixer med Java....sorry ))

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:38 #16

Du kan se resultatet på:

http://www.integra2ren.dk/aspforum/viewmsg.asp?id=419&ForumID=8

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:41 #17

Nu ser min loop sådan her ud:

Do While Not rs.EOF
imgSrc = \"images/folder_1.gif\"
if( request(\"Showsub\") = rs(\"ID\") ) then

imgSrc = \"images/folder_2.gif\"
end if
strSvar = strSvar & \"<li><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=\" & imgSrc & \" width=19 height=16 border=0></a> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \"  \"
End If
rs.MoveNext
Loop

Men det virker ikke rigtigt

Synes godt om

nute Nybegynder

07. marts 2001 - 13:44 #18

la merke til en ting...

bytt ut:

if( request(\"Showsub\") = rs(\"ID\") ) then

med:

if Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) then

også må du sette inn de rette bildene (åpen folder bilde der jeg har lagt inn en kommentar som sier \"\'åpen folder\")

(( dette begynner å bli verdt mye mer enn de 30 points du har oppgitt ))

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:47 #19

Du skal nok blive belønnet. hvis det kommer til at virke. Nu prøver jeg det der.

Synes godt om

nute Nybegynder

07. marts 2001 - 13:50 #20

du kan jo ( for å sjekke at den går inn i din if clause ) skrive noe ut:

response.write \"HURRAY\"

/nute

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:52 #21

Er det rigtigt sådan her?:

o While Not rs.EOF
imgSrc = \"images/folder_1.gif\"
if Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) then
imgSrc = \"images/folder_2.gif\"
end if
strSvar = strSvar & \"<li><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\" ><img src=\" & imgSrc & \" width=19 height=16 border=0></a> (\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
strSvar = strSvar & \" \" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\" \") & \"  \"
End If
rs.MoveNext
Loop

Jeg forstår ikke det der med at sætte billederne ind! Hvordan får jeg dem til at skifte

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:54 #22

Nu virker det:

http://www.integra2ren.dk/aspforum/viewmsg.asp?Id=419&ForumID=8&Showsub=437

Tusinde tak du!

Hvor mange piont kunne du tænke dig?

Synes godt om

integra2ren Nybegynder

07. marts 2001 - 13:55 #23

Du får 60. Håber det er ok

Synes godt om

nute Nybegynder

07. marts 2001 - 13:55 #24

det er minst verdt 60-100 points for tiden det har tatt....

/nute

Synes godt om

nute Nybegynder

07. marts 2001 - 13:56 #25

i orden...

takker

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS