ztedit.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 217 行
ASP
217 行
<!--#include file="inc/pstart.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/incpage.asp"-->
<!--#include file="inc/bbsinfo.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<%
call checkulogin()
call checkhmd()
start="编辑主题贴"
call bbs_top()
dim aid,hx66close,hx66_fatime
aid=request.querystring("aid")
if not IsNumeric(aid) or aid="" then
call showmsg("参数非法")
else
aid=clng(aid)
end if
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_bbs where hx66_bid="&bid&" and id="&aid
rs.open sqlstr,conn,1,1
if rs.eof then showmsg("没有找到指定的主题")
hx66close=rs("hx_close")
hx66_fatime=rs("hx66_fatime")
if username<>""&rs("hx66_name")&"" and checkbbsadmin(bid)=0 and checkadmin(ckuname)<3 then
response.write"<SCRIPT language=JavaScript>alert(' 你没有权限编辑别人的主题贴子！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if useubase=1 and DateDiff("h",hx66_fatime,now())>=1 and checkbbsadmin(bid)=0 and checkadmin(ckuname)<3 then
response.write"<SCRIPT language=JavaScript>alert(' 贴子已超过允许编辑时间，你将不能进行此操作！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
if hx66close=1 then
response.write"<SCRIPT language=JavaScript>alert(' 本主题贴已被屏蔽不能进行此操作，请 返 回 ！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if
%>
<SCRIPT>
function showvote(){
if (document.FrontPage_Form1.voteyn.checked == true) {
vote.style.display = "";
}else{
vote.style.display = "none";
}
}
</SCRIPT>
<table class="table-hx66s" cellSpacing="0" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
<TR>
<TD>
<%
if rs("hx66_html")="1" then
%>
<script language="javascript">
function edit1(){
IframeID.document.body.innerHTML=document.all("body").value;
document.all("body").value="";}
function chk(){
document.all("body").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("主题不能为空");
document.form.title.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("内容不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<body onload="return edit1();">
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 id="form" onsubmit="return chk();" action="bbs_edit.asp?type=save&bid=<%=bid%>&aid=<%=aid%>" method=post>
<tr>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此编辑修改主题贴</td>
</tr>
<TR>
<TD width=20% height=30>
<FONT color=#cc6600> 标 题：</FONT><select size=1 name="about" onchange=DoTitle(this.options[this.selectedIndex].value)>
<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>
<OPTION value="[出售]">[出售]</OPTION>
<OPTION value="[求购]">[求购]</OPTION>
<OPTION value="[招领]">[招领]</OPTION>
<OPTION value="[寻物]">[寻物]</OPTION>
</select></TD>
<TD width=80%> <input maxLength="40" size="60" name="title" value="<%=rs("hx66_title")%>" class="input"> *（限20个汉字）
</TD>
</TR>
<%if rs("hx66_vote")="1" then
qvote=conn.execute("select content from [hx66_Vote] where id="&aid&"")(0)
qvote=replace(qvote,"|",chr(10))%>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>显示投票选项</FONT><input type="checkbox" onclick=showvote() name="voteyn" value="1" <%if rs("hx66_vote")="1" then%>checked<%end if%>></TD>
<TD width=80%>(注意：此为投票贴，点击编辑修改提交后所有的投票将会清零！)</TD></TR>
<tr id=vote style="DISPLAY: <%if rs("hx66_vote")<>"1" then%>none<%end if%>">
<TD width=20% height=30><FONT color=#cc6600> 投票选项：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>最多可添加 <FONT color=red><%=bbscon%></FONT>个选项<br><FONT color=#b70000> <B>·</B></FONT>各个项目用回车隔开<br>
<FONT color=#b70000> <B>·</B></FONT><input type="radio" name="votetype" value="1" checked>单选 <input type="radio" name="votetype" value="2">多选<br>
<FONT color=#b70000> <B>·</B></FONT>过期时间：<select size="1" name="outtime" style="font-size: 9pt">
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一周</option>
<option value="15">半个月</option>
<option value="31">一个月</option>
<option value="93">三个月</option>
<option value="365">一年</option>
<option value="10000" selected>不过期</option>
</select></TD>
<TD width=80%> <textarea rows=7 name=vote style="width:78%;font-family: 宋体; font-size: 9pt"><%=qvote%></textarea></TD></TR><%end if%>
<tr>
<TD width=20% height=30 vAlign=top>
<FONT color=#cc6600> HTML编辑模式<BR> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML√<BR><FONT color=#b70000> <B>·</B></FONT>UBB ×<BR><FONT color=#cc6600> 特殊内容</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML状态禁用特殊功能</TD>
<TD width=80%><!--#include file="inc/gethtml.asp" --><script language="JavaScript" src="inc/code.js"></script>
<textarea name="body" cols="50" rows="50" id="content" style="display:none"><%=Server.HtmlEncode(rs("hx66_body"))%></textarea>
</td>
</tr>
<TR>
<TD colSpan=2 height=40>
<DIV align="center"><input type="submit" value="编辑修改" name="Submit"> <a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><img src="images/back.gif" border="0"></a></DIV></TD></TR></form>
</TBODY></TABLE>
<%
else
%>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
<TBODY>
<FORM name=FrontPage_Form1 onsubmit="return FrontPage_Form1_Validator(this)" action="bbs_edit.asp?type=save&bid=<%=bid%>&aid=<%=aid%>" method=post>
<tr>
<td width="60%" align="center" colSpan=2 height=30><b><%=username%></b> 在此编辑修改主题贴</td>
</tr>
<TR>
<TD width=20% height=30>
<FONT color=#cc6600> 标 题：</FONT><select size=1 name="about" onchange=DoTitle(this.options[this.selectedIndex].value)>
<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>
<OPTION value="[出售]">[出售]</OPTION>
<OPTION value="[求购]">[求购]</OPTION>
<OPTION value="[招领]">[招领]</OPTION>
<OPTION value="[寻物]">[寻物]</OPTION>
</select></TD>
<TD width=80%> <input maxLength="40" size="60" name="title" value="<%=rs("hx66_title")%>" class="input"> *（限20个汉字）
</TD>
</TR>
<%if rs("hx66_vote")="1" then
qvote=conn.execute("select content from [hx66_Vote] where id="&aid&"")(0)
qvote=replace(qvote,"|",chr(10))%>
<TR>
<TD width=20% height=30><FONT color=#cc6600> 显示投票选项</FONT><input type="checkbox" onclick=showvote() name="voteyn" value="1" <%if rs("hx66_vote")="1" then%>checked<%end if%>></TD>
<TD width=80%>(注意：此为投票贴，点击编辑修改提交后所有的投票将会清零！)</TD></TR>
<tr id=vote style="DISPLAY: <%if rs("hx66_vote")<>"1" then%>none<%end if%>">
<TD width=20% height=30><FONT color=#cc6600> 投票选项：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>最多可添加 <FONT color=red><%=bbscon%></FONT>个选项<br><FONT color=#b70000> <B>·</B></FONT>各个项目用回车隔开<br>
<FONT color=#b70000> <B>·</B></FONT><input type="radio" name="votetype" value="1" checked>单选 <input type="radio" name="votetype" value="2">多选<br>
<FONT color=#b70000> <B>·</B></FONT>过期时间：<select size="1" name="outtime" style="font-size: 9pt">
<option value="1">一天</option>
<option value="3">三天</option>
<option value="7">一周</option>
<option value="15">半个月</option>
<option value="31">一个月</option>
<option value="93">三个月</option>
<option value="365">一年</option>
<option value="10000" selected>不过期</option>
</select></TD>
<TD width=80%> <textarea rows=7 name=vote style="width:78%;font-family: 宋体; font-size: 9pt"><%=qvote%></textarea></TD></TR><%end if%>
<TR>
<TD width=20% height=30> <FONT color=#cc6600>文件上传：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>上传1文件需20积分</TD><TD width=80%><%if checknum(canupload)=1 or checkadmin(ckuname)>=3 then%><IFRAME name=ad src="upload.asp" frameBorder=0 width="100%" scrolling=no height=28></IFRAME><%else%> 上传文件功能已被管理员关闭<%end if%></td>
</TR>
<TR>
<TD width=20% height=30>
<FONT color=#cc6600> 字体字色：<BR> UBB 标签：</FONT></TD> <TD width=80%><!--#include file="inc/getubb.asp" --> <script language="JavaScript" src="inc/code.js"></script>
</td>
</TR>
<TR>
<TD vAlign=top width=20% height=30>
<P><FONT color=#cc6600> 内 容：</FONT><BR><FONT color=#b70000> <B>·</B></FONT>HTML×<BR><FONT color=#b70000> <B>·</B></FONT>UBB √</P><P> <FONT color=#cc6600>特殊内容</FONT><BR><FONT color=#b70000> <B>·</B></FONT><font title="内容只有版主可见" style="CURSOR: hand" onclick="FontType('[MASTER]','[/MASTER]')">悄悄话</font><BR><FONT color=#b70000> <B>·</B></FONT><font title="内容加锁，查看需要口令" style="CURSOR: hand" onclick="LockPassd()">密码锁</font><BR><font title="内容回复可见" style="CURSOR: hand" onclick="FontType('[showtoreply]','[/showtoreply]')"><FONT color=#b70000> <B>·</B></FONT>回复贴</font><BR><font title="会员论坛积分大于设定值可看" style="CURSOR: hand" onclick="point()"><FONT color=#b70000> <B>·</B></FONT>积分贴</font></P></TD>
<TD width=80%> <textarea name="body" rows="15" cols="74" class="input" id="Content" onkeydown=ctlent() title="可以使用Ctrl+Enter直接提交贴子"><%=rs("hx66_body")%></textarea>
</TD></TR>
<!--#include file="inc/bqimg.asp" -->
<TR>
<TD colSpan=2 height=40>
<DIV align="center"><input type="submit" value="编辑修改" name="Submit"> [可以用Ctrl+Enter直接提交贴子] <a href="<%=Request.ServerVariables("HTTP_REFERER")%>"><img src="images/back.gif" border="0"></a></DIV></TD></TR></form>
</TBODY></TABLE>
<%
end if
rs.close
set rs=nothing
%><BR>
</TD>
</TR>
</TABLE>
<%call bbs_foot()
conn.close
set conn=nothing
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?