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


<table align="center" width="700" height="50" border="0" cellspacing="0" cellpadding="11" class="rdkuang"><tr>
	<td width="100%" height="100%" align="center">
<%
'获取传值
dim vcmd
dim vtid
vcmd=Request.QueryString("cmd")
vtid=Request.QueryString("id")
'判断id
IF isNumeric(vtid) THEN
	vtid=CLng(vtid)
ELSE
	Response.Redirect "resp.asp?cmd=talk_idmiss"
END IF

'找出相应主题
sqlstr="SELECT t_class,t_isreply,t_kind FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,1,3
	'判断正确性
	if rs.eof AND rs.bof then
		Response.Redirect "resp.asp?cmd=talk_idmiss"
	elseif u_power<2 then
		Response.Redirect "resp.asp?cmd=adm_power"
	elseif u_name<>DEF_sysadm then
		dim rs35
		set rs35=server.CreateObject("adodb.recordset")
		sqlstr="SELECT master_1,master_2,master_3 FROM tblkind WHERE kd_ID="&rs("t_kind")
		rs35.open sqlstr,conn,1,1
		 if u_name<>rs35("master_1") and u_name<>rs35("master_2") and u_name<>rs35("master_3") then
		 		Response.Redirect "resp.asp?cmd=notkindmaster"
		 end if
		rs35.close
		set rs35=nothing
	elseif rs("t_isreply")=true then
		Response.Redirect "resp.asp?cmd=top_nottopic"
	end if
	'命令操作
	vkind=rs("t_kind")

	IF vcmd="settop" THEN
		rs("t_class")=2
		rs.update
		Response.write "主题置顶成功！"
	ELSEIF vcmd="cleartop" THEN
		rs("t_class")=1
		rs.update
		Response.write "取消置顶成功！"
	ELSE
		Response.Redirect "resp.asp?cmd=cmderr"
	END IF
rs.close



'版面是否存在
dim kind_name
IF isNumeric(vkind) THEN
	vkind=CLng(vkind)
	'找出并更新该版面的相关信息
	sqlstr="SELECT kd_name FROM tblkind WHERE kd_ID="&vkind
	rs.open sqlstr,conn,1,1
		if rs.eof AND rs.bof then
			Response.Redirect "resp.asp?cmd=kindmiss"
		else
			kind_name=rs("kd_name")
		end if
	rs.close
ELSE
	Response.Redirect "resp.asp"
END IF
%>
<a href='talklist.asp?kind=<% =vkind %>'>点击这里返回到：<font class="ft1"><% =unhtml(kind_name) %></font></a>
	</td>
</tr></table>

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

</html>
⌨️ 快捷键说明

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