📄 sys_kind_hb_go.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">
<%
'获取传值
dim v_kdkill

'版面是否存在

IF Request.Form("s_kdkill")<>"" AND isNumeric(Request.Form("s_kdkill")) THEN
	v_kdkill=CLng(Request.Form("s_kdkill"))
	'找出该版面的相关信息
	sqlstr="SELECT kd_ID,kd_name FROM tblkind WHERE kd_ID="&v_kdkill
	rs.open sqlstr,conn,1,3
		if rs.eof AND rs.bof then
			Response.Redirect "resp.asp?cmd=kindmiss"
		else
			set rs2=server.CreateObject("adodb.recordset")
				sqlstr="SELECT t_ID,t_emotion,t_isreply FROM tbltalk WHERE t_kind="&rs("kd_ID")
				rs2.open sqlstr,conn,1,3
					for i=1 to rs2.RecordCount
						'如果是投票，则删除相应投票纪录
						if rs2("t_emotion")=0 then
							sqlstr="DELETE FROM tblvote WHERE v_topicID="&rs2("t_ID")
							conn.Execute sqlstr
						end if
						rs2.Delete
						rs2.UpDate
						rs2.MoveNext
					next
				rs2.close
			set rs2=Nothing
			rs.Delete
			rs.UpDate
			Response.write "删除版面成功"
			Response.Write "<br><a href='sys_kind.asp'>[点击这里刷新到：<b>版面编辑管理</b>]</a>"
		end if
	rs.close
ELSEIF Request.Form("s_kdkill")="china" THEN
	Response.Write "<br>出错：请选择要删除的版面！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
ELSE
		If isNumeric(Request.Form("s_kdfrom")) AND isNumeric(Request.Form("s_kdto")) Then
			v_kdfrom=CLng(Request.Form("s_kdfrom"))
			v_kdto=CLng(Request.Form("s_kdto"))
			if v_kdfrom=v_kdto then
				Response.Write "<br>出错：必须选择两个不同的版面进行合并<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
			else
					if (conn.Execute("SELECT COUNT(*) FROM tblkind WHERE kd_ID="&v_kdfrom&" OR "&" kd_ID="&v_kdto,0,1)(0))<>2 then
						response.Redirect "resp.asp"
					end if
					sqlstr="UPDATE tbltalk SET t_kind="&v_kdto&" WHERE t_kind="&v_kdfrom
					conn.Execute sqlstr
					sqlstr="DELETE FROM tblkind WHERE kd_ID="&v_kdfrom
					conn.Execute sqlstr
					'找出并更新合并后新版面的相关信息
					sqlstr="SELECT * FROM tblkind WHERE kd_ID="&v_kdto
					rs.open sqlstr,conn,1,3
							rs("kd_topic")=conn.Execute("SELECT COUNT(*) FROM tbltalk WHERE t_isreply=0 AND t_kind="&v_kdto,0,1)(0)
							rs("kd_upd")=conn.Execute("SELECT MAX(t_datepub) FROM tbltalk WHERE t_kind="&v_kdto,0,1)(0)
							rs.UpDate
					rs.close
					Response.write "合并版面成功"
					Response.Write "<br><a href='sys_kind.asp'>[点击这里刷新到：<b>版面编辑管理</b>]</a>"
			end if
		Else
			Response.Write "<br>出错：请选择要合并的版面！<br>"&"<a href='javascript:history.go(-1);'>[点击这里<Font color=red>返回修改</Font>]</a>"
		End If
END IF

%>

		
		</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 + -