📄 reannounce.asp
字号:
</td>
<td width=80% class=tablebody2><input name=subject size=70 maxlength=80 class=FormClass> <font color=<%=Forum_body(8)%>><b>*</b></font>不得超过 25 个汉字或50个英文字符
</td>
</tr>
<tr>
<td width=20% valign=top class=tablebody1><b>当前心情</b><br><li>将放在帖子的前面</td>
<td width=80% class=tablebody1>
<%for i=0 to Forum_PostFaceNum-1%>
<input type="radio" value="<%=Forum_PostFace(i)%>" name="Expression" <%if i=0 then response.write "checked"%>><img src="<%=forum_info(8)&Forum_PostFace(i)%>" >
<%if i>0 and ((i+1) mod 9=0) then response.write "<br>"%>
<%next%>
</td>
</tr>
<%if Cint(GroupSetting(7))=1 or Cint(GroupSetting(7))=3 then%>
<tr>
<td width=20% valign=top class=tablebody2>
<b>文件上传</b>
<select name="filetype" size=1>
<option value="">允许类型</option>
<%
dim iupload
iupload=split(Board_Setting(19),"|")
for i=0 to ubound(iupload)
response.write "<option value="&iupload(i)&">"&iupload(i)&"</option>"
next
%>
</select>
</td><td width=80% class=tablebody2>
<iframe name="ad" frameborder=0 width=100% height=24 scrolling=no src=saveannounce_upload.asp?boardid=<%=boardid%>></iframe>
</td></tr>
<%end if%>
<tr>
<td width=20% valign=top class=tablebody1>
<b>内容</b><br>
<li>HTML标签： <%=iif(Board_Setting(5),"可用","不可用")%>
<li>UBB标签： <%=iif(Board_Setting(6),"可用","不可用")%>
<li>贴图标签： <%=iif(Board_Setting(7),"可用","不可用")%>
<li>多媒体标签：<%=iif(Board_Setting(9),"可用","不可用")%>
<li>表情字符转换：<%=iif(Board_Setting(8),"可用","不可用")%>
<li>上传图片：<%=iif(Forum_Setting(3),"可用","不可用")%>
<li>最多<%=Board_Setting(16)\1024%>KB<BR><BR>
<B>特殊内容</B><BR>
<li><%=iif(Board_Setting(10),"<a href=""javascript:money()"" title=""使用语法：[money=可浏览该部分内容需要金钱数]内容[/money]"">金钱帖</a>","金钱帖：不可用")%>
<li><%=iif(Board_Setting(11),"<a href=""javascript:point()"" title=""使用语法：[point=可浏览该部分内容需要积分数]内容[/point]"">积分帖</a>","积分帖：不可用")%>
<li><%=iif(Board_Setting(12),"<a href=""javascript:usercp()"" title=""使用语法：[usercp=可浏览该部分内容需要魅力数]内容[/usercp]"">魅力帖</a>","魅力帖：不可用")%>
<li><%=iif(Board_Setting(13),"<a href=""javascript:power()"" title=""使用语法：[power=可浏览该部分内容需要威望数]内容[/power]"">威望帖</a>","威望帖：不可用")%>
<li><%=iif(Board_Setting(14),"<a href=""javascript:article()"" title=""使用语法：[post=可浏览该部分内容需要文章数]内容[/post]"">文章帖</a>","文章帖：不可用")%>
<li><%=iif(Board_Setting(15),"<a href=""javascript:replyview()"" title=""使用语法：[replyview]该部分内容回复后可见[/replyview]"">回复帖</a>","回复帖：不可用")%>
<li><%=iif(Board_Setting(23),"<a href=""javascript:usemoney()"" title=""使用语法：[usemoney=浏览该部分内容需要消耗的金钱数]内容[/usemoney]"">出售帖</a>","出售帖：不可用")%>
</td>
<td width=80% class=tablebody1>
<%if Cint(Board_Setting(4)) then%>
<!--#include file="inc/getubb.asp"-->
<%end if%>
<textarea class=smallarea cols=95 name=Content rows=12 wrap=VIRTUAL title=可以使用Ctrl+Enter直接提交贴子 class=FormClass onkeydown=ctlent()><%=server.htmlencode(content)%></textarea>
</td>
</tr>
<tr><script>function New(para_URL){var URL=new String(para_URL);window.open(URL,'','resizable,scrollbars')}</script>
<td class=tablebody1 valign=top colspan=2 style="table-layout:fixed; word-break:break-all"><b>点击动作即可在帖子中加入（<a href=JavaScript:New('dongz/index.htm') title=查看所有动作明细>相应的动作</a>）</B><br>
<a onclick="insertsmilie('/招呼')" style="CURSOR: hand">招呼</a>
<a onclick="insertsmilie('/欢迎')" style="CURSOR: hand">欢迎</a>
<a onclick="insertsmilie('/灌水')" style="CURSOR: hand">灌水</a>
<a onclick="insertsmilie('/无聊')" style="CURSOR: hand">无聊</a>
<a onclick="insertsmilie('/负责')" style="CURSOR: hand">负责</a>
<a onclick="insertsmilie('/生气')" style="CURSOR: hand">生气</a>
<a onclick="insertsmilie('/高兴')" style="CURSOR: hand">高兴</a>
<a onclick="insertsmilie('/鼓掌')" style="CURSOR: hand">鼓掌</a>
<a onclick="insertsmilie('/等待')" style="CURSOR: hand">等待</a>
<a onclick="insertsmilie('/反对')" style="CURSOR: hand">反对</a>
<a onclick="insertsmilie('/浪漫')" style="CURSOR: hand">浪漫</a>
<a onclick="insertsmilie('/不要')" style="CURSOR: hand">不要</a>
<a onclick="insertsmilie('/找死')" style="CURSOR: hand">找死</a>
<a onclick="insertsmilie('/去死')" style="CURSOR: hand">去死</a>
<a onclick="insertsmilie('/狂笑')" style="CURSOR: hand">狂笑</a>
<a onclick="insertsmilie('/傻笑')" style="CURSOR: hand">傻笑</a>
<a onclick="insertsmilie('/痛哭')" style="CURSOR: hand">痛哭</a>
<a onclick="insertsmilie('/道别')" style="CURSOR: hand">道别</a>
<a onclick="insertsmilie('/跳舞')" style="CURSOR: hand">跳舞</a>
<a onclick="insertsmilie('/失望')" style="CURSOR: hand">失望</a><br> <a onclick="insertsmilie('/害羞')" style="CURSOR: hand">害羞</a>
<a onclick="insertsmilie('/比酷')" style="CURSOR: hand">比酷</a>
<a onclick="insertsmilie('/救命')" style="CURSOR: hand">救命</a>
<a onclick="insertsmilie('/狂妄')" style="CURSOR: hand">狂妄</a>
<a onclick="insertsmilie('/拳击')" style="CURSOR: hand">拳击</a>
<a onclick="insertsmilie('/我踢')" style="CURSOR: hand">我踢</a>
<a onclick="insertsmilie('/我踩')" style="CURSOR: hand">我踩</a>
<a onclick="insertsmilie('/饶命')" style="CURSOR: hand">饶命</a>
<a onclick="insertsmilie('/眨眼')" style="CURSOR: hand">眨眼</a>
<a onclick="insertsmilie('/臭美')" style="CURSOR: hand">臭美</a>
<a onclick="insertsmilie('/变态')" style="CURSOR: hand">变态</a>
<a onclick="insertsmilie('/拼酒')" style="CURSOR: hand">拼酒</a>
<a onclick="insertsmilie('/深情')" style="CURSOR: hand">深情</a>
<a onclick="insertsmilie('/恶心')" style="CURSOR: hand">恶心</a>
<a onclick="insertsmilie('/惊讶')" style="CURSOR: hand">惊讶</a>
<a onclick="insertsmilie('/抽烟')" style="CURSOR: hand">抽烟</a>
<a onclick="insertsmilie('/怀疑')" style="CURSOR: hand">怀疑</a>
<a onclick="insertsmilie('/拉勾')" style="CURSOR: hand">拉勾</a>
<a onclick="insertsmilie('/经典')" style="CURSOR: hand">经典</a>
<a onclick="insertsmilie('/唱歌')" style="CURSOR: hand">唱歌</a><br>
<a onclick="insertsmilie('/ＯＫ')" style="CURSOR: hand">ＯＫ</a>
<a onclick="insertsmilie('/同意')" style="CURSOR: hand">同意</a>
<a onclick="insertsmilie('/生日')" style="CURSOR: hand">生日</a>
<a onclick="insertsmilie('/kiss')" style="CURSOR: hand">kiss</a>
<a onclick="insertsmilie('/晕倒')" style="CURSOR: hand">晕倒</a>
<a onclick="insertsmilie('/气你')" style="CURSOR: hand">气你</a>
<a onclick="insertsmilie('/错啦')" style="CURSOR: hand">错啦</a>
<a onclick="insertsmilie('/加油')" style="CURSOR: hand">加油</a>
<a onclick="insertsmilie('/恭喜')" style="CURSOR: hand">恭喜</a>
<a onclick="insertsmilie('/简单')" style="CURSOR: hand">简单</a>
<a onclick="insertsmilie('/鼓励')" style="CURSOR: hand">鼓励</a>
<a onclick="insertsmilie('/过奖')" style="CURSOR: hand">过奖</a>
<a onclick="insertsmilie('/原谅')" style="CURSOR: hand">原谅</a>
<a onclick="insertsmilie('/大笑')" style="CURSOR: hand">大笑</a>
<a onclick="insertsmilie('/感动')" style="CURSOR: hand">感动</a>
<a onclick="insertsmilie('/叹气')" style="CURSOR: hand">叹气</a>
<a onclick="insertsmilie('/道谢')" style="CURSOR: hand">道谢</a>
<a onclick="insertsmilie('/摇头')" style="CURSOR: hand">摇头</a>
<a onclick="insertsmilie('/点头')" style="CURSOR: hand">点头</a>
<a onclick="insertsmilie('/拥抱')" style="CURSOR: hand">拥抱</a>
</td>
</tr>
<tr>
<td class=tablebody1 valign=top colspan=2 style="table-layout:fixed; word-break:break-all"><b>点击表情图即可在帖子中加入相应的表情</B><br>
<%
dim ii
for i=0 to 12
if len(i)=1 then ii="0" & i else ii=i
response.write "<img src="""&Forum_info(10)&Forum_emot(i)&""" border=0 onclick=""insertsmilie('[em"&ii&"]')"" style=""CURSOR: hand""> "
next
%>
</td>
</tr>
<tr>
<td valign=top class=tablebody1><b>选项</b></td>
<td valign=middle class=tablebody1><input type=checkbox name=signflag value=yes checked>是否显示您的签名？<br>
<input type=checkbox name=emailflag value=yes>有回复时使用邮件通知您？</font>
<BR><BR></td>
</tr><tr>
<td valign=middle colspan=2 align=center class=tablebody2>
<input type=Submit value='发 表' name=Submit> <input type=button value='预 览' name=Button onclick=gopreview()>
<input type=reset name=Submit2 value='清 除'>
</td></form></tr>
</table>
</form>
<form name=preview action=preview.asp?boardid=<%=boardid%> method=post target=preview_page>
<input type=hidden name=title value=><input type=hidden name=body value=>
</form>
<hr width=<%=Forum_body(12)%> size=1>
<%
sql="Select top 10 b.UserName,b.Topic,b.dateandtime,b.body,b.announceid,b.isbest,u.lockuser,u.UserGroupID,b.postbuyuser from "&TotalUseTable&" b inner join [user] u on b.postuserid=u.userid where b.boardid="&boardid&" and b.rootid="&Announceid&" and b.locktopic<2 order by b.announceid desc"
set rs=conn.execute(sql)
do while not rs.eof
PostUserGroup=rs("UserGroupID")
postbuyuser=rs("postbuyuser")
if bgcolor="tablebody1" then
bgcolor="tablebody2"
abgcolor="tablebody1"
else
bgcolor="tablebody1"
abgcolor="tablebody2"
end if
%>
<TABLE border=0 width=<%=Forum_body(12)%> align=center>
<TBODY>
<TR>
<TD valign=middle align=top class=<%=bgcolor%>>
-- 作者：<%=htmlencode(rs("username"))%><br>
-- 发布时间：<%=rs("dateandtime")%><br><br>
-- <%=htmlencode(rs("topic"))%><br>
<%
if rs("lockuser")=2 then
response.write "该用户发言已被屏蔽"
elseif rs("isbest")=1 and Cint(GroupSetting(41))=0 then
response.write "您没有浏览该精华帖子的权限"
else
response.write dvbcode(rs("body"),PostUserGroup,1)
end if
%>
</TD></TR></TBODY></TABLE>
<hr size=1 class=tableborder1>
<%
rs.movenext
loop
set rs=nothing
call activeonline()
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -