?? reannounce.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/char_board.asp" -->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc/ubbcode.asp"-->
<%
dim AnnounceID
dim replyID
dim username
dim dateandtime
dim bgcolor,abgcolor
dim PostUserGroup
dim con,content
dim TotalUseTable
dim postbuyuser
if BoardID="" or not isInteger(BoardID) or BoardID=0 then
Errmsg=Errmsg+"<br>"+"<li>錯誤的版面參數！請確認您是從有效的連接進入。"
founderr=true
else
BoardID=clng(BoardID)
end if
if request("id")="" then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>請指定相關貼子。"
elseif not isInteger(request("id")) then
founderr=true
Errmsg=Errmsg+"<br>"+"<li>非法的貼子參數。"
else
AnnounceID=request("id")
end if
if request("replyid")="" then
replyid=Announceid
elseif not isInteger(request("replyid")) then
replyid=Announceid
else
replyid=request("replyid")
end if
if founderr then
call nav()
call head_var(2,0,"","")
call dvbbs_error()
else
stats="回復帖子"
call nav()
call head_var(1,BoardDepth,0,0)
call main()
if founderr then call dvbbs_error()
end if
call footer()
sub main()
if Cint(Board_Setting(43))=1 then
Errmsg=Errmsg+"<br>"+"<li>本論壇已經被管理員限制了不允許發貼。"
founderr=true
exit sub
end if
if cint(Board_Setting(1))=1 then
if Cint(GroupSetting(37))=0 then
Errmsg=ErrMsg+"<Br>"+"<li>您沒有權限進入隱含論壇！"
founderr=true
exit sub
end if
end if
if cint(Board_Setting(2))=1 then
if not founduser then
Errmsg=Errmsg+"<br>"+"<li>本論壇為認證論壇，請<a href=login.asp>登陸</a>并確認您的用戶名已經得到管理員的認證后進入。"
founderr=true
exit sub
else
if chkboardlogin(boardid,membername)=false then
Errmsg=Errmsg+"<br>"+"<li>本論壇為認證論壇，請確認您的用戶名已經得到管理員的認證后進入。"
founderr=true
exit sub
end if
end if
end if
set rs=conn.execute("select PostTable,locktopic from topic where TopicID="&AnnounceID)
if not (rs.eof and rs.bof) then
if rs(1)=1 or rs(1)=2 then
Errmsg=Errmsg+"<br>"+"<li>本主題已被鎖定或者刪除，不能發表回復。"
founderr=true
exit sub
end if
TotalUseTable=rs(0)
else
ErrMsg=ErrMsg+"<br>"+"<li>您指定的貼子不存在</li>"
founderr=true
exit sub
end if
if replyid=Announceid then
set rs=conn.execute("select top 1 Announceid from "&TotalUseTable&" where rootID="&AnnounceID&" order by Announceid")
if not(rs.bof and rs.eof) then
replyID=rs(0)
else
ErrMsg=ErrMsg+"<br>"+"<li>您指定的貼子不存在</li>"
founderr=true
exit sub
end if
end if
sql="select b.body,b.topic,b.locktopic,b.username,b.dateandtime,b.isbest,u.lockuser,u.UserGroupID from "&TotalUseTable&" b inner join [user] u on b.postuserid=u.userid where b.AnnounceID="&replyID
set rs=conn.execute(sql)
if rs.eof and rs.bof then
Errmsg=Errmsg+"<br>"+"<li>沒有找到相關帖子。"
founderr=true
exit sub
else
if rs("locktopic")=1 or rs("locktopic")=2 then
Errmsg=Errmsg+"<br>"+"<li>本主題已被鎖定或者刪除，不能發表回復。"
founderr=true
exit sub
elseif rs("lockuser")=2 then
con=""
elseif rs("isbest")=1 and Cint(GroupSetting(41))=0 then
con=""
else
con=rs("body")
end if
username=rs("username")
dateandtime=rs("dateandtime")
PostUserGroup=rs("UserGroupID")
if username=membername then
if Cint(GroupSetting(4))=0 then
Errmsg=Errmsg+"<br>"+"<li>您沒有在本論壇回復自己主題的權限。"
founderr=true
exit sub
end if
else
if Cint(GroupSetting(5))=0 then
Errmsg=Errmsg+"<br>"+"<li>您沒有在本論壇回復其他人帖子的權限，請<a href=login.asp>登陸</a>或者同管理員聯系。"
founderr=true
exit sub
end if
if Cint(GroupSetting(2))=0 then
Errmsg=Errmsg+"<br>"+"<li>您沒有瀏覽在本論壇查看其他人發布的帖子的權限，請<a href=login.asp>登陸</a>或者同管理員聯系。"
founderr=true
exit sub
end if
end if
end if
set rs=nothing
if request("reply")="true" then
con = reubbcode(con)
con = replace(con, ">", ">")
con = replace(con, "<", "<")
con = Replace(con, "</P><P>", CHR(10) & CHR(10))
con = Replace(con, "<BR>", CHR(10))
content = "[quote][b]以下是引用[i]"&username&"在"&dateandtime&"[/i]的發言：[/b]" & chr(13)
content = content & con & chr(13)
content = content & "[/quote]"
else
content=""
end if
%>
<script src="inc/ubbcode.js"></script>
<form action="SaveReAnnounce.asp?method=Topic&boardID=<%=request("boardid")%>" method=POST onSubmit="submitonce(this)" name=frmAnnounce>
<input type="hidden" name="upfilerename">
<input type=hidden name="followup" value="<%=replyID%>">
<input type=hidden name="rootID" value="<%=AnnounceID%>">
<input type=hidden name="star" value="<%=request("star")%>">
<input type=hidden name="TotalUseTable" value="<%=TotalUseTable%>">
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
<tr>
<th width=100% align=left colspan=2> 發表回復<%if isaudit=1 then%>（本版面所有帖子都要經過管理員審核方可發表）<%end if%></th>
</tr>
<tr>
<td width=20% class=tablebody1><b>用戶名</b></td>
<td width=80% class=tablebody1><input name=username value=<%=membername%> class=FormClass> <font color=<%=Forum_body(8)%>><b>*</b></font><a href=reg.asp>您沒有注冊？</a>
</td>
</tr>
<tr>
<td width=20% class=tablebody1><b>密碼</b></td>
<td width=80% class=tablebody1><input name=passwd type=password value=<%=htmlencode(memberword)%> class=FormClass><font color=<%=Forum_body(8)%>> <b>*</b></font><a href=lostpass.asp>忘記密碼？</a></td>
</tr>
<tr>
<td width=20% class=tablebody1><b>主題標題</b>
<SELECT name=font 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></SELECT>
</td>
<td width=80% class=tablebody1><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>
<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(GroupSetting(7))=1 then%>
<iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src="saveannounce_upload.asp?boardid=<%=boardid%>"></iframe>
<%end if%>
<%if Cint(Board_Setting(4)) then%>
<!--#include file="inc/getubb.asp"-->
<%end if%>
<br>
<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>
<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 + -