!--# Include ="../ conn/dbconn1.asp file "-
="../ !--# Include file inc / safe.asp "-
%
= Contenuto Replace_Text (Request.Form ("Contenuti"))
content = replace (contenuto ," ","[")
content = replace (contenuto ," ","]")
= 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 (," ","[") nome utente
'Username = replace (," ","]") nome utente
contenuto 'Pubblicato il trattamento del linguaggio è cattivo
set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select conf bin backup dati di configurazione eshow_sitemap.html generate.sh maint log sitemap.html tmp svn da parolacce"
rs.open sql, conn, 3,3
se poi rs.EOF
Response.Write ("ziliao mei!")
altro
On Error Resume Next
fare mentre non rs.bof e non rs.EOF
contenuto = replace (contenuto, rs.fields ("parola"). ,"**") valore
RNAME = replace (RNAME, rs.fields ("parola"). ,"**") valore
rs.MoveNext
loop
End If
rs.close
Set rs = niente
''''''''''''''''''''''''''''''
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "select conf bin backup dati di configurazione eshow_sitemap.html generate.sh log maint sitemap.html tmp svn da PL"
rs.open sql, conn, 3,3
rs.addnew
rs ("Contenuti") contenuto =
rs ("NewSID") = NewSID
rs ("IP") ip =
rs ("RNAME") RNAME =
rs ("username") username =
rs.update
rs.close
%
%
set RSN = Server.CreateObject ("ADODB.Recordset")
sqln = "select NewSID, plnum, plbz di notizie in cui NewSID =" & NewSID & ""
rsn.open sqln, conn, 1,3
RSN ("plnum") RSN = ("plnum") +1
RSN ("plbz") = 1
rsn.update
rsn.close
%
script
alert ("lanciato con successo!")
parent.location.href = "shownews.asp? NewSID = % =% NewSID "
/ Script