admin_duanxinaddpost.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<!--#include file="conn.asp"-->
<!-- #include file="session.asp" -->
<!--#include file="../inc/config.asp"-->
<% 
function changechr(str) 
    changechr=replace(replace(replace(replace(str,"<","&lt;"),">","&gt;"),chr(13),"<br>")," ","&nbsp;") 
end function
%>

<%
if request.form("content")="" then
	Response.Write ("<script>alert('   操作错误!\n\n 内容不能为空。');history.back();</script>")
	Response.end
end if
content=changechr(request.form("content"))
custom=request("custom")
%>


<%
if custom<>"" then
set rsu=server.CreateObject("adodb.recordset")
sql="select name,messenge from [User] where name='"&custom&"'"
rsu.open sql,conn,1,3
if rsu.eof and rsu.bof then
response.write "<script language=JavaScript>{window.alert(' 发送失败！\n\n 昵称不存在，请核实后再试！');history.back();}</script>"
Response.end
end if
rsu.close
set rsu=nothing
end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from siti_duanxin"
rs.open sql,conn,1,3
rs.addnew
rs("nickname")=custom
rs("content")=content
rs("custom")=request.cookies("CnendWeb")("admininfo_loginname")
if custom<>"" then
rs("sitis")=0
else
rs("sitis")=1
end if
rs("dateandtime")=now
rs.update
rs.close
set rs=nothing
response.write "<script language=JavaScript>{window.alert('发送成功！');javascript:window.close();}</script>"

%>