!--# Include fil ="../ conn/dbconn1.asp "-
!--# Inkludera ="../ inc / safe.asp "-
%
content = Replace_Text (Request.Form ("innehåll"))
content = byt ut (innehåll ," ","[")
content = byt ut (innehåll ," ","]")
newsid = Replace_Text (Request.Form ("newsid"))
ip = Request.Form ("IP")
rname = Replace_Text (Request.Form ("rname"))
rname = byt (rname ," ","[")
rname = byt (rname ," ","]")
"Användarnamn = Replace_Text (Request.Form (" användarnamn "))
"Användarnamn = byt (användarnamn ," ","[")
"Användarnamn = byt (användarnamn ," ","]")
"Publicerat innehåll är dålig språkbehandling
som rs = Server.CreateObject ("adodb.recordset")
sql = "Välj backup bin conf config uppgifter eshow_sitemap.html generate.sh logga maint sitemap.html svn tmp från oönskat ord"
rs.open sql, conn, 3,3
om rs.eof sedan
Response.Write ("Mei ziliao!")
annat
On Error Resume Next
göra medan inte rs.bof och inte rs.eof
content = replace (innehåll, rs.fields ("ord"). värde ,"**")
rname = replace (rname, rs.fields ("ord"). värde ,"**")
rs.movenext
slinga
slut om
rs.close
som rs = ingenting
''''''''''''''''''''''''''''''
som rs = Server.CreateObject ("ADODB.RecordSet")
sql = "Välj backup bin conf config uppgifter eshow_sitemap.html generate.sh logga maint sitemap.html svn tmp från pl"
rs.open sql, conn, 3,3
rs.addnew
rs ("innehåll") = innehåll
rs ("newsid") = newsid
rs ("IP") = ip
rs ("rname") = rname
rs ("användarnamn") = användarnamn
rs.update
rs.close
%
%
som RSN = Server.CreateObject ("adodb.recordset")
sqln = "Välj newsid, plnum, plbz från nyheter där newsid =" & newsid & ""
rsn.open sqln, conn, 1,3
RSN ("plnum") = RSN ("plnum") +1
RSN ("plbz") = 1
rsn.update
rsn.close
%
script
alert ("framgångsrikt lanserat!")
parent.location.href = "shownews.asp? newsid = % = newsid% "
/ Script