Ordlista i asp

12 svar · 678 visningar · startad av WebbisNet 23 mars 2006

WebbisNetMedlem sedan feb. 20032 027 inlägg

Frågan23 mars 2006 18:30#1

Hur skapar man en ordlista i asp för att automatiskt ersätta olämpiga ord ex i mitt klotterplank och kan man använda samma för att ersätta ord om man vill ha ex en engelsk site utan att behöva skriva allt på nytt med en ny likadan sida, hur funkar det och hur gör man. Nån som har exempel att visa??

Jesper TMedlem sedan nov. 20017 144 inlägg

23 mars 2006 21:44#2

Ditt första och andra exempel är ju två vitt skilda saker.
Det första finns nog här på WF om du söker lite. Lite replacer så är saken biff.
Det andra exemplet är ju betydligt mer komplext.

WebbisNetMedlem sedan feb. 20032 027 inlägg

23 mars 2006 21:55#3

Om man har en separat asp-fil med förbjudna ord, hur gör man replace om man har det så och ska ordlistan vara utformad på nåt speciellt sätt?

Jesper TMedlem sedan nov. 20017 144 inlägg

23 mars 2006 22:20#4

asp-fil... det skulle kanske kunna vara en vanlig kommaseparerad textfil.
Som du lägger i ett regex-pattern, och replacar ifrån.

WebbisNetMedlem sedan feb. 20032 027 inlägg

23 mars 2006 22:38#5

ok, tack

Jesper TMedlem sedan nov. 20017 144 inlägg

23 mars 2006 23:02#6

/Dubbelpostat :r

Jesper TMedlem sedan nov. 20017 144 inlägg

23 mars 2006 23:04#7

badwords.txt
morr|hundans|fibbla|kul

aspsida.asp

 <%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

textToCheck="Din text som skall kollas"
Response.write cutBadwords(readall,textToCheck)

%>

WebbisNetMedlem sedan feb. 20032 027 inlägg

23 mars 2006 23:52#8

Jesper T skrev:

badwords.txt
morr|hundans|fibbla|kul

aspsida.asp

 <%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

textToCheck="Din text som skall kollas"
Response.write cutBadwords(readall,textToCheck)

%>

jag får
Microsoft VBScript compilation error '800a03ea'

Syntax error

/misc/klotter/klottra.asp, line 75

textToCheck=If showAll("vip") = 1 Then
------------^

med

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("/badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

[B]textToCheck=If showAll("vip") = 1 Then
	Response.Write "&nbsp;"& convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>")) &""		
Else
	Response.Write "&nbsp;"& replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>") &""
End If[/B]

Response.write cutBadwords(readall,textToCheck)

Hur ska man skriva?????

The_HulkMedlem sedan juni 20031 837 inlägg

24 mars 2006 07:25#9

Vad är tanken att den här raden ska göra

textToCheck=If showAll("vip") = 1 Then

WebbisNetMedlem sedan feb. 20032 027 inlägg

24 mars 2006 11:32#10

är man vip så får man lite fler fördelar på klottret

The_HulkMedlem sedan juni 20031 837 inlägg

24 mars 2006 11:40#11

syftade på vad textToCheck= hade med det hela att göra
If returnerar inget, testa att ta bort textToCheck=
Du använder Response.write men vill ända spara texten för att censurera den senare?
Du bör nog kolla genom vad du egentligen vill göra och vad du gör.
Verkar som du vill tilldela textToCheck i IF-statsen, ta då bort response.write och erästt det med textToCheck =
dvs

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

vill du göra på ditt sätt blir det i stil med
men om detta även fugnerar i ASP vet jag inte, fungerar iaf i många andra språk.

textToCheck = (showAll("vip") = 1) ?
(convertLink(replace(extra(maketext(makeHtml(showAll("klotterText")))),vbCrLf,"<br>"))) 
:
(replace(Server.HTMLEncode(showAll("klotterText")),vbCrLf,"<br>"))

WebbisNetMedlem sedan feb. 20032 027 inlägg

27 mars 2006 01:17#12

//Red Gjorde fel :-)

WebbisNetMedlem sedan feb. 20032 027 inlägg

28 mars 2006 13:39#13

Sedan jag började använda denna kod för ordlistan så visas inte mina bakgunder när de används

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile(server.mappath("/badwords.txt"), 1)
readall = objTextStream.ReadAll
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

Function cutBadwords(patt, sw)
Dim nw, outpt
Set nw = new regexp
nw.global = true : nw.ignorecase = true
nw.pattern = "("& patt &")"
cutBadwords = nw.replace(sw,"*pip*")
Set nw = nothing
End Function

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

Response.write cutBadwords(readall,textToCheck)

Bakgrunderna

if showAll("vip") = 1 then

function maketext(byVal inpt)
Dim inp:inp=inpt
inp = Replace(inp,"<konst>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/art.gif); 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 width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/flowers.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</blommor>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<sport>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/bg/sport.gif); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</sport>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stop>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/stop.gif); background-repeat:no-repeat; background-position:right; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stop>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<stefan>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/moose1.png); background-repeat:repeat; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</stefan>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<ior>","<table width=""600"" height=""80""><tr><td valign=""top"" style=""background-image:url(/images/ior_small.gif); background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</ior>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<rosa>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:pink; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</rosa>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<guld>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""background-color:gold; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</guld>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<rod>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:red; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</rod>","</td></tr></table>",1,-1,1)
inp = Replace(inp,"<bla>","<table cellpadding=""0"" cellspacing=""0"" width=""600"" height=""80""><tr><td valign=""top"" style=""color:#DDDDDD; background-color:blue; background-repeat:repeat;  background-position:right; margin-left:0px; margin-top:0px; font:Verdana, Arial, Helvetica, sans-serif; font-size:12px; font-weight:bold;"">",1,-1,1)
inp = Replace(inp,"</bla>","</td></tr></table>",1,-1,1)
maketext = inp
end function

end if