📄 reply_deal.asp

📁 一个超级漂亮的班级主页asp代码
💻 ASP
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!--插入时间id的函数-->
<!--#include file="in_idtime.asp"-->
<!--获取发布内容字数限制-->
<!--#include file="in_talksize.asp"-->


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

<%
'判断用户权限
IF u_power=0 THEN
	Response.Redirect "resp.asp?cmd=id_wait"
ELSEIF u_power<0 THEN
	Response.Redirect "resp.asp?cmd=id_forbid&time="&u_fobdate
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 vcontent,vowner
dim vemo,vtid
vcontent=Request.Form("txtcontent")
vemo=CInt(Request.Form("rademotion"))
vtid=CLng(Request.Form("hidID"))

vkind=Request.Form("hid_kind")
'版面是否存在
dim kind_name
IF isNumeric(Request.Form("hid_kind")) 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


'检查正确性
IF vcontent="" OR LEN(vcontent)>DEF_talksize*1024 THEN
	response.Redirect "resp.asp"
END IF

'找出相应记录
sqlstr="SELECT t_isreply,t_belong,t_owner FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,0,1
		if rs.eof and rs.bof then
			response.Redirect "resp.asp?cmd=talk_idmiss"
		end if
		vowner=rs("t_owner")
		'判断原主题的ID
		if rs("t_isreply")=True then
			vtid=rs("t_belong")
		end if
rs.close

'处理时间
dim vidfre
dim vtdate
vtdate=now()
vidfre=idtime(vtdate)

'插入数据
sqlstr="INSERT INTO tbltalk(t_author,t_topic,t_content,t_datepub,t_isreply,t_class,t_idfre,t_owner,t_re,t_clk,t_emotion,t_belong,t_kind) VALUES('"&u_name&"','','"&stryin(vcontent)&"',#"&vtdate&"#,True,1,"&vidfre&",'"&vowner&"',0,0,"&vemo&","&vtid&","&vkind&")"
conn.Execute sqlstr
'更新原主题，这时候vtid变量是原主题的id
sqlstr="SELECT t_re,t_datefre,t_idfre,t_lastre,t_emotion FROM tbltalk WHERE t_ID="&vtid
rs.open sqlstr,conn,1,2
		if rs.eof and rs.bof then
			response.Redirect "resp.asp?cmd=topic_lose"
		end if
	rs("t_re")=rs("t_re")+1
	rs("t_datefre")=vtdate
	rs("t_idfre")=vidfre
	rs("t_lastre")=u_name
	rs.update
'检查该主题是否带有投票
		IF rs("t_emotion")=0 THEN
			vttype="voteview.asp"
		ELSE
			vttype="talkview.asp"
		END IF
rs.close

'更新版面相关信息
sqlstr="UPDATE tblkind SET kd_upd=#"&vtdate&"# WHERE kd_ID="&vkind
conn.Execute sqlstr

'更新你的发水量
sqlstr="UPDATE tblmates SET cnt_water=cnt_water+1 WHERE ID="&u_ID
conn.Execute sqlstr


%>

恭喜：回复主题成功！
<table align="center" width="400" height="25" border="0">
<tr><td>
请选择接下来的操作：<font color="red">（系统在３秒后将自动转向您刚回复的主题）</font>
<br><a href="<% =vttype %>?id=<% =vtid %>"><img src="img/icn_go.gif" border="0">返回您刚回复的主题</a>
<br><a href='talklist.asp?kind=<% =vkind %>'><img src="img/icn_go.gif" border="0">返回到 <% =unhtml(kind_name) %></a>
<br><a href="talkbook.asp"><img src="img/icn_go.gif" border="0">返回[班级讨论区]</a>
<br><a href="index.asp"><img src="img/icn_go.gif" border="0">返回首页</a>
</td></tr>
</table>

	</td>
</tr></table>

<script defer language="javascript">
	setTimeout('location.href="<% =vttype %>?id=<% =vtid %>&page=end"',3000);
</script>

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

</html>
⌨️ 快捷键说明

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