📄 sys_kind_hb.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
%>




<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">
<form name="fm_kind_join" action="sys_kind_hb_go.asp" method="post">

<b>合并版面</b>

		<%
		'列出所有版面分类
		sqlstr="SELECT kd_ID,kd_name FROM tblkind ORDER BY kd_class DESC"
		rs.open sqlstr,conn,1,1
			rs.MoveFirst
		%>
			<br>把<Select name="s_kdfrom">
			<%
					Response.Write "<option value='china'>请选择</option>"
				FOR i=1 TO rs.RecordCount
					Response.Write "<option value='"&rs("kd_ID")&"'>"&unhtml(rs("kd_name"))&"</option>"
					rs.MoveNext
				NEXT
			%>
			</Select>
		<%
			rs.MoveFirst
		%>
			合并到→&nbsp;<Select name="s_kdto">
			<%
					Response.Write "<option value='china'>请选择</option>"
				FOR i=1 TO rs.RecordCount
					Response.Write "<option value='"&rs("kd_ID")&"'>"&unhtml(rs("kd_name"))&"</option>"
					rs.MoveNext
				NEXT
			%>
			</Select>
		<%
		rs.close
		%>
&nbsp;<input type="button" name="cmdok" value=" 确定合并版面 " onClick="javascript:this.disabled=true;submit();" class="an">
<br>**提示：<u>合并后将使用后者的版面名称、版面描述等信息。</u>
</form>


<form name="fm_kind_kill" action="sys_kind_hb_go.asp" method="post">
<br><b>删除版面</b>

		<%
		'列出所有版面分类
		sqlstr="SELECT kd_ID,kd_name FROM tblkind ORDER BY kd_class DESC"
		rs.open sqlstr,conn,1,1
			rs.MoveFirst
		%>
			<br>把<Select name="s_kdkill">
			<%
				Response.Write "<option value='china'>请选择</option>"
				FOR i=1 TO rs.RecordCount
					Response.Write "<option value='"&rs("kd_ID")&"'>"&unhtml(rs("kd_name"))&"</option>"
					rs.MoveNext
				NEXT
			%>
			</Select>
		<%
		rs.close
		%>
&nbsp;<input type="button" name="cmdok" value=" 确定删除版面 " onClick="javascript:this.disabled=true;submit();" class="an">
<br>**提示：<u>删除版面将一并删除版面中所有文章，请慎重选择</u>
</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 + -