user_duanxindel.asp

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

<!--#include file="conn.asp"-->
<!--#include file="inc/config.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
dim UserID,UserName,id
UserID=session("UserID")
UserName=session("UserName")
If UserName="" or IsNull(WordID) Then
	Response.Write ("<script>alert(' 操作错误 \n\n 可能您还没有登陆或者登陆超时 \n\n 如果您没有成为会员请先进行会员注册 \n\n 如果您已经是注册会员请重新登陆 ');location.href='userlog_login.asp';</script>")
	Response.End
End If
id=request("id")
CheckSqlnum(id)
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where ID="&UserID
rs.open sql,conn,1,3 
if rs.eof and rs.bof then
	Response.Write ("<script>alert('   操作错误!\n\n 用户不存在。');history.back();</script>")
	Response.end
End If
set rsub=server.createobject("adodb.recordset")
sqlub="select * from duanxin where id="&id&""
rsub.open sqlub,conn,1,1
if rsub("nickname")<>UserName then
	Response.Write ("<script>alert('   操作错误!\n\n 您没有权限删除该信息。');history.back();</script>")
	Response.end
End If
rsub.close
set rsub=nothing
conn.execute ("delete from duanxin where id="&id&"")
rs("messenge")=rs("messenge")+1
rs.update
messenge=rs("messenge")
	Response.Write ("<script>alert('      操作成功! \n\n您的短信箱还能储存 "&messenge&" 条信息 ');location.href='user_duanxin.asp';</script>")
	Response.end
rs.close
set rs=nothing
rs_u.close
set rs_u=nothing
conn.close
set conn=nothing
%>