emoticons.inc

ASP+SQL Server动态网站开发从基础到实践教程

<%
Sub Konvertieren(Eingabe)
	If Eingabe <> "" then 
		Eingabe = Replace(Eingabe, ":)", "<img src=./Emoticons/smile.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":(", "<img src=./Emoticons/frown.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ";)", "<img src=./Emoticons/wink.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, "8)", "<img src=./Emoticons/glasses.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":D", "<img src=./Emoticons/happy.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":b", "<img src=./Emoticons/tongue.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":p", "<img src=./Emoticons/tongue.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ">D", "<img src=./Emoticons/grin.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ">:", "<img src=./Emoticons/mad.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":|", "<img src=./Emoticons/indifferent.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":O", "<img src=./Emoticons/embarrased.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":x", "<img src=./Emoticons/sick.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, "|I", "<img src=./Emoticons/tired.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":eek", "<img src=./Emoticons/suprised.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, "8o", "<img src=./Emoticons/nerd.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, "0]", "<img src=./Emoticons/alien.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":smokin", "<img src=./Emoticons/smokin.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":hat", "<img src=./Emoticons/pimp.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":rollin", "<img src=./Emoticons/roll.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":rolleyes", "<img src=./Emoticons/eyes.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":lol", "<img src=./Emoticons/laugh.gif width=12 height=12>")
		Eingabe = Replace(Eingabe, ":evil", "<img src=./Emoticons/devil.gif width=12 height=12>")


		Eingabe = Replace(Eingabe,"arsch","ar***")
		Eingabe = Replace(Eingabe,"fucking","****")
		Eingabe = Replace(Eingabe,"fuckin","****")
		Eingabe = Replace(Eingabe,"shit","****")
		Eingabe = Replace(Eingabe,"fuck","****")
		Eingabe = Replace(Eingabe,"pussy","****")
		Eingabe = Replace(Eingabe,"pussie","****")
		Eingabe = Replace(Eingabe,"dick","****")
		Eingabe = Replace(Eingabe,"cunt","****")
		Eingabe = Replace(Eingabe,"fag","****")
		Eingabe = Replace(Eingabe,"bitch","****")
				
		Eingabe = Replace(Eingabe,"SCHEISSE","SCHEI***")
		Eingabe = Replace(Eingabe,"ARSCH","AR***")
		Eingabe = Replace(Eingabe,"FUCKING","****")
		Eingabe = Replace(Eingabe,"FUCKIN","****")
		Eingabe = Replace(Eingabe,"SHIT","****")
		Eingabe = Replace(Eingabe,"FUCK","****")
		Eingabe = Replace(Eingabe,"PUSSY","****")
		Eingabe = Replace(Eingabe,"PUSSIE","****")
		Eingabe = Replace(Eingabe,"DICK","****")
		Eingabe = Replace(Eingabe,"CUNT","****")
		Eingabe = Replace(Eingabe,"FAG","****")
		Eingabe = Replace(Eingabe,"BITCH","****")
				
		Eingabe = Replace(Eingabe,"Scheisse","Schei***")
		Eingabe = Replace(Eingabe,"Arsch","Ar***")
		Eingabe = Replace(Eingabe,"Fucking","****")
		Eingabe = Replace(Eingabe,"Fuckin","****")
		Eingabe = Replace(Eingabe,"Shit","****")
		Eingabe = Replace(Eingabe,"Fuck","****")
		Eingabe = Replace(Eingabe,"Pussy","****")
		Eingabe = Replace(Eingabe,"Pussie","****")
		Eingabe = Replace(Eingabe,"Dick","****")
		Eingabe = Replace(Eingabe,"Cunt","****")
		Eingabe = Replace(Eingabe,"Fag","****")
		Eingabe = Replace(Eingabe,"Bitch","****")		
	End If
		Response.Write Eingabe
End Sub
%>