user_duanxinaddpost.asp

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

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

<%
dim UserID,UserName
UserID=session("UserID")
UserName=session("UserName")
If UserName="" or UserID="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='userlog_login.asp';</script>")
	Response.End
End If
set rsu=server.createobject("adodb.recordset")
sql="select * from [User] where ID="&UserID&""
rsu.open sql,conn,1,1
if rsu.eof and rsu.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
if rsu("LockUser")=1 then
	Response.Write ("<script>alert('   操作错误!\n\n 用户被锁定。');history.back();</script>")
	Response.end
End If
rsu.close
set rsu=nothing
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=UserName then
	Response.Write ("<script>alert('   操作错误!\n\n 不能向自己发送短信。');history.back();</script>")
	Response.end
end if
%>


<%

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
else
	if rsu("messenge")<1 then
	response.write "<script language=JavaScript>{window.alert(' 发送失败！\n\n 对方短信箱已满，请稍后再试！');history.back();}</script>"
	Response.end
	else
	rsu("messenge")=rsu("messenge")-1
	rsu.update
	end if
set rs=server.CreateObject("adodb.recordset")
sql="select * from duanxin"
rs.open sql,conn,1,3
rs.addnew
rs("nickname")=custom
rs("content")=content
rs("custom")=username
rs("dateandtime")=now
rs.update
rs.close
set rs=nothing
response.write "<script language=JavaScript>{window.alert('发送成功！');javascript:window.close();}</script>"
end if
rsu.close
set rsu=nothing
%>