📄 sys_pdel.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 u_power<2 OR u_name<>DEF_sysadm then
	Response.Redirect "resp.asp?cmd=adm_bigpower"
end if
%>


<script language="javascript">
function okpress(){
	document.fm1.cmdok.disabled=true;
	document.fm1.submit();
}
</script>

<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">
		&nbsp;<font class="ft1">建议您先作好备份！！</font>
		<%
		'判断当前年份
		dim vsyear
		vsyear=CInt(DatePart("yyyy",Date()))
		%>
		<form name="fm1" action="sys_pdel_deal.asp" method="post">
		&nbsp;从
		<Select name="syear">
		<%
		For i=2001 to vsyear
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>年
		<Select name="smonth">
		<%
		For i=1 to 12
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>月
		<Select name="sday">
		<%
		For i=1 to 31
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>日

		&nbsp;(一直到)&nbsp;
		<Select name="syear2">
		<%
		For i=2001 to vsyear
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>年
		<Select name="smonth2">
		<%
		For i=1 to 12
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>月
		<Select name="sday2">
		<%
		For i=1 to 31
			Response.Write "<option value='"&i&"'>"&i&"</option>"
		Next
		%>
		</Select>日
			<br><br>&nbsp;<font class="ft1"><b>确定删除这两个日期之间的所有帖子吗(包含这两个指定日期)？</b></font>（置顶主题将不会被删除）
			<br>&nbsp;<font color="red"><b>这里的日期不是指主题的发表日期，而是主题的最后更新日期</b>(一般是指最后被回复的日期)</font>
			<br>&nbsp;<input type="button" name="cmdok" value=" 确定删除 " onClick="javascript:okpress();" class="an">
		</form>
		</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 + -