📄 reply.asp
字号:
<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!-- #include file="UbbCode.asp" -->
<!--获取发布内容字数限制-->
<!--#include file="in_talksize.asp"-->
<body>
<%
'获取版面分类的传值
dim vkind
vkind=Request.QueryString("kind")
dim kind_name
IF isNumeric(Request.QueryString("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
%>
<script language="JavaScript" src="bbcode.js"></script>
<script language="javascript">
function checkWordCount(){
var vwc,wmax,cha;
var strbox;
vwc=document.fm1.txtcontent.value.length;
wmax=<% =DEF_talksize*1024 %>;
strbox="内容限制字数："+wmax+"\n当前字数："+vwc+"\n\n";
cha=Math.abs(wmax-vwc);
if(vwc>wmax){
strbox=strbox+"*警告：您的文字数已超出限制"+cha+"个字符";
}
else{
strbox=strbox+"*提示：您还可以输入"+cha+"个字符";
}
alert(strbox);
}
function checkfill(){
if(document.fm1.txtcontent.value.length><% =DEF_talksize*1024 %>){
alert("内容文字过多，请按要求控制在<% =DEF_talksize*1024 %>字符以内");
return false;
}
else if(document.fm1.txtcontent.value==""){
alert("填写不完整：您没有填写回复的内容！");
return false;
}
else{
return true;
}
}
function okpress(){
if(checkfill()){
document.fm1.cmdpub.disabled=true;
document.fm1.submit();
}
}
</script>
<!--插入网站置顶-->
<% 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
%>
<%
'获取传值
dim vtid,vemo
dim strctrl,stract,strbtn,vcmd
dim vtopic,vcontent
vtid=Request.QueryString("id")
vcmd=Request.QueryString("cmd")
IF vtid<>"" AND isNumeric(vtid) THEN
vtid=CLng(vtid)
'找出相应记录
sqlstr="SELECT t_author,t_topic,t_content,t_isreply,t_belong,t_emotion 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
'获取主题
if rs("t_isreply")=true then
vtopic=conn.Execute("SELECT t_topic FROM tbltalk WHERE t_ID="&rs("t_belong"),0,1)(0)
else
vtopic=rs("t_topic")
end if
If vcmd="edit" Then
'不能编辑主题
if rs("t_isreply")=false then
response.Redirect "resp.asp?not_a_reply"
end if
'权限判断
if rs("t_author")<>u_name then
response.Redirect "resp.asp?cmd=talk_power"
end if
strctrl="编辑回复内容"
stract="reply_mod.asp"
strbtn=" 完成编辑 "
vemo=rs("t_emotion")
vcontent=rs("t_content")
ElseIf vcmd="pub" Then
strctrl="回复"
stract="reply_deal.asp"
strbtn=" 完成发布 "
vemo=1
vcontent=""
ElseIf vcmd="quote" Then
strctrl="回复"
stract="reply_deal.asp"
strbtn=" 完成发布 "
vemo=1
vcontent=vbCrLf&vbCrLf&vbCrLf&vbCrLf&vbCrLf&"[quote][b]＊＊以下引用[u]"&rs("t_author")&"[/u]的发言[/b]"&vbCrLf&hhstr(notubb(rs("t_content")),100)&"[/quote]"
Else
Response.Redirect "resp.asp?cmd=cmd"
End If
rs.close
ELSE
Response.Redirect "resp.asp?cmd=idisstr"
END IF
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
<td width="100%" height="100%">
<a href="index.asp">[首页]</a>-<a href="talkbook.asp">[班级讨论区]</a>-<a href='talklist.asp?kind=<% =vkind %>'><% =unhtml(kind_name) %></a>-<font class="ft1">[<% =strctrl %>]</font>
</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
<tr><td width="100%">
<form name="fm1" action="<% =stract %>" method="post">
<input type="hidden" name="hidID" value="<% =vtid %>">
<input type="hidden" name="hid_kind" value="<% =vkind %>">
<b>**回复关于主题：</b><font class="ft1"><% =unhtml(vtopic) %></font><br><br>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="60" height="100%" valign="top">
<b>**表情：</b>
</td>
<td valign="top">
<%
dim strchk
FOR i=1 TO 16
if i=vemo then
strchk="checked"
else
strchk=""
end if
%>
<input type="radio" name="rademotion" value="<% =i %>" <% =strchk %>><img src="img/topic/<% =i %>.gif" border="0" align="absmiddle">
<%
if i mod 8=0 then
Response.Write "<br>"
end if
NEXT
%>
</td>
</tr></table>
<br> <b>**回复内容：</b>支持<font color="red">UBB代码</font>：<a href="ubbhelp.asp" target="_blank">[UBB使用方法帮助]</a>
<font color="red">＊＊</font>内容文字请控制在<% =DEF_talksize*1024 %>字符内<br>
UBB工具╋
<a href="javascript:setbold()"><img src="img/ubbbar/BOLD.GIF" border="0" alt="插入粗体文本"></a>
<a href="javascript:italicize()"><img src="img/ubbbar/italicize.gif" border="0" alt="插入斜体文本"></a>
<a href="javascript:underline()"><img src="img/ubbbar/underline.gif" border="0" alt="插入下划线"></a>
<a href="javascript:center()"><img src="img/ubbbar/CENTER.GIF" border="0" alt="居中对齐"></a>
<a href="javascript:hyperlink()"><img src="img/ubbbar/URL1.GIF" border="0" alt="插入超级链接"></a>
<a href="javascript:email()"><img src="img/ubbbar/EMAIL1.GIF" border="0" alt="插入邮件地址"></a>
<a href="javascript:image()"><img src="img/ubbbar/IMAGE.GIF" border="0" alt="插入图像"></a>
<a href="javascript:flash()"><img src="img/ubbbar/SWF.GIF" border="0" alt="插入flash"></a>
<a href="javascript:showcode()"><img src="img/ubbbar/CODE.GIF" border="0" alt="插入代码"></a>
<a href="javascript:quoteme()"><img src="img/ubbbar/QUOTE1.GIF" border="0" alt="插入引用"></a>
<a href="javascript:ublue()"><img src="img/ubbbar/BLUE.GIF" border="0" alt="插入蓝色文字"></a>
<a href="javascript:ured()"><img src="img/ubbbar/RED.GIF" border="0" alt="插入红色文字"></a>
<a href="javascript:setfly()"><img src="img/ubbbar/FLY.GIF" border="0" alt="插入飞行文字"></a>
<a href="javascript:ulight()"><img src="img/ubbbar/LIGHT.GIF" border="0" alt="插入闪烁文字"></a>
<a href="javascript:uguang()"><img src="img/ubbbar/GLOW.GIF" border="0" alt="插入发光文字"></a>
<a href="javascript:u3s()"><img src="img/ubbbar/SIZE3.GIF" border="0" alt="插入三号字"></a>
<br>
┗━━━辅助方式━
<input type="radio" name="mode" value="2" onclick="javascript:checkmode(2)" checked alt="点击上面的UBB按钮后<br>通过输入框及文字提示的方式指导您应用UBB"> 向导插入
<input type="radio" name="mode" value="0" onclick="javascript:checkmode(0)" alt="点击上面的UBB按钮后<br>直接插入相应UBB代码的标记"> 直接插入
<input type="radio" name="mode" value="1" onclick="javascript:checkmode(1)" alt="点击上面的UBB按钮后<br>不插入任何内容，只弹出相应UBB标记的使用帮助"> 帮助信息
<a href="javascript:checkWordCount()" title="检查文字数是否在限制长度之内">[检查文字数]</a>
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0"><tr>
<td width="500" height="100%" align="right" valign="top">
<textarea name="txtcontent" tabindex="6" rows="15" cols="60" class="fill" onfocus="javascript:getActiveText(this)" onclick="javascript:getActiveText(this)" onchange="javascript:getActiveText(this)"><% =vcontent %></textarea>
</td>
<th valign="top">
<br>[添加UBB表情]<br>
<a href="javascript:AddText('[em01]')"><img src="UBBicon/EM01.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em02]')"><img src="UBBicon/EM02.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em03]')"><img src="UBBicon/EM03.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em04]')"><img src="UBBicon/EM04.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em05]')"><img src="UBBicon/EM05.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em06]')"><img src="UBBicon/EM06.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em07]')"><img src="UBBicon/EM07.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em08]')"><img src="UBBicon/EM08.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em09]')"><img src="UBBicon/EM09.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em10]')"><img src="UBBicon/EM10.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em11]')"><img src="UBBicon/EM11.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em12]')"><img src="UBBicon/EM12.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em13]')"><img src="UBBicon/EM13.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em14]')"><img src="UBBicon/EM14.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em15]')"><img src="UBBicon/EM15.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a><br>
<a href="javascript:AddText('[em16]')"><img src="UBBicon/EM16.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em17]')"><img src="UBBicon/EM17.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
<a href="javascript:AddText('[em18]')"><img src="UBBicon/EM18.GIF" border="0" alt="添加该表情的UBB代码" vspace="2"></a>
</th>
</tr></table>
<p align="center"><input type="Button" name="cmdpub" value="<% =strbtn %>" class="an" onClick="javascript:okpress()"> </p>
</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 + -