📄 mb_del.asp

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



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


<%
	IF Session("sys")="" OR Session("sys")<>DEF_sysadm THEN
		Response.Redirect "sys_confirm.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 vid
vid=Request.Form("hidID")
'判断id
IF isNumeric(vid) THEN
	vid=CLng(vid)
ELSE
	Response.Redirect "resp.asp?cmd=id_miss"
END IF

'找出相应成员
dim killname
sqlstr="SELECT ID,name,power FROM tblmates WHERE ID="&vid
rs.open sqlstr,conn,1,1
	'判断正确性
	if rs.eof AND rs.bof then
		Response.Redirect "resp.asp?cmd=id_miss"
	elseif u_power<2 OR u_name<>DEF_sysadm then
		Response.Redirect "resp.asp?cmd=adm_bigpower"
	elseif rs("power")>1 then
		Response.Redirect "resp.asp?cmd=adm_cantkill"
	end if
	killname=rs("name")
rs.close

'开始删除数据！
'一、删除短消息
sqlstr="DELETE FROM tblmsg WHERE m_to='"&killname&"' OR m_from='"&killname&"'"
conn.Execute sqlstr

'二、删除照片
sqlstr="SELECT p_ID,p_url,p_belong FROM tblphoto WHERE p_belong<0 AND p_author='"&killname&"'"
rs.open sqlstr,conn,1,2
	dim phpath
	dim fso1
	set fso1=Server.CreateObject("Scripting.FileSystemObject")
		DO UNTIL rs.eof
				if rs("p_url")<>"" then
					phpath=server.MapPath(rs("p_url"))
						if fso1.FileExists(phpath) then
							fso1.DeleteFile phpath,True
						end if
				end if
			sqlstr="DELETE FROM tblphoto WHERE p_belong="&rs("p_ID")
			conn.Execute sqlstr
			rs.delete
			rs.update
			rs.MoveNext
		LOOP
	set fso1=nothing
rs.close
'删除纯粹的照片评论
sqlstr="SELECT p_ID,p_belong,p_emo FROM tblphoto WHERE p_belong>-1 AND p_author='"&killname&"'"
rs.open sqlstr,conn,1,2
		set rs3=server.CreateObject("adodb.recordset")
		DO UNTIL rs.eof

					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
					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
			rs.delete
			rs.update
			rs.MoveNext
		LOOP
		set rs3=Nothing
rs.close


'三、删除发表的信息
sqlstr="DELETE FROM tbltalk WHERE t_owner='"&killname&"'"
conn.Execute sqlstr
sqlstr="SELECT t_ID,t_belong FROM tbltalk WHERE t_author='"&killname&"'"
rs.open sqlstr,conn,1,2
	DO UNTIL rs.eof
		sqlstr="UPDATE tbltalk SET t_re=t_re-1 WHERE t_ID="&rs("t_belong")
		conn.Execute sqlstr
		rs.delete
		rs.update
		rs.MoveNext
	LOOP
rs.close
'各版面信息重新统计
	sqlstr="SELECT * FROM tblkind"
	rs.open sqlstr,conn,1,3
		if rs.eof AND rs.bof then
			Response.Redirect "resp.asp?cmd=kindmiss"
		else
				FOR i=1 TO rs.RecordCount
						vkind=rs("kd_ID")
						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
						rs.MoveNext
				NEXT
		end if
	rs.close


'四、删除投票数据
'(1)删除主动发起的投票
sqlstr="DELETE FROM tblvote WHERE v_topicID IN(SELECT v_topicID FROM tblvote WHERE v_enable=false AND v_voter='"&killname&"' GROUP BY v_topicID)"
conn.Execute sqlstr
'(2)删除参与别人的投票主题
sqlstr="DELETE FROM tblvote WHERE v_voter='"&killname&"'"
conn.Execute sqlstr

'五、删除成员资料
sqlstr="SELECT faceurl,myfj FROM tblmates WHERE name='"&killname&"'"
rs.open sqlstr,conn,1,2
		dddfj=rs("myfj")
		if Left(rs("faceurl"),12)="face/upface/" then
				dim fpath
				dim fso2
				fpath=server.MapPath(rs("faceurl"))
				set fso2=Server.CreateObject("Scripting.FileSystemObject")
					if fso2.FileExists(fpath) then
						fso2.DeleteFile fpath,True
					end if
				set fso2=nothing
		end if
		rs.delete
		rs.update
rs.close

'六、删除附件
sqlstr="SELECT fj_url FROM tblfj WHERE fj_owner='"&killname&"'"
rs.open sqlstr,conn,1,2
	dim fjpath2
	dim fsofj
	set fsofj=Server.CreateObject("Scripting.FileSystemObject")
		DO UNTIL rs.eof
				if rs("fj_url")<>"" then
					fjpath2=server.MapPath(rs("fj_url"))
						if fsofj.FileExists(fjpath2) then
							fsofj.DeleteFile fjpath2,True
						end if
				end if
			rs.delete
			rs.update
			rs.MoveNext
		LOOP
	set fsofj=nothing
rs.close
'释放空间
sqlstr="SELECT fj_now FROM tblsys WHERE sysadm='"&DEF_sysadm&"'"
rs.open sqlstr,conn,1,2
	if rs("fj_now")-dddfj<0 then
		rs("fj_now")=0
	else
		rs("fj_now")=rs("fj_now")-dddfj
	end if
	rs.update
rs.close

'删除在线信息
	sqlstr="DELETE FROM tblonline WHERE o_name='"&killname&"'"
	conn.Execute sqlstr
%>



操作成功：<font class="ft1"><% =killname %></font>已经被除名！
<br><a href="txbook.asp">点击这里返回<font class="ft1">[通 讯 簿]</font></a>
	</td>
</tr></table>


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

</html>
💿 文件大小 1192 K
👤 上传用户 proudrock
📂 所属分类 SCSI/ASPI
🏷️ 相关标签

#asp #超级 #代码 #页
⌨️ 快捷键说明

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