📄 sys_pdel_deal.asp

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


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

<%
if u_power<2 OR u_name<>DEF_sysadm then
	Response.Redirect "resp.asp?cmd=adm_bigpower"
end if
%>



<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="100%" height="100%">
		&nbsp;<a href="index.asp">[首页]</a>-<a href="sys.asp">后台维护</a>-<font class="ft1">批量删除帖子</font>
	</td>
</tr></table>

<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
	<tr>
		<td width="150" valign="top" class="rdk2">
			<!--插入左部分-->
			<!--#include file="in_sys_left.asp"-->
		</td>
		<td valign="top">
		<%
		'获取日期
		vsy=Request.Form("syear")
		vsm=Request.Form("smonth")
		vsd=Request.Form("sday")
		vsy2=Request.Form("syear2")
		vsm2=Request.Form("smonth2")
		vsd2=Request.Form("sday2")
		
		IF isDate(vsy&"-"&vsm&"-"&vsd) AND isDate(vsy2&"-"&vsm2&"-"&vsd2) THEN
			vdatedel=CDate(vsy&"-"&vsm&"-"&vsd)
			vdatedel2=CDate(vsy2&"-"&vsm2&"-"&vsd2)
			if DateDiff("d",vdatedel,vdatedel2)<0 then
				Response.Write "<br>操作失败：指定的前一个日期应该比后一个日期早"
				Response.Write "<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
			elseif DateDiff("d",vdatedel2,date())<4 then
				Response.Write "<br>４天之内的主题不允许被批量删除！！"
				Response.Write "<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
			else
				vndel=idtime(CDate(vdatedel&" 00:00:01"))
				vndel2=idtime(CDate(vdatedel2&" 23:59:59"))
				sqlstr="SELECT t_ID,t_re,t_emotion FROM tbltalk WHERE t_class=1 AND t_isreply=False AND t_idfre<="&vndel2&" AND t_idfre>="&vndel
				rs.open sqlstr,conn,1,3
					if rs.eof AND rs.bof then
						Response.Write "<br>这个日期区间没有主题帖，不必删除"
					else
						DO UNTIL rs.eof
							vdelid=rs("t_ID")
							vdel_emo=rs("t_emotion")
							rs.delete
							rs.update
								'删除跟帖
								sqlstr="DELETE FROM tbltalk WHERE t_belong="&vdelid
								conn.Execute sqlstr
								'如果是投票，则删除相应投票纪录
								if vdel_emo=0 then
									sqlstr="DELETE FROM tblvote WHERE v_topicID="&vdelid
									conn.Execute sqlstr
								end if
							rs.MoveNext
						LOOP
						Response.Write "<br>批量删除已经完成！"
					end if
				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

			end if
		ELSE
			Response.Write "<br>错误：选定的日期不正确。。"
			Response.Write "<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		END IF
		%>

		<%
		'判断当前年份
		dim vsyear
		vsyear=CInt(DatePart("yyyy",Date()))
		%>
		</td>
	</tr>
</table>


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

</html>
⌨️ 快捷键说明

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