📄 talkdel_deal.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->


<%
'获取传值
dim vtid
vtid=Request.Form("hidID")
if isNumeric(vtid) then
	vtid=CLng(vtid)
else
	Response.Redirect "resp.asp?cmd=talk_idmiss"
end if
%>


<body>
<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>


<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
	<td width="100%" height="100%" align="center">
<%
'找出相应记录
dim strback
sqlstr="SELECT t_author,t_isreply,t_belong,t_emotion,t_kind FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,1,2
	IF rs.eof AND rs.bof THEN
		Response.Redirect "resp.asp?cmd=talk_idmiss"
	END IF
	'检查资格身份
	IF rs("t_author")<>u_name AND u_power<2 THEN
		Response.Write "<img src='img/jjerr.gif' border='0'> 很抱歉，你不是该帖的作者，您没有删除的权限！"
	ELSE
		vkind=rs("t_kind")

			dauthor=rs("t_author")
			if rs("t_isreply")=true then
				'更新所属主题
				sqlstr="UPDATE tbltalk SET t_re=t_re-1 WHERE t_ID="&rs("t_belong")
				conn.Execute sqlstr
				emonum=conn.Execute("SELECT t_emotion FROM tbltalk WHERE t_ID="&rs("t_belong"),0,1)(0)
				if emonum=0 then
					strback="<br><a href='voteview.asp?id="&rs("t_belong")&"'>[点击这里返回原投票主题]</a>"
				else
					strback="<br><a href='talkview.asp?id="&rs("t_belong")&"'>[点击这里返回原主题]</a>"
				end if
				rs.delete
				rs.update
			else
				'删除跟帖
				sqlstr="DELETE FROM tbltalk WHERE t_belong="&vtid
				conn.Execute sqlstr
				'如果是投票，则删除相应投票纪录
				if rs("t_emotion")=0 then
					sqlstr="DELETE FROM tblvote WHERE v_topicID="&vtid
					conn.Execute sqlstr
				end if
				strback=""
				rs.delete
				rs.update
			end if
			Response.Write "<img src='img/jjgo.gif' border='0'> ＯＫ，删除成功！"
	END IF
rs.close


'版面是否存在
dim kind_name
IF isNumeric(vkind) THEN
	vkind=CLng(vkind)
	'找出并更新该版面的相关信息
	sqlstr="SELECT * FROM tblkind WHERE kd_ID="&vkind
	rs.open sqlstr,conn,1,3
		if rs.eof AND rs.bof then
			Response.Redirect "resp.asp?cmd=kindmiss"
		else
			kind_name=rs("kd_name")
			rs("kd_topic")=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE t_isreply=0 AND t_kind="&vkind,0,1)(0)
			rs("kd_upd")=conn.Execute("SELECT MAX(t_datepub) FROM tbltalk WHERE t_kind="&vkind,0,1)(0)
			rs.UpDate
		end if
	rs.close
ELSE
	Response.Redirect "resp.asp"
END IF


			'处罚管理
			if Cint(Request.Form("chkfa"))=1 AND u_power>1 then
				sqlstr="UPDATE tblmates SET cnt_water=cnt_water-5 WHERE name='"&dauthor&"'"
				conn.Execute sqlstr
			end if
%>
<% =strback %>
<br><a href='talklist.asp?kind=<% =vkind %>'>返回到 <% =unhtml(kind_name) %></a>
<br><a href="talkbook.asp">[点击这里返回<font class="ft1">班级讨论区</font>]</a><br>

	</td>
</tr></table>


<br>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -