webForumDet fria alternativet
Logga in / Bli medlem

Vad e fel????

15 svar · 419 visningar · startad av Firegamez.com

Firegamez.comMedlem sedan juli 2002231 inlägg
#1

Jag har en kod som ersätter text mot bild! Den fungerar i forumet, men inte i Gästböckerna! Vad e fel??? Den fungerar inte överhuvud taget i Gästböckerna! Normalt ifall det e fel sök väg så blir bilderna ett stort X! Men inte här! Här är koden:

<%
Function Smiley(text)

text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")

Response.Write text

End Function
%>

Jag får inge fel meddelande heller! Hoppas ni vet va som e fel, Tog den direkt från mitt forum, ändrade bara sök vägarna!

@ndersMedlem sedan juni 200032 969 inlägg
#2

Hur kallar du på funktionen?

Du borde inte ha en response.write inne i funktionen, utan endast låta funktionen returnera ett värde, strängen text.

<%
Function Smiley(text)
text = "" & text ' <-- lade till för att kunna tillåta nullvärden
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")

Smiley = text

End Function
%>

Och för att skriva ut den färdigersatta texten:

Response.write Smiley(rs("fältet"))

Mvh,

Firegamez.comMedlem sedan juli 2002231 inlägg
#3

De funkar inte! Så här ser koden ut nu??? Har jag satt de fel????

<%
Function Smiley(text)
text = "" & text ' <-- lade till för att kunna tillåta nullvärden
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")

Smiley = text

Response.write Smiley(rs("fältet"))

End Function
%>
@ndersMedlem sedan juni 200032 969 inlägg
#4

Du ska inte ha response.write inne i funktionen, utan där du vill skriva ut värdet. Enligt mitt tidigare inlägg alltså.

Funktionen lägger du överst på sidan, exempelvis, och anropet till den där du loopar igenom ditt recordset.

mvh,

Firegamez.comMedlem sedan juli 2002231 inlägg
#5

Så här se hela koden ut där jag har allt inne! Flytta runt så som ni tycker de ska ligga!

!-- #include file="adovbs.inc" -->
<!-- #include file = "delaText.inc" -->
<% Session.LCID = 1053 %>
<%

If Request.Querystring("tillid")="" & Session("id") Then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=*******"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>
[b]
<%
Function Smiley(text)
text = "" & text ' <-- lade till för att kunna tillåta nullvärden
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")

Smiley = text

Response.write Smiley(rs("fältet"))

End Function
%>
[/B]

<html>
<head>
<title>breather - member</title>

<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<script language="JavaScript1.2">

function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}

function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}

</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck() 
{
        if (document.form1.text.value == "") 
        {
        alert("Skriv nått innan du skickar är du snäll");
        return false;
        }
}
</SCRIPT>
</head>

<body bgcolor="#989DA9" background="../back.jpg"><% Session.LCID = 1053 %>

<table width="100%" height="100%" border="0" cellspacing="4" cellpadding="2"><tr valign="top"> 
<td valign="top">
<% Do Until RecSet.EOF %>
<table border="0" width="100%" cellspacing="1" cellpadding="0"><tr>
<td height="10" width="100%" bgcolor="#FF7E40" style="border: 1px solid Black"><a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><%=RecSet("namn")%></a> | 
<a href="read_gb.asp?tillid=<%=RecSet("Person_id")%>">Svara</a> | 
<a href="bort.asp?vad=tabort&id=<%=RecSet("id")%>">Tabort</a> | <%=RecSet("datum")%>
</td></tr><tr valign="top"><td width="100%" style="border: 1px solid Black" bgcolor="#BBC0CC">
<table border="0" width="100%" cellspacing="0" cellpadding="2"><tr>
  <td bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><img src="<%=RecSet("pressbild")%>" width="35" align="left" height="45" border="1" style="filter:alpha(opacity=75)" onMouseover="high(this)" onMouseout="low(this)"></a><%=delaText(RecSet("text"))%>
</td></tr></table>
</td></tr></table><br>
        <%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

</td>
<td  width="165" align="right" bgcolor="#FF7E40" style="border: 1px solid Black">
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>" onSubmit="return formCheck()">
<input type="hidden" name="pressbild" value="<%=Session("pressbild")%>">
<textarea name="text" cols="30" rows="6"></textarea>
<div align="right"><input type="submit" name="Submit" value="Skicka"></div>
</form><br>
</td>

</tr></table>

</body>
</html>

<% Else

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=******"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>
<html>
<head>
<title>breather - member</title>

<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<script language="JavaScript1.2">

function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}

function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}

</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck() 
{
        if (document.form1.text.value == "") 
        {
        alert("Skriv nått innan du skickar är du snäll");
        return false;
        }
}
</SCRIPT>
</head>

<body bgcolor="#989DA9" background="../back.jpg">
<table width="100%" height="100%" border="0" cellspacing="4" cellpadding="2"><tr valign="top"> 
<td valign="top">

<% Do Until RecSet.EOF %>
<table border="0" width="100%" cellspacing="1" cellpadding="0"><tr>
<td height="10" width="100%" bgcolor="#FF7E40" style="border: 1px solid Black"><a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><%=RecSet("namn")%></a> | 
<a href="read_gb.asp?tillid=<%=RecSet("Person_id")%>">Svara</a> | 
<%=RecSet("datum")%></td></tr><tr valign="top"><td width="100%" style="border: 1px solid Black" bgcolor="#BBC0CC">
<table border="0" width="100%" cellspacing="0" cellpadding="2"><tr>
  <td bgcolor="#FFFFFF">
<a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><img src="<%=RecSet("pressbild")%>" width="35" align="left" height="45" border="1" style="filter:alpha(opacity=75)" onMouseover="high(this)" onMouseout="low(this)"></a><%=delaText(RecSet("text"))%>
</td></tr></table>
</td></tr></table><br>
        <%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</td>
<td width="165" align="right" bgcolor="#FF7E40" style="border: 1px solid Black">
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>" onSubmit="return formCheck()">
<input type="hidden" name="pressbild" value="<%=Session("pressbild")%>">
<textarea name="text" cols="30" rows="6"></textarea>
<div align="right"><input type="submit" name="Submit" value="Skicka"></div>
</form><br>
</td>

</tr></table>
</body>
</html>
<% End If %>
PeeerMedlem sedan mars 20025 907 inlägg
#6

Med reservation för ev. fel!

!-- #include file="adovbs.inc" -->
<!-- #include file = "delaText.inc" -->
<% Session.LCID = 1053 %>
[b]
<%
Function Smiley(text)
text = "" & text ' <-- lade till för att kunna tillåta nullvärden
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")

Smiley = text

End Function
%>
[/B]

<%

If Request.Querystring("tillid")="" & Session("id") Then

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";pwd=*******"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<html>
<head>
<title>breather - member</title>

<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<script language="JavaScript1.2">

function high(which2){
theobject=which2
highlighting=setInterval("highlightit(theobject)",50)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=75
}

function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=5
else if (window.highlighting)
clearInterval(highlighting)
}

</script>
<SCRIPT LANGUAGE="JavaScript">
function formCheck() 
{
        if (document.form1.text.value == "") 
        {
        alert("Skriv nått innan du skickar är du snäll");
        return false;
        }
}
</SCRIPT>
</head>

<body bgcolor="#989DA9" background="../back.jpg"><% Session.LCID = 1053 %>

<table width="100%" height="100%" border="0" cellspacing="4" cellpadding="2"><tr valign="top"> 
<td valign="top">
<% Do Until RecSet.EOF %>
<table border="0" width="100%" cellspacing="1" cellpadding="0"><tr>
<td height="10" width="100%" bgcolor="#FF7E40" style="border: 1px solid Black"><a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><%=RecSet("namn")%></a> | 
<a href="read_gb.asp?tillid=<%=RecSet("Person_id")%>">Svara</a> | 
<a href="bort.asp?vad=tabort&id=<%=RecSet("id")%>">Tabort</a> | <%=RecSet("datum")%>
</td></tr><tr valign="top"><td width="100%" style="border: 1px solid Black" bgcolor="#BBC0CC">
<table border="0" width="100%" cellspacing="0" cellpadding="2"><tr>
  <td bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<a href="whois.asp?checkid=<%=RecSet("Person_id")%>" target="front"><img src="<%=RecSet("pressbild")%>" width="35" align="left" height="45" border="1" style="filter:alpha(opacity=75)" onMouseover="high(this)" onMouseout="low(this)"></a>[b]<%=delaText(Smiley(RecSet("text")))%>[/b]
</td></tr></table>
</td></tr></table><br>
        <%
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

</td>
<td  width="165" align="right" bgcolor="#FF7E40" style="border: 1px solid Black">
<form name="form1" method="post" action="write_gb.asp?tillid=<%=Request.QueryString("tillid")%>" onSubmit="return formCheck()">
<input type="hidden" name="pressbild" value="<%=Session("pressbild")%>">
<textarea name="text" cols="30" rows="6"></textarea>
<div align="right"><input type="submit" name="Submit" value="Skicka"></div>
</form><br>
</td>

</tr></table>
</body>
</html>
<% End If %>
Firegamez.comMedlem sedan juli 2002231 inlägg
#7

Tack för att ni försökte hjälpa mig! Men jag fick det ej att funka! Jag fixar det lite senare! Tack ändå! :D

mozillaMedlem sedan juli 20011 084 inlägg
#8

text = Replace(text,vbCrLf,"<br>")
text = Replace(text,":)","<img src=""forum/smily-smajl.gif"">")
text = Replace(text,":(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":-(","<img src=""forum/smily-sur.gif"">")
text = Replace(text,":D","<img src=""forum/smily-bigsmajl.gif"">")
text = Replace(text,";-)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,";)","<img src=""forum/smily-blink.gif"">")
text = Replace(text,":o","<img src=""forum/simly-ropa.gif"">")
text = Replace(text,":(","<img src=""forum/frown.gif"">")
text = server.HTMLEncode(text)

gör inte de om alla tecken...? borde inte den ligga sist så den inte gör om ";" till &_#59; osv?

PeeerMedlem sedan mars 20025 907 inlägg
#9

Nää... då gör den ju om < till &lt;. Det skulle ju leda till att bildtaggarna inte funkar.
Görs verkligen ; om till &_#59;?? :q

HTMLEncode ska stå överst!! :stud

LAMPMedlem sedan mars 2002777 inlägg
#10

Denna använder jag inaction och är bara hämtad med klipp och klista, alltså fungerande:

Du får byta tull dina "gubbar"

Function Smilie(txt)
txt = Server.HTMLEncode(Trim(txt))
txt = Replace(Trim(txt), vbCrLf, "<br>")
txt = Replace(txt, ":r", "<img src=""shame.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ";)", "<img src=""glimt.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":)", "<img src=""normal.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":D", "<img src=""mktglad.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":l", "<img src=""skeptisk.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":(", "<img src=""sur.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":o", "<img src=""forvanad.gif"" alt=""Ikon"" width=""17"">")
txt = Replace(txt, ":q", "<img src=""fragande.gif"" alt=""Ikon"" width=""24""hight=""16"">")
txt = Replace(txt, ":i", "<img src=""likgiltig.gif"" alt=""Ikon"" width=""17"">")

Smilie = txt
End Function
Firegamez.comMedlem sedan juli 2002231 inlägg
#11

hmmm! Den funkade inte heller! Det kanske inte går att ha så i en community Gb! Jag vet inte..... Tack ändå! :D

PeeerMedlem sedan mars 20025 907 inlägg
#12

Men den borde ju funka. Hur ser delaText.inc ut? Är det databas fältet "text" som ska innehålla smiliesarna? Innehåller "text" någon teckenkombination som ska ersättas av smiliesarna?

Firegamez.comMedlem sedan juli 2002231 inlägg
#13

Så här ser delatext.inc ut!

<%
Dim strText, iLength, iPos1, iPos2, iWordLength       	'Deklarerar några variabler

Function delaText(strText)

	iPos1 = 1					' Initsiering
	iPos2 = 1
	iWordLength = 0

	strText = Trim(strText) 			' Tar bort eventuella mellanslag i början och slutet av texten!

	Do Until iPos2 = Len(strText)			' Loopar igenom strängen och letar efter mellanslag

		iPos2 = iPos2 + 1			' Pekaren får gå fram ett steg

		iWordLength = iWordLength + 1 		' Ökar på ordlängden

		If Mid(strText,iPos2,1) = " " Then
			iWordLength = 0
		End if

		If iWordLength > 25 Then		' Om ett ord är längre än 25 bokstäver.
			
			strText = Mid(strText,1,iPos1-1)_
			& Mid(strText,iPos1,iPos2-iPos1)_
			& " " & Mid(strText,iPos2,Len(strText)-iPos2+1)
			
			iPos1 = iPos2
			iPos2 = iPos2 + 1
			iWordLength = 0

		End If

	Loop

	strText = Replace(server.HTMLEncode(strText),vbCrlf,"<br>") ' Skyddar texten från HTML samt fixar mellanslag i texten

	Response.Write strText 				' Skriver ut texten, uppdelad och fin!

End Function

%>

Ja det e fältet "text" som ska innehålla smiliesarna
På den sista frågan menar du i databasen??? Eller....

PeeerMedlem sedan mars 20025 907 inlägg
#14

Firegamez.com skrev:

På den sista frågan menar du i databasen??? Eller....

Just det. Innehåller posten i databasen ex :) ;) :D ??
Vad händer om du provar att köra utan delatexten funktionen?
ersätt <%=delaText(Smiley(RecSet("text")))%> med <%=Smiley(RecSet("text"))%>

r/ hittade ett fel i din delatextfunktion förresten. Ta bort "Response.Write strText" ur funktionen. Ska inte vara där!

PeeerMedlem sedan mars 20025 907 inlägg
#15

Ska det verkligen stå

Replace(text,":o","<img src=""forum/[b]simly[/b]-ropa.gif"">")

i din funktion. Dessutom så försöker du replacea :( två gånger. Först till bilden smily-sur.gif och sedan till frown.gif.

tog mig friheten att göra ett nytt script (efter div. scriptsnuttar jag hittat här o var)

Function splitta(ord)
   splittrad = split(ord, " ")
   for i = 0 To uBound( splittrad )
      if len( splittrad(i) ) > 25 then
         for j = 1 to len( splittrad(i) )
            strTEXT = strTEXT & mid( splittrad(i), j, 1 )
            if j mod 25 = 0 then strTEXT = strTEXT & " "
         next
      else
         strTEXT = strTEXT & " " & splittrad( i )
      end if
   next
   
   strTEXT = replace( strTEXT, vbcrlf, "<br>" )
strText = Replace(strTEXT,":)","<img src=""forum/smily-smajl.gif"">")
strText = Replace(strText,":(","<img src=""forum/smily-sur.gif"">")
strText = Replace(strText,":-(","<img src=""forum/smily-sur.gif"">")
strText = Replace(strText,":D","<img src=""forum/smily-bigsmajl.gif"">")
strText = Replace(strText,";-)","<img src=""forum/smily-blink.gif"">")
strText = Replace(strText,":o","<img src=""forum/simly-ropa.gif"">")
splitta = strText
End Function

sen så skriver du

<%=splitta(RecSet("text"))%>
istället för
<%=delaText(Smiley(RecSet("text")))%>

Denna koden är provad, så funkar det inte nu vet jag inte vad jag gör

Firegamez.comMedlem sedan juli 2002231 inlägg
#16

Tack!!! Den funkade :D Tack till ni andra också som hjälpte till! Ha de gött!!! :D:D:D

147 ms totalt · 3 externa anrop · v20260731065814-full.fb544a5a
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
144 ms — hämta tråd, inlägg och bilagor (db)