17 svar · 375 visningar · startad av crisse6
he he, tre frågor i ett ämne... vill hålla det coolt med att starta 3 nya..
jag har en meddelande funktion och undrar nu hur man gör för att få :) osånt i sina meddelanden?
jag har en sida där det står "Välkommen till groda.net användare!
sedan vill jag ha så att det står hur många NYA meddelanden man har samt hur många man är kompis med, det borde ju inte vara så svårt???
din första fråga är inte så klurig egentligen:
response.write replace(rs("meddelande")," :) ", "<img src=""smiley.gif"">")
de andra två frågorna är nog ganska lätta också, det gäller bara att ställa rätt sql-frågor. hur ser dina tabeller ut?
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
jag har ju en databas för kompisar som heter kompis.mdb med tabellen kompisar
fält:
ID | räknare
username | text
kompis | text
och meddelanden har jag mess.mdb och tabellen meddelande med fälten:
ID | räknare
fran | text
till | text
datum | datum/tid
meddelande | PM
status | text
rubrik | text
går det eller?
bara en fråga vart ska jag lägga den kodsnutten med smiliesarna?
joda, det är klart att det går. :)
men varför har du olika databaser? jag hade helt klart valt att lägga tabellerna i samma databas.
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=conn1.execute(strsql1)
response.write "antal polare: " & rs1("antalpolare")
strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"
set rs2=conn2.execute(strsql2)
response.write "antal nya meddelanden: " & rs2("antalnya")
nu gissar jag en aning, men du hajar väl? :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
när du ska skriva ut meddelandet. det är det response.write gör ju. :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
kan någon förklara hur jag ska lägga in först den koden som ersätter smilies med smiliebilder... jag ska lägga in det i denna kod:
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2
If rsMess.EOF then
%>
Hittade inte meddelandet!
<%
%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><%=rsMess("meddelande")%></font></td>
</tr>
</table>
<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")
Databas.Execute(SQL)
%>
och fråga två, dom kodsnuttarna du gav mig @nders som räknar meddelande samt polare, hur ska jag lägga in dom i denna kod, jag fattar inte :( :
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ""
%>
blir bara fel....
1: <%=rsMess("meddelande")%> använder du för att skriva ut meddelandet. ersätt det med <%=replace(rsMess("meddelande")," :) ", "<img src=""smiley.gif"">")%>, se till att ändra så teckenkombination till smileyn och sökväg till bilden lirar.
2:
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
set rs1=Databas.execute(strsql1)
polare = & rs1("antalpolare")
rs1.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar."
%>
funkar inte det :q
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
[Redigerat av @nders den 26 feb 2001]
@nders, dina koder funkar, iaf på det med att räkna kompisar, men man kan säga att det med smilie grejen funkar (inget felmeddelande) men den ersätter inte "smilie koden" till en bild :(
sedan, om jag vill räkna antal nya meddelanden på samma sida som räknar kompisar, hur gör man då, det är ju två helt olika meddelanden...????
hur ser smileysarna ut i databasen då? har du skrivit rätt sökväg till bilden?
- - - -
man lägger då bara de två frågorna på samma sida...
<%
'##### Lite databaskoppling
%>
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("kompis.mdb")
MdbFilePath2 = Server.MapPath("meddelanden.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
strsql1 = "select count(*) as antalpolare from kompisar where username = '" & session("inloggad") & "'"
strsql2 = "select count(*) as antalnya from meddelanden where till = '" & session("inloggad") & "' and status='nytt'"
set rs1=Databas.execute(strsql1)
set rs2=Databas2.execute(strsql2)
polare = rs1("antalpolare")
nyameddelanden = rs2("antalnya")
rs1.close
rs2.close
%>
<%
'######### Skriver ut vem som är inloggad
%>
<%
Response.Write"Välkommen in till grodan, " & Session ("Username") & ", du har " & polare & "kompisar och " & rs2("antalnya") & " nya meddelanden."
%>
borde inte någonting sånt funka?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
m@rtin:
response.write "<img src=""smiley.gif"">" resulterar i
<img src="smiley.gif">
i html-koden. var är felet?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
jaktjanne: ja, eller nej, lite beroende på hur man ser det. ;)
här har detta diskuterats: http://cgi.webforum.nu/wf/Forum11/HTML/003004.html
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
kan någon förklara hur man gör för att få sitt skript att ersätta mer än bara en smilie, jag vill liksom ha typ glad, sur, cool osv... snälla hjälp mig, min fördelsedag å allt :) här är min kod jag vill ha in det på, ni ser nog var jag har koden för EN ersättning :q
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2
If rsMess.EOF then
%>
Hittade inte meddelandet!
<%
%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><%response.write replace(rsMess("meddelande"),":)", "<img src=""glad.gif"">")%>
</font></td>
</tr>
</table>
<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")
Databas.Execute(SQL)
%>
joda, eftersom jag inte fick någe mail av dig, så, here goes:
<%
function skapaSmileyGubbar (strMeddelande)
tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
skapaSmileyGubbar = tmp
end function
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsMess = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("mess.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "SELECT * From meddelande WHERE id =" & request.querystring("id") & ";"
rsMess.Open SQL, Databas, 1, 2
If rsMess.EOF then
%>
Hittade inte meddelandet!
<%
%>
<% End If %>
<font face="Verdana" size="1" color="white">
<%
'##### Vi skriver här ut rubrik, vem som skickade samt meddelandet
%>
<b>Ämne:</b> <%=rsMess("rubrik")%><br>
<b>Från:</b> <a href="blikompis.asp?username=<%=rsMess("fran")%>"><%=rsMess("fran")%></a><br>
<b>Meddelande:</b><br><br></font>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#F7F7E7" style="border-width:1; border-color:black; border-style:solid;">
<tr>
<td width="382"><p><font face="Verdana" size="1" color="black"><% response.write [b]skapaSmileyGubbar(rsMess("meddelande"))[/b] %>
</font></td>
</tr>
</table>
<% rsMess.Close %>
<%
SQL = "UPDATE meddelande SET status = 'Läst' WHERE id =" & request.querystring("id")
Databas.Execute(SQL)
%>
ändra i funktionen skapaSmileyGubbar så du får dit din teckenkombination och din bildsökvägar, så borde det fungera. :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
[Redigerat av @nders den 27 feb 2001]
gött @nders, det funkar utmärkt!
en fråga, jag presenterar själva meddelandet i en tabellrad, men det blir inga radbrytningar om man gjorde det i formuläret, eftersom den gör ingen radbrytning för än den uppnått tabellens bredd.... någon?
ändra funktionen till så här:
function skapaSmileyGubbar (strMeddelande)
tmp = replace (strMeddelande, " :) ", "<img src=""gladgubbe.gif"">")
tmp = replace (tmp, " ;D ", "<img src=""supergladgubbe.gif"">")
tmp = replace (tmp, " :e ", "<img src=""garvgubbe.gif"">")
[b]tmp = replace(tmp, vbcrlf, "<br>")[/b]
skapaSmileyGubbar = tmp
end function
mvh,
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
[Redigerat av @nders den 27 feb 2001]