<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
konten=Ganti_Teks(permintaan.Formulir("isi"))
konten=ganti(konten,"<","[")
konten=ganti(konten,">","]")
newsid=Replace_Text(request.Form("newsid"))
ip=permintaan.Formulir("ip")
nama=Ganti_Teks(permintaan.Form("nama"))
nama=ganti(namanama,"<","[")
nama=ganti(namanama,">","]")
'nama pengguna=Ganti_Teks(permintaan.Form("nama pengguna"))
'nama pengguna=ganti(nama pengguna,"<","[")
'nama pengguna=ganti(nama pengguna,">","]")
'处理发表内容是脏话
setel rs=server.CreateObject("adodb.recordset")
sql="pilih * dari kata buruk"
rs.open sql,sambungan,3,3
jika rs.eof maka
respon.Tulis("mei ziliao!")
lain
pada kesalahan lanjutkan berikutnya
lakukan saat bukan rs.bof dan bukan rs.eof
konten=ganti(konten,rs.fields("kata").nilai,"**")
rname=replace(rname,rs.fields("kata").nilai,"**")
rs.movenext
lingkaran
berakhir jika
rs.tutup
atur rs=tidak ada
'''''''''''''''''''''''''''''
setel rs=server.CreateObject("ADODB.RecordSet")
sql="pilih * dari pl"
rs.open sql,sambungan,3,3
rs.tambahkan baru
rs("isi")=isi
rs("newsid")=newsid
rs("ip")=ip
rs("namanama")=namanama
rs("nama pengguna")=nama pengguna
rs.update
rs.tutup
%>
<%
setel rsn=server.CreateObject("adodb.recordset")
sqln="pilih newsid,plnum,plbz dari berita di mana newsid="&newsid&""
rsn.buka sqln,sambungan,1,3
rsn("jumlah jam")=rsn("jumlah jam")+1
rsn("plbz")=1
rsn.perbarui
rsn.tutup
%>
<skrip>
alert("成功发布!)
parent.location.href="shownews.asp?newsid=<%=newsid%>"
</skrip>