📄 reply.asp
字号:
<!-- #include file="const.asp" -->
<!-- #include file="matrix3_upload_config.asp" -->
<%
dim ID,sql,rs,topic,content,addtime,name,quote,quotecontent,fid,forumtitle,authent,authentlist
authent=0
ID=nrequest("id")
fid=""
forumtitle=""
quote=trim1(request.QueryString("quote"))
if ID="" then
response.Redirect("error.asp?id=9")
response.End()
else
call opendb()
checkuser()
sql="select topic,content,addtime,name,fid from m3_bbs where id="&ID&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
set rs=nothing
call closedb()
response.Redirect("error.asp?id=10")
response.End()
else
topic=rs("topic")
fid=rs("FID")
if quote="true" then
content=rs("content")
addtime=rs("addtime")
name=rs("name")
end if
end if
rs.close
set rs=nothing
if fid<>"" then
fid=cint(fid)
sql="select FTitle,authent,authentlist from m3_forum where FID="&fid&""
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
fid=""
else
forumtitle=rs("FTitle")
authent=cint(rs("authent"))
authentlist=rs("authentlist")
end if
rs.close
set rs=nothing
end if
position "回复帖子："&topic,0
call closedb()
if authent=1 then
if inlist(authentlist)=0 then
response.Redirect("error.asp?id=11")
response.End()
end if
end if
end if
dim face,rnum
randomize
rnum=int(9000*rnd)+1000
rnum=rnum mod 24
if rnum<10 then
face="0"&cstr(rnum)
else
face=cstr(rnum)
end if
dim replytopic
if instr(topic,"回复")>0 then
replytopic=topic
else
replytopic="回复："&topic
end if
%>
<html>
<head>
<title><%=sitename%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/skin.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function chkTopicField()
{
if(document.topicform.content.value==""){
alert("回复内容不能为空");
document.topicform.content.focus();
return false;
}<%if trim1(request.Cookies("matrix3")("matrix3_admin"))<>"matrix3" then response.Write("else if(strLength(document.topicform.content.value)>16240) {alert('发言内容不得大于16240bytes。');return false;}")%>
document.topicform.submit();
document.topicform.Submit1.disabled=true;
}
function strLength(str) {
var WINNT_CHINESE;
WINNT_CHINESE = (("论坛").length==2)
if(WINNT_CHINESE) {
var l,t,c;
var i;
l=str.length;
t=l;
for(i=0;i<l;i++) {
c=str.charCodeAt(i);
if(c<0 || c>255) t=t+1;
}
return t;
} else {
return str.length;
}
}
function ow(src,win_width,win_height)
{
window.open(src,'','width='+win_width+',height='+win_height+',resizable=no,scrollbars=auto,status=no,toolbar=no,menubar=no,location=no');
return false;
}
</script>
<script language="JavaScript" src="images/ubbcode.js"></script>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="10" align="center" valign="top"> <!-- #include file="topbar.asp" --> </td>
</tr>
<tr>
<td align="center" valign="top"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="12" bgcolor="#ECE9D9"> </td>
<td width="1" bgcolor="#E8BC3C"></td>
<td width="10"> </td>
<td valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="100%" height="26"><span class="v8"><img src="images/btn_face.gif" width="10" height="7">
<a href="index.asp"><%=sitename%></a>
<%if forumtitle<>"" then %>
<FONT face=Webdings color="#660000">8</FONT> <a href="list.asp?forumid=<%=fid%>"><%=forumtitle%></a>
<%end if%>
<FONT face=Webdings color="#660000">8</FONT>
<font color="#990000">帖子主题： </font><a href="javascript:history.back();"><%=topic%></a>
<FONT face=Webdings color="#660000">8</FONT> 回复帖子</span></td>
</tr>
<tr>
<td height="1" bgcolor="#ECE9D9"></td>
</tr>
</table>
<br> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="120" height="12" bgcolor="#990000"> <span class="v8b"> <img src="images/fang-1.gif" align="absmiddle">
</span><span class="v7"><font color="#FFFFFF">回复</font></span></td>
<td height="12" nowrap bgcolor="#CCCCCC" class="v8b"> </td>
</tr>
</table>
<TABLE cellSpacing=1 cellPadding=3 width=100% align=center bgColor=#eeeeee
border=0>
<FORM enctype="multipart/form-data" name="topicform" id="topicform" onsubmit="javascript:chkTopicField();return false;" action="savereply.asp" method=post>
<TBODY>
<TR bgColor=#ffffff>
<TD width="18%" height="25" align=center nowrap class=v8b><span class="v7b">回复标题</span></TD>
<TD width="82%" height="25"><INPUT name="topic" class=input1 id="topic" size=75 maxLength=100>
<select name=font onChange=DoTitle(this.options[this.selectedIndex].value) class=input1 >
<option selected value="">选择话题</option>
<option value=[原创]>[原创]</option>
<option value=[转帖]>[转载]</option>
<option value=[灌水]>[灌水]</option>
<option value=[讨论]>[讨论]</option>
<option value=[求助]>[求助]</option>
<option value=[推荐]>[推荐]</option>
<option value=[公告]>[公告]</option>
<option value=[注意]>[注意]</option>
<option value=[帖图]>[帖图]</option>
<option value=[建议]>[建议]</option>
<option value=[下载]>[下载]</option>
<option value=[分享]>[分享]</option>
</select>
<input name="replytopic" type="hidden" id="replytopic" value="<%=replytopic%>"> </TD>
</TR>
<TR>
<TD align="center" nowrap bgcolor="#FAFAF5" class=v7><strong>图标<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -