webForumDet fria alternativet

Visa formaterad text

ASP

6 svar · 507 visningar · startad av WebbisNet

Medlem sedan feb. 20032 027 inlägg
Frågan#1

För vip medlemmar kan man formatera texten genom att skriva den inom () och {}

de som är vip kan se den formaterade texten men den som inte är vip ser inte den formaterade texten de ser bara ex (här är lite text)
jag vill att även icke vip ska kunna se den formaterade texten utan att kunna formatera den, just nu så funkar bara att de inte kan formatera

<%If showAll("vip") = 1 Then
textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"<br>")) &""		
Else
textToCheck=replace(showAll("klotterText"),vbCrLf,"<br>") &""
End If
if showAll("vip") = int(1) then
function maketext(byVal inpt)
	Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table background=""/images/bg/art.gif"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table background=""/images/bg/flowers.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"" >",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table background=""/images/bg/sport.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table background=""/images/stop.gif"" style=""background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling>","<table background=""/images/easter/kyckling.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling1>","<table background=""/images/easter/kyckling1.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling1>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<äggkorg>","<table background=""/images/easter/eggbasket.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</äggkorg>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"{","<font color=""navy""><b>",1,-1,1)
inp = Replace(inp,"}","</b></font>",1,-1,1)
inp = Replace(inp,"(","<font color=""maroon""><b>",1,-1,1)
inp = Replace(inp,")","</b></font>",1,-1,1)
inp = Replace(inp,"<marquee>","&lt;marquee&gt;",1,-1,1)

inp = Replace(inp,"blue","white",1,-1,1)
inp = Replace(inp,"<me>",""&showAll("username")&"",1,-1,1)
inp = Replace(inp,"<hej>","Hej på er alla, hur är det med er?",1,-1,1)
inp = Replace(inp,"<lajv>","Kom igen nu och lajva lite mera *ler*",1,-1,1)
inp = Replace(inp,"<right>","<table width=""600""><tr><td align=""right"">",1,-1,1)
inp = Replace(inp,"</right>","</td></tr></table>",1,-1,1)
maketext = inp
end function
end if
Medlem sedan juni 20003 076 inlägg
#2

inte för att jag förstår vad du menar men lite kan jag väl påpeka! :)
man lägger aldrig en iftagg runt en function.
detta för att functionen i sig kommer ingen åt att kunna använda, den aktiveras bara där du vill det i koden.

sen ang. din fråga, är det funktionen du bifogat som alla ska använda?

If showAll("vip") = 1 Then
textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"<br>")) &""		
Else
textToCheck=replace(maketext(showAll("klotterText")),vbCrLf,"<br>") &""
End If

function maketext(byVal inpt)
	Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table background=""/images/bg/art.gif"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table background=""/images/bg/flowers.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"" >",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table background=""/images/bg/sport.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table background=""/images/stop.gif"" style=""background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling>","<table background=""/images/easter/kyckling.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling1>","<table background=""/images/easter/kyckling1.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling1>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<äggkorg>","<table background=""/images/easter/eggbasket.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</äggkorg>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"{","<font color=""navy""><b>",1,-1,1)
inp = Replace(inp,"}","</b></font>",1,-1,1)
inp = Replace(inp,"(","<font color=""maroon""><b>",1,-1,1)
inp = Replace(inp,")","</b></font>",1,-1,1)
inp = Replace(inp,"<marquee>","&lt;marquee&gt;",1,-1,1)

inp = Replace(inp,"blue","white",1,-1,1)
inp = Replace(inp,"<me>",""&showAll("username")&"",1,-1,1)
inp = Replace(inp,"<hej>","Hej på er alla, hur är det med er?",1,-1,1)
inp = Replace(inp,"<lajv>","Kom igen nu och lajva lite mera *ler*",1,-1,1)
inp = Replace(inp,"<right>","<table width=""600""><tr><td align=""right"">",1,-1,1)
inp = Replace(inp,"</right>","</td></tr></table>",1,-1,1)
maketext = inp
end function
Medlem sedan feb. 20032 027 inlägg
#3

Funktionen jag bifogade kan bara VIP använda och eftersom formateringen bara ska ske på ett ställe så funkar den bra, vill bara att ickeVIP inte ska kunna formatera text utan bara kunna se den formaterade texten precis som VIP-medlemmar självklart kan göra

doggelito skrev:

inte för att jag förstår vad du menar men lite kan jag väl påpeka! :)
man lägger aldrig en iftagg runt en function.
detta för att functionen i sig kommer ingen åt att kunna använda, den aktiveras bara där du vill det i koden.

sen ang. din fråga, är det funktionen du bifogat som alla ska använda?

If showAll("vip") = 1 Then
textToCheck=convertLink(replace(maketext(makeHtml(showAll("klotterText"))),vbCrLf,"<br>")) &""		
Else
textToCheck=replace(maketext(showAll("klotterText")),vbCrLf,"<br>") &""
End If





function maketext(byVal inpt)
	Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table background=""/images/bg/art.gif"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold; color:#000000;"">",1,-1,1)
inp = Replace(inp,"</konst>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<blommor>","<table background=""/images/bg/flowers.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"" >",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table background=""/images/bg/sport.gif"" style=""background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"" width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table background=""/images/stop.gif"" style=""background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling>","<table background=""/images/easter/kyckling.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<kyckling1>","<table background=""/images/easter/kyckling1.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</kyckling1>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<äggkorg>","<table background=""/images/easter/eggbasket.gif"" style=""background-repeat:no-repeat; background-color:#f6e360; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;""  width=""600"" height=""80""><tr><td valign=""top"">",1,-1,1)
inp = Replace(inp,"</äggkorg>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"{","<font color=""navy""><b>",1,-1,1)
inp = Replace(inp,"}","</b></font>",1,-1,1)
inp = Replace(inp,"(","<font color=""maroon""><b>",1,-1,1)
inp = Replace(inp,")","</b></font>",1,-1,1)
inp = Replace(inp,"<marquee>","&lt;marquee&gt;",1,-1,1)

inp = Replace(inp,"blue","white",1,-1,1)
inp = Replace(inp,"<me>",""&showAll("username")&"",1,-1,1)
inp = Replace(inp,"<hej>","Hej på er alla, hur är det med er?",1,-1,1)
inp = Replace(inp,"<lajv>","Kom igen nu och lajva lite mera *ler*",1,-1,1)
inp = Replace(inp,"<right>","<table width=""600""><tr><td align=""right"">",1,-1,1)
inp = Replace(inp,"</right>","</td></tr></table>",1,-1,1)
maketext = inp
end function
Medlem sedan juni 20003 076 inlägg
#4

jag är ledsen men jag fattar nog ändå inte vad du är ute efter! :q

WebbisNet skrev:

Funktionen jag bifogade kan bara VIP använda

Så, om funktionen: maketext formaterar inputtexten kan du då inte bara visa inputtexten rakt av då? eller är det vissa delar av inputtexten du vill visa?

Medlem sedan feb. 20032 027 inlägg
#5

makeText gör att man formatera och se den formaterade texten för VIP, men är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den

Medlem sedan juni 20003 076 inlägg
#6

WebbisNet skrev:

är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den

Tyvärr, men jag fattar ändå inte riktigt!

Men jag får känslan av att du slagit ihop två olika funktioner i en, dels när en användare skriver något, dels när en användare ser något.
Fråga 1:
Använder du maketext till båda dessa?

Så här har jag fattat det:
Scenario:
1. En användare skriver text med div. kodtaggar i en textarea och sparar till databas, tex.:
blabla<stop>balabla</stop>blabla

Fråga 2:
Vill du formatera denna text, om ja, varför?

2. Användaren har sparat informationen till databasen och vill se den.
Fråga 3:
Är det här du kör maketext-funktionen för att formatera dina taggar?
Om ja, varför kan du inte köra maketext för alla här, oavsett vip eller inte?

Du har en massa andra funktioner som du använder: convertlink, showall, makehtml, har dessa med din fråga att göra?

Medlem sedan dec. 19996 721 inlägg
#7

WebbisNet skrev:

makeText gör att man formatera och se den formaterade texten för VIP, men är man inte vip ska man bara kuna se den formaterade texten utan att kunna formatera den

Precis, så kör bara funktionen om texten kommer från en vip, annars inte.

275 ms totalt · 4 externa anrop · v20260731065814-full.2f471f9e
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
146 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)