📄 showpost.asp
字号:
<%elseif PermissionReply=1 then%>
<a href="AddPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="回复帖子">回复</a>
<%end if%>
<a href="EditPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="编辑帖子">编辑</a>
<a href="DelPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="删除帖子">删除</a>
</div>
</td>
</tr>
<tr class="CommonListCell">
<td>
<%
if Subject<>"" then response.write "<div class=ForumPostTitle>"&Subject&"</div>"
response.write "<div class=ForumPostContentText>"&BBCode(Body)&"</div>"
%>
<div style="float:right">
<%if PermissionManage=1 then response.write "IP："&IPAddress&" "%>
<%if IsLocked=0 and PermissionReply=1 then response.write "<a onclick=javascript:QuickReply("&PostID&")>快速回复</a>"%>
</div>
</td>
</tr>
</table>
<%
End Sub
Sub ShowPost()
Set Rs=Execute("Select top 1 * from ["&TablePrefix&"Users] where UserName='"&PostAuthor&"'")
if Rs.EOF then
Rs.close
Exit Sub
End if
%>
<div class="PopupMenu" id="ContactMenu<%=PostID%>" style="DISPLAY: none">
<table cellspacing="0" cellpadding="1">
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/profile.gif)" href="Profile.asp?UID=<%=Rs("UserID")%>">查看 <%=Rs("UserName")%> 的资料</a></td>
</tr>
<%if CookieUserName<>"" then%><tr>
<td><a style="BACKGROUND-IMAGE:url(images/privatemessage.gif)" href="javascript:BBSXP_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=<%=Rs("UserName")%>', 600, 350);">给 <%=Rs("UserName")%> 发送讯息</a></td>
</tr>
<%end if%>
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/email.gif)" href="Mailto:<%=Rs("UserEmail")%>">给 <%=Rs("UserName")%> 发送邮件</a></td>
</tr>
<%if Rs("WebAddress")<>"" then%><tr>
<td><a style="BACKGROUND-IMAGE:url(images/homepage.gif)" href="<%=Rs("WebAddress")%>" target="_blank">浏览 <%=Rs("UserName")%> 的主页</a></td>
</tr>
<%end if%> <%if Rs("WebLog")<>"" then%><tr>
<td><a style="BACKGROUND-IMAGE:url(images/weblog.gif)" href="<%=Rs("WebLog")%>" target="_blank">浏览 <%=Rs("UserName")%> 的博客</a></td>
</tr>
<%end if%> <%if Rs("WebGallery")<>"" then%><tr>
<td><a style="BACKGROUND-IMAGE:url(images/webgallery.gif)" href="<%=Rs("WebGallery")%>" target="_blank">浏览 <%=Rs("UserName")%> 的相册</a></td>
</tr>
<%end if%>
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/search.gif)" href="ShowBBS.asp?menu=MyTopic&UserName=<%=Rs("UserName")%>">搜索 <%=Rs("UserName")%> 的帖子</a></td>
</tr>
</table>
</div>
<%if ""&CookieUserName&""<>"" then%>
<div class="PopupMenu" id="FavoriteMenu<%=PostID%>" style="DISPLAY: none">
<table cellspacing="0" cellpadding="1">
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/favorite.gif)" href="javascript:Ajax_CallBack(false,false,'MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=Rs("UserName")%>',true);">将 <%=Rs("UserName")%> 加为好友</a></td>
</tr>
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/favorite.gif)" href="javascript:Ajax_CallBack(false,false,'MyFavorites.asp?menu=FavoritePost&PostID=<%=PostID%>',true);">将该帖子加入收藏夹</a></td>
</tr>
<tr>
<td><a style="BACKGROUND-IMAGE:url(images/favorite.gif)" href="javascript:Ajax_CallBack(false,false,'MyFavorites.asp?menu=FavoriteForums&ForumID=<%=ForumID%>',true);">将该论坛加入收藏夹</a></td>
</tr>
</table>
</div>
<%end if%>
<a name="<%=PostID%>"></a>
<table cellspacing="1" cellpadding="5" width="100%" class="CommonListArea">
<tr class="CommonListTitle">
<td>
<div style=float:left><img src="images/icon_post_show.gif" /> <%=PostDate%></div>
<div style=float:right>[<a href="?ThreadID=<%=ThreadID%>&PostAuthor=<%=PostAuthor%>" title="只看该作者的帖子">只看该作者</a>] <a href="?PostID=<%=PostID%>" title="只看该帖子">#<%=i+(PageCount-1)*PageSetup+1%></a><%if PermissionManage=1 then response.write("<input type=checkbox value="&PostID&" name=PostID onclick="&chr(34)&"CheckSelected(this.form,this.checked,'Post"&PostID&"')"&chr(34)&">")%></div>
</td>
</tr>
<tr class="CommonListCell" id="Post<%=PostID%>">
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="padding-left:5px;TABLE-LAYOUT:fixed;">
<tr>
<td rowspan="2" valign="top" class="ForumPostUserArea">
<div style="text-align:left;width:90%;">
<div style="float:left">
<%if DateDiff("n",Rs("UserActivityTime"),Now()) < SiteConfig("UserOnlineTime") then%>
<img title="<%=Rs("UserName")%> 在线. 最后活动时间:<%=Rs("UserActivityTime")%>" src="Images/user_IsOnline.gif" border="0" />
<%end if%>
<font style="font-size:10pt"><b><%=Rs("UserName")%></b></font><br /><%=Rs("UserTitle")%>
</div>
<%if SiteConfig("EnableReputation")=1 then%>
<div style="float:right">
<a href="javascript:BBSXP_Modal.Open('Reputation.asp?CommentFor=<%=Rs("UserName")%>',550,200);"><img title="对 <%=Rs("UserName")%> 进行声望评价" src="Images/reputation.gif" border="0" align="absmiddle" /></a>
</div>
<%
end if
response.write "<br /><br /><br /><div style='text-align:center;'>"
if SiteConfig("EnableAvatars")=1 and SiteConfig("AllowAvatars")=1 then response.write "<img src='"&Rs("UserFaceUrl")&"' style='max-width:"&SiteConfig("AvatarWidth")&"px;max-height:"&SiteConfig("AvatarHeight")&"px;' /><br />"
if Rs("UserRank")<>"" then response.write "<br />"&Rs("UserRank")&"<br />"
response.write "<br /></div>角 色："
if instr("|"&Moderated&"|","|"&Rs("UserName")&"|") > 0 then
Response.Write "版主"
else
response.write ShowRole(Rs("UserRoleID"))
end if
if Rs("UserMate")<>"" then response.write "<br />配 偶："&Rs("UserMate")&""
response.write "<br />发 帖 数："&Rs("TotalPosts")&""
response.write "<br />经 验 值："&Rs("experience")&""
response.write "<br />注册时间："&FormatDateTime(Rs("UserRegisterTime"),2)&"<br />"
response.write "<img src=images/money.gif title='金币:"&Rs("UserMoney")&"'> "&ShowReputation(Rs("Reputation"))&" "&ShowUserActivityDay(Rs("UserActivityDay"))&" "&Horoscope(Rs("birthday"))&" "&ShowUserSex(Rs("UserSex"))&""
%>
</div>
</td>
<td valign="top">
<div class=ForumPostButtons>
<a class="CommonImageTextButton" style="BACKGROUND-IMAGE: url(images/contact.gif)" onmouseover="MouseOverOpen('ContactMenu<%=PostID%>',this.id);" id="Contact<%=PostID%>">联系</a>
<%if ""&CookieUserName&""<>"" then%><a class="CommonImageTextButton" style="BACKGROUND-IMAGE: url(images/favorite.gif)" onmouseover="MouseOverOpen('FavoriteMenu<%=PostID%>',this.id);" id="Favorite<%=PostID%>">收藏</a> <%end if%>
<%if IsLocked=1 then%>
<a class="CommonImageTextButton" style="BACKGROUND-IMAGE:url(images/locked.gif)" onclick="window.alert('该帖已锁定不允许回复。');">锁定</a>
<%elseif PermissionReply=1 then%>
<a class="CommonImageTextButton" style="BACKGROUND-IMAGE:url(images/NewPost.gif)" href="AddPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="回复帖子">回复</a>
<%end if%>
<a class="CommonImageTextButton" style="BACKGROUND-IMAGE:url(images/edit.gif)" href="EditPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="编辑帖子">编辑</a>
<a class="CommonImageTextButton" style="BACKGROUND-IMAGE:url(images/delete.gif)" href="DelPost.asp?ThreadID=<%=ThreadID%>&PostID=<%=PostID%>" title="删除帖子">删除</a>
</div>
<div class="ForumPostBodyArea">
<%
if Rs("UserAccountStatus")=2 then
Response.Write "==============================<br /><font color=RED>该用户帐号已被禁用</font><br />=============================="
elseif Rs("Reputation") < SiteConfig("InPrisonReputation") then
Response.Write "<div id='PostContent_"&PostID&"'>=============================================<br /><font color=RED>该用户声望小于"&SiteConfig("InPrisonReputation")&"，帖子内容已被隐藏.</font> <a onclick='showPostText("&PostID&")'>点击查看</a><br />=============================================</div>"
response.write "<div class=ForumPostTitle id='PostTitle"&PostID&"' style='display:none'>"&Subject&"</div><div class=ForumPostContentText id='PostContent"&PostID&"' style='display:none'>"&BBCode(Body)&"</div>"
elseif Visible=2 then
Response.Write "<div id='PostContent_"&PostID&"'>========================<br /><font color=RED>帖子已被删除！</font> <a onclick='showPostText("&PostID&")'>点击查看</a><br />========================</div>"
response.write "<div class=ForumPostTitle id='PostTitle"&PostID&"' style='display:none'>"&Subject&"</div><div class=ForumPostContentText id='PostContent"&PostID&"' style='display:none'>"&BBCode(Body)&"</div>"
else
response.write "<div class=ForumPostTitle>"&Subject&"</div><div class=ForumPostContentText>"&BBCode(Body)&"</div>"
if SiteConfig("EnableSignatures")=1 and SiteConfig("AllowSignatures")=1 then
if Rs("UserSign")<>"" then response.write "<div class=ForumPostSignature>"&BBCode(Rs("UserSign"))&"</div>"
end if
sql="select * from ["&TablePrefix&"PostInTags] where PostID="&PostID&""
Set RsTag=Execute(sql)
do while not RsTag.eof
Tags=Tags&",<a href='Tags.asp?TagID="&RsTag("TagID")&"'>"&Execute("Select TagName from ["&TablePrefix&"PostTags] where TagID="&RsTag("TagID")&"")(0)&"</a>"
RsTag.movenext
Loop
RsTag.Close
Set RsTag = Nothing
if ""&Tags&""<>"" then Response.Write("<p>标签："&Mid(Tags,2))&"</p>"
if SiteConfig("DisplayEditNotes")=1 then
Set EditNotesRs=Execute("Select * from ["&TablePrefix&"PostEditNotes] where PostID="&PostID&"")
If Not EditNotesRs.eof Then EditNotesRecordset=EditNotesRs("EditNotes")
EditNotesRs.Close
Set EditNotesRs = Nothing
Response.Write("<p>"&EditNotesRecordset&"</p>")
end if
end if
%>
</div>
</td>
</tr>
<tr>
<td valign="bottom">
<table width="100%">
<tr>
<td valign="bottom">
<%
If AdvertisementNum>0 then
RndValue=Int(AdvertisementNum * Rnd)
Response.Write(AdvertisementGetRow(0,RndValue))
end if
%>
</td>
<td align="right" valign="bottom"><%
if CookieUserName<>empty then%>
<a onclick="javascript:BBSXP_Modal.Open('MyMessage.asp?menu=Post&ForumID=<%=ForumID%>&subject=问题帖子报告&Body=【问题帖子】：<%=SiteConfig("SiteUrl")%>/ShowPost.asp?PostID=<%=PostID%>', 600, 350);"><img title="报告本帖" src="images/feedback.gif" border="0" /></a> <%
end if
if PermissionManage=1 then
if Visible=0 then response.write("<img src='images/InVisible.gif' border=0 alt='帖子未通过审核' title='帖子未通过审核' /> ")
if Visible=2 then response.write("<img src='images/recycle.gif' border=0 alt='帖子已删除' title='帖子已删除' /> ")
response.write("<img src='images/IP.gif' border=0 alt='"&IPAddress&"' title='"&IPAddress&"' /> ")
end if
if IsLocked=0 and PermissionReply=1 and CookieUserName<>empty then response.write "<a href=AddPost.asp?ThreadID="&ThreadID&"&PostID="&PostID&"&Quote=1><img src=images/Quote.gif alt='引用回复' title='引用回复' border=0 /></a> <a onclick=javascript:QuickReply("&PostID&")><img src=images/QuickReply.gif alt='快速回复' title='快速回复' /></a>"%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Rs.close
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -