📄 forum_announce.asp
字号:
<!--#include file=INC/skin.asp-->
<!--#include file=INC/Forum_bbsfun.asp-->
<!--#include file=INC/UbbCode.asp-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
'on error resume next
dim const_txl_HomeUrl,errstr,i,BoardID,BoardName,boardexist,announceexist,announceid,sql,page
errstr=""
boardexist=false
announceexist=false
const_txl_HomeUrl=""
BoardID=Request.QueryString("BoardID")
announceid=Request.QueryString("announceid")
IF BoardID="" or (not isnumeric(BoardID)) Then
Response.Redirect("index.asp")
Response.End
End IF
IF announceid="" or (not isnumeric(announceid)) Then
Response.Redirect("index.asp")
Response.End
End IF
page=Request.QueryString("page")
if page="" or (not isnumeric(page)) Then
page=1
end if
page=Cint(page)
call OpenDatabase
getBoardName
call txl_SiteHead(const_txlname&"-影音论坛-"&BoardName)
Response.Flush()
call online
If Request.QueryString("action")="replybbs" Then
Call replybbs
Else
Call main
End If
Response.Flush()
call CloseDatabase
call web_end
Response.Flush()
Sub main
If const_bbs_login_limit=1 Then '论坛登录查看限制
If session("username")="" Then
errstr="<li>当前Wap影音状态已经设置为<font color=red>影音论坛只有登录之后才能看到</font>!</li>"
errstr=errstr&"<li>你现在还没有登录或者会话超时,点<a href='user_login.asp'>这里登录</a>!</li>"
errstr=errstr&"<li>如果还有疑问请与管理员联系!</li>"
Call printerror("查看影音论坛出错！",errstr,779)
Exit Sub
End If
End If
IF not boardexist then
errstr="<li>不存在标号为"&BoardID&"的论坛版面,该版面可能已经被删除</li>"
errstr=errstr&"<li>请选择<a href='index.asp'>影音论坛</a>重新进入论坛版面</li>"
Call printerror("读取论坛版面出错",errstr,779)
exit sub
end if
Dim rs
set rs=server.createobject("Adodb.Recordset")
rs.open "select Announce.*,ec.studentid,ec.sign from Announce,ec where ec.studentid=Announce.username and ID="&announceid&" and parentID=0 and boardid="&boardid,conn,1
if rs.eof then
announceexist=false
else
announceexist=true
end if
IF not announceexist then
errstr="<li>不存在标号为"&announceid&"的论坛帖子,该帖子可能已经被删除</li>"
errstr=errstr&"<li>请选择<a href='Forum_BoardList.asp?boardid="&boardid&"'>"&BoardName&"</a>重新查看论坛帖子</li>"
Call printerror("读取论坛帖子出错",errstr,779)
exit sub
end if
%>
<table width="779" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="" style="padding:5px;vertical-align:top; ">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td class="rig1"><strong> 当前位置： <a href="<%=const_homepageurl%>">首页</a>
>> <a href="<%=const_txl_HomeUrl&const_txlurl%>"><%=const_txlname%></a>
>> <a href="forum.asp">影音论坛</a> >><a href="Forum_BoardList.asp?boardid=<%=boardid%>"><%=BoardName%></a>
>>查看帖子</strong></td>
<td height="25" class="more">
<marquee direction="left" loop="-1" scrollamount="2" width="100" onMouseOver="this.stop()" onmouseout="this.start()">
<%Call BBSNotic(BoardID)%>
</marquee> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" class="liu">
<tr>
<td width="70"><a href="Forum_newannounce.asp?boardid=<%=boardid%>"><img src="images/newanc.gif" alt="发布新帖" width="60" height="17" border="0"></a></td>
<td width="262"><a href="#reply"><img src="images/reanc.gif" alt="回复本帖" width="60" height="17" border="0"></a></td>
<td width="262">
<%Call get_up_down_Announce(announceid)%>
</td>
<td width="179" align="right" class="rig"> 版主：
<%Call showbbsmaster(boardid)%>
</td>
</tr>
</table>
<%
dim title
title=rs("title")
if len(title)>40 then title=left(title,38)&"……"
%>
<table width="100%" align="center" cellspacing="0" style="border-collapse:collapse;">
<tr>
<td class="blu"><font color="#FFFFFF">主题：<%=title%></font> </td>
<td bgcolor="#576F9F" class="more"><font color="#FFFFFF">您是本帖的第<%=rs("hits")%>位浏览者</font></td>
</tr>
</table>
<%If page=1 then
conn.execute ("update Announce set hits=hits+1 where id="&announceid)
%>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#cccccc" bgcolor="#FFFFFF" style="border-collapse:collapse;">
<tr>
<td width="20%" rowspan="2" valign="top" class="td4">
<%call bbs_user_info(rs("username"))%>
</td>
<td class="content"> 发表于:<span class="small"><%=rs("ndatetime")%></span> <a style='cursor:hand' href=javacript:; onclick="javascript:winsteps_open_window('user_showpermsg.asp?towho=<%=rs("username")%>&action=showsendmsgfrm',520,300);return false"><img src="images/message.gif" alt="发短信给<%=rs("username")%>" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=edit&announceid=<%=announceid%>"><img src="images/edit.gif" alt="编辑此帖" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=del&announceid=<%=announceid%>" onClick="return confirm('这个操作将删除主题帖以及下面的回复帖，你确认吗？')"><img src="images/Del.gif" alt="删除此帖" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=jinghua&announceid=<%=announceid%>"><img src="images/jh.gif" alt="设置或者取消精华帖" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=makealltop&announceid=<%=announceid%>"><img src="images/makealltop.gif" alt="设置或取消固顶帖" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=maketop&announceid=<%=announceid%>"><img src="images/maketop.gif" alt="设置或取消顶帖" width="16" height="16" border="0" align="absmiddle"></a></td>
<td width="10%" align="center" class="rig1">楼主<span class="small" style="color:#FF0000;">(<%=rs("replys")&"/"&rs("hits")%>)</span></td>
</tr>
<tr>
<td colspan="2" valign="top" style="padding:5px;"> <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#576F9F">
<tr>
<td valign="top"> <p><b><%=BadWords_Deal(rs("title"))%></b><br>
<br>
<%=BadWords_Deal(rs("printcontent"))%></p>
<%
'''''''投票''''''''
Call displaypoll(Rs)
%>
<p align="right" style="color:gray;font-size:11px"><%=rs("changestr")%></p></td>
</tr>
<tr width="1">
<td width="1" bgcolor="#576F9F"></td>
</tr>
<tr>
<td height="22"><img src="images/signature.gif" width="500" height="17"><br>
<% Response.Write UBBCode(rs("sign"),1)%>
</td>
</tr>
<tr width="1">
<td width="1" bgcolor="#576F9F"></td>
</tr>
</table></td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing
set rs=Server.CreateObject("Adodb.Recordset")
sql="select Announce.*,ec.studentid,ec.sign from Announce,ec where ec.studentid=Announce.username and parentID="&Announceid&" and boardid="&boardid&" order by id asc"
rs.open sql,conn,1
dim row
row = false
dim RecordCount2,LinkFile,displaypagenum,PageSize2,k,PageCount2
RecordCount2=rs.recordcount
LinkFile="?boardid="&boardid&"&announceid="&announceid&"&"
displaypagenum=10
pagesize2=10
rs.pagesize=PageSize2
PageCount2=rs.pagecount
If not rs.eof then
rs.absolutepage=page
end if
k=0
while not rs.eof and k<pagesize2
k=k+1
%>
<table width="100%" border="1" align="center" cellpadding="1" cellspacing="0" bordercolor="#cccccc" bgcolor="#<%if row=true then response.Write("ffffff") else response.Write("f7f7f7")%>" style="border-collapse:collapse;">
<tr>
<td width="20%" rowspan="2" valign="top" class="td4">
<%call bbs_user_info(rs("username"))%>
</td>
<td class="content"> 发表于:<span class="small"><%=rs("ndatetime")%></span> <a style='cursor:hand' href=javacript:; onclick="javascript:winsteps_open_window('user_showpermsg.asp?towho=<%=rs("username")%>&action=showsendmsgfrm',520,300);return false"><img src="images/message.gif" alt="发短信给<%=rs("username")%>" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=edit&announceid=<%=rs("id")%>"><img src="images/edit.gif" alt="编辑此帖" width="16" height="16" border="0" align="absmiddle"></a>
<a href="forum_dealannounce.asp?action=del&announceid=<%=rs("id")%>" onClick="return confirm('这个操作将删除这个回复帖，你确认吗？')"><img src="images/Del.gif" alt="删除此帖" width="16" height="16" border="0" align="absmiddle"></a></td>
<td width="10%" align="center" class="rig1">第<%=(page-1)*pagesize2+k+1%>楼</td>
</tr>
<tr>
<td height="86%" colspan="2" valign="top" style="padding:5px;">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#576F9F">
<tr>
<td height="120" class="content">
<%=BadWords_Deal(rs("printcontent"))%>
<p align="right" style="color:gray;font-size:11px"><%=rs("changestr")%></p>
</td>
</tr>
<tr>
<td><img src="images/signature.gif" width="500" height="17"><br>
<% Response.Write UBBCode(rs("sign"),1)%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
row = not row
rs.movenext
wend
%>
<table width="779" align="center" border="0" cellpadding="8" cellspacing="0" bgcolor="#FFFFFF" class="liu">
<tr>
<td width="87%"><%=ShowPage(PageCount2,RecordCount2,page,PageSize2,LinkFile,displaypagenum) %></td>
<td width="13%">
<%Call changeboard%>
</td>
</tr>
</table>
<script>
var submitflag=false
function addcontent(str1,str2)
{
form1.Form_Content.focus();
if ((document.selection)&&(document.selection.type== "Text"))
{
var range= document.selection.createRange();
var ch_text=range.text;
range.text= str1 + ch_text + str2;
}
else
{
document.form1.Form_Content.value=document.form1.Form_Content.value+str1+str2;
form1.Form_Content.focus();
}
}
function check_Csk3000_form(Csk3000_frm)
{
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -