📄 ph_mark_del.asp

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


<%
'获取传值
dim vpid
vpid=Request.QueryString("plid")
if isNumeric(vpid) then
	vpid=CLng(vpid)
else
	Response.Redirect "resp.asp?cmd=ph_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">
<%
'找出相应记录
sqlstr="SELECT p_ID,p_author,p_belong,p_emo FROM tblphoto WHERE p_ID="&vpid
rs.open sqlstr,conn,1,3
	if rs.eof AND rs.bof then
		Response.Redirect "resp.asp"
	end if
	'获取所相关照片的ID
	ph_topic_ID=rs("p_belong")

	'检查资格身份
	if rs("p_author")<>u_name AND u_power<2 then
		Response.Write "<img src='img/jjerr.gif' border='0'> 很抱歉，您没有删除该条评论的权限！"
	else
			'修改相关照片的评论统计
			set rs3=server.CreateObject("adodb.recordset")
						sqlstr="SELECT p_emo,COUNT(p_ID) AS p_ren FROM tblphoto WHERE p_belong="&rs("p_belong")&" GROUP BY p_emo"
						rs3.open sqlstr,conn,1,1
								if rs3.eof AND rs3.bof then
									rs3.close
									Response.Redirect "resp.asp?cmd=ph_idmiss"
								end if
						dim phgood,phbad,phall
						phgood=0
						phbad=0

						while not rs3.eof
							if rs3("p_emo")=1 then
								phgood=rs3("p_ren")
							elseif rs3("p_emo")=2 then
								phbad=rs3("p_ren")
							end if
							rs3.MoveNext
						wend
						if rs("p_emo")=1 then
							phgood=phgood-1
						elseif rs("p_emo")=2 then
							phbad=phbad-1
						end if
						phall=CLng(phgood*100000+phbad+1)
						phall=0-phall
						rs3.close
					sqlstr="UPDATE tblphoto SET p_belong="&phall&" WHERE p_ID="&rs("p_belong")
					conn.Execute sqlstr
			set rs3=Nothing
			rs.delete
			rs.update
			Response.Write "<img src='img/jjgo.gif' border='0'> ＯＫ，删除评论成功！"
	end if
rs.close
%>

<br><a href='photoview.asp?id=<% =ph_topic_ID %>'>[点击这里<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 + -