📄 admin_bbsshow.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=4
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="../inc/function.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="../inc/webconfig.asp" -->
<%
dim bookid,readd,rebookid,redel,passok
bookid=trim(request("bookid"))
readd=trim(request("readd"))
rebookid=trim(request("rebookid"))
redel=trim(request("redel"))
passok=trim(request("passok"))
if bookid<>"" then
if readd="add" then
dim renews,rs
set rs=server.createobject("ADODB.Recordset")
rs.open"select * from reuserbook",conn,1,3
rs.addnew
rs("reusid")=trim(request.form("reusid"))
rs("redate")=trim(request.form("redate"))
rs("reconten")=trim(request.form("reconten"))
rs("reface")=trim(request.form("reface"))
rs("bookid")=bookid
rs("reIP")=Request.ServerVariables("REMOTE_ADDR")
rs("bbsclass")=trim(request.form("bbsclass"))
rs.update
rs.close
set rs=nothing
end if
end if
if rebookid<>"" then
if redel="del" then
dim sql,rsbook,retimes
sql="delete * from ReUserBook where rebookid="&rebookid&""
conn.execute sql
set rsbook=server.createobject("ADODB.Recordset")
rsbook.open"select bookid,retimes from UserBook where bookid="&bookid&"",conn,1,3
retimes=int(rsbook("retimes"))-1
rsbook("retimes")=retimes
rsbook.update
end if
if passok="passok" then
conn.execute"update ReUserBook set passok=true where rebookid="&rebookid&""
end if
end if
dim usid,title,face,content,datetime,visitetimes
dim recontent,redate,reIP,reusid,reface
dim ors1
set ors1=conn.Execute("select visitetimes from userbook where bookid="&bookid&"")
if ors1.bof or ors1.eof then
response.write"<div align='center'><br><br>没有你想要的文章！</div>"
call closeconn()
response.end()
else
visitetimes=ors1("visitetimes")+1
conn.Execute"Update userbook set visitetimes='"&visitetimes&"' where bookid="&bookid&""
ors1.close
set ors1=nothing
end if
dim reors
set reors=server.CreateObject("ADODB.Recordset")
reors.open"select * from userbook where bookid="&bookid&"",conn,1,1
if reors.bof or reors.eof then
response.write"<div align='center'><br><br>没有你想要的文章！</div>"
call closeconn()
response.end()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=webText%>:BBS主题：<%=reors("title")%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function checkrenews()
{
if(window.document.form1.reusid.value=="")
{
alert("回复者名称不能为空！");
return false;
}
if(window.document.form1.reconten.value=="")
{
alert("回复内容不能为空！");
return false;
}
}
function contenlen()
{
var len=window.document.form1.reconten.value.length;
if(len<10)
{
alert("你写得太少了，有灌水之嫌！");
return false;
}
}
function BBSDel()
{
if (confirm("你确定要删除这个主题吗？一旦删除，回复也会被删除，将不能恢复！"))
return true;
else
return false;
}
</script>
</head>
<body>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F5F8F5">
<tr>
<td align="center" class="txt1">主题：<%=reors("title")%>
<% if reors("tellself")=true then %>
[<font color="#006600">悄悄话</font>]
<%end if%>
</td>
</tr>
<tr>
<td align="center" class="txt03">（共有 <font color="#FF9900"><%=reors("retimes")%></font> 条回复,有 <font color="#ff9900"><%=reors("visitetimes")%></font> 人阅读了此贴）
［<a href="#renews">回复</a>］
［<a href="admin_BbsManage.asp">返回</a>］</td>
</tr>
<tr>
<td class="txt03">作者：<%=reors("usid")%> 当时心情： <img src="../<%=reors("face")%>" width="22" height="22"> 发表时间：<%=reors("datetime")%></td>
</tr>
<tr>
<td class="txt04">主题内容：</td>
</tr>
<tr>
<td class="txt03">
<% if reors("tellself")=true then %>
<font color="#006699">此主题为悄悄话！</font>
<%else%>
<%=reors("content")%> <br>
<%end if%></td>
</tr>
<% reors.close
set reors=nothing
%>
<% dim reors1
set reors1=server.createobject("ADODB.Recordset")
reors1.open"select * from reuserbook where bookid="&bookid&" order by rebookid Desc",conn,1,1
%>
<% if reors1.eof or reors1.bof then %>
<tr>
<td class="txt05">本主题还没有人回复！ </td>
</tr>
<%else%>
<% do while not reors1.eof %>
<tr>
<td class="txt05">回复者：<%=reors1("reusid")%> 当时心情：<img src="../<%=reors1("reface")%>" width="22" height="22"> 回复时间： <%=reors1("redate")%> ［<a href="admin_BbsShow.asp?rebookid=<%=reors1("rebookid")%>&bookid=<%=reors1("bookid")%>&redel=del" onclick="return BBSDel();">删除</a>］
<input name="redel" type="hidden" id="redel" value="del">
<%if reors1("passok")=false then%>[<a href="admin_BbsShow.asp?rebookid=<%=reors1("rebookid")%>&bookid=<%=reors1("bookid")%>&passok=passok"><span class="txt06">审核</span></a>]<input name="passok" type="hidden" id="passok" value="passok"><%else%>已审核<%end if%></td>
</tr>
<tr>
<td class="txt03"> 回复内容：</td>
</tr>
<tr>
<td class="txt02"> <%=reors1("reconten")%></td>
</tr>
<tr>
<td align="right" class="txt02"> 回复者IP：<%=reors1("reIP")%> </td>
</tr>
<% reors1.movenext
loop %>
<%end if%>
<%reors1.close
set reors1=nothing
%>
<tr>
<td><a name="renews"></a></td>
</tr>
<%dim ors
set ors=server.createobject("ADODB.Recordset")
ors.open"select locknews,bbsclass from userbook where bookid="&bookid&"",conn,1,1
if ors("locknews")=true then
response.write"<div align='center' class='txt04'>本主题已锁定，不能回复!<br></div>"
else
%>
<tr>
<td align="center"><form name="form1" method="post" action="" onsubmit="return checkrenews();">
<label></label>
<table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F5F5F3">
<tr>
<td align="center" class="txt">添加新回复</td>
</tr>
<tr>
<td class="txt1">回复者名称：
<input name="reusid" type="text" class="but" id="reusid" value="<%=session("adminname")%>" maxlength="50">
回复时间：
<input name="redate" type="text" class="but" id="datetime2" value="<%=now()%>"></td>
</tr>
<tr>
<td valign="top" class="txt1"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="13%" rowspan="2" class="txt1">当前心情：</td>
<td width="87%" class="txt02"><input name="reface" type="radio" value="images/face1.gif" checked>
<img src="../images/face1.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face2.gif">
<img src="../images/face2.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face3.gif">
<img src="../images/face3.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face4.gif">
<img src="../images/face4.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face5.gif">
<img src="../images/face5.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face6.gif">
<img src="../images/face6.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face7.gif">
<img src="../images/face7.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face8.gif">
<img src="../images/face8.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face17.gif">
<img src="../images/face17.gif" width="22" height="22"></td>
</tr>
<tr>
<td class="txt02"><input type="radio" name="reface" value="images/face9.gif">
<img src="../images/face9.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face10.gif">
<img src="../images/face10.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face11.gif">
<img src="../images/face11.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face12.gif">
<img src="../images/face12.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face13.gif">
<img src="../images/face13.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face14.gif">
<img src="../images/face14.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face15.gif">
<img src="../images/face15.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face16.gif">
<img src="../images/face16.gif" width="22" height="22">
<input type="radio" name="reface" value="images/face18.gif">
<img src="../images/face18.gif" width="22" height="22"></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="middle" class="txt1"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="14%" class="txt1">回复内容：</td>
<td width="86%" align="center" class="txt02"><textarea name="reconten" cols="60" rows="10" class="but" id="textarea" onblur="contenlen()"></textarea></td>
</tr>
</table></td>
</tr>
<tr>
<td align="center" valign="middle" class="txt1"><input name="Submit" type="submit" class="but" value="发表">
<input name="Submit2" type="reset" class="but" value="全部重写">
<input name="readd" type="hidden" id="readd" value="add">
<input name="bbsclass" type="hidden" id="bbsid" value="<%=ors("bbsclass")%>">
</td>
</tr>
<tr>
<td align="right" class="txt05">［<a href="#top">顶部</a>］</td>
</tr>
</table>
</form>
<%
end if
ors.close
set ors=nothing
call closeconn()
%>
</td>
</tr>
</table></td>
</tr>
</table>
<% end if %>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -