!--# Include file ="../ conn/dbconn1.asp "-
!--# Include file ="../ inc / safe.asp "-
%
content = Replace_Text (Request.Form ("Inhalt"))
content = replace (Inhalt ," ","[")
content = replace (Inhalt ," ","]")
newsid = Replace_Text (Request.Form ("newsid"))
ip = Request.Form ("IP")
RNAME = Replace_Text (Request.Form ("RNAME"))
RNAME = replace (RNAME ," ","[")
RNAME = replace (RNAME ," ","]")
"Username = Replace_Text (Request.Form (" username "))
'Username = replace (Benutzername ," ","[")
'Username = replace (Benutzername ," ","]")
"Veröffentlichte Inhalte ist schlecht Sprachverarbeitung
set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select Backup bin conf config Daten eshow_sitemap.html generate.sh Log maint sitemap.html svn tmp aus Badword"
rs.Open sql, conn, 3,3
wenn dann rs.eof
Response.Write ("mei ziliao!")
sonst
on error resume next
dies zwar nicht rs.bof und nicht rs.eof
content = ersetzen (Inhalt, rs.Fields ("Wort"). Wert ,"**")
RNAME = replace (RNAME, rs.Fields ("Wort"). Wert ,"**")
rs.MoveNext
Schleife
end if
rs.close
set rs = nothing
''''''''''''''''''''''''''''''
set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select Backup bin conf config Daten eshow_sitemap.html generate.sh Log maint sitemap.html svn tmp aus pl"
rs.Open sql, conn, 3,3
rs.AddNew
rs ("Inhalt") = Gehalt
rs ("newsid") = newsid
rs ("IP") = ip
rs ("RNAME") = RNAME
rs ("username") = Benutzername
rs.Update
rs.close
%
%
Set rsn = Server.CreateObject ("ADODB.Recordset")
sqln = "newsid, wählen plnum, plbz von Nachrichten, wo newsid =" & newsid & ""
rsn.open sqln, conn, 1,3
RSN ("plnum") = RSN ("plnum") +1
RSN ("plbz") = 1
rsn.update
rsn.close
%
script
alert ("erfolgreich gestartet!")
parent.location.href = "shownews.asp? newsid = % = newsid% "
/ Script