📄 showpost.asp

📁 秘密网源代码传闻拉了 100W风投
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			<td valign="top" height="50%" colspan="2" align="center">
			<input type="submit" value=" 回复 " name="EditSubmit">　<input type="Button" value=" 预览 " onclick="Preview()">　<input onclick="history.back()" type="button" value=" 取消 "></td>
		</tr>
  </table>
</form>
	</td>
	<div name="Preview" id="Preview"></div>
<script language="JavaScript">
function QuickReply(NO){
	document.form.PostID.value =NO;
	window.location="#QuickReply";
 	if(typeof(document.form.TextBody) == "undefined" ){
		IframeID.focus();
  	}else{
  		document.form.TextBody.focus();
  	}
}
</script>
<%
end if%>
  <td width="200" valign="top">
	<table width="100%"  border="0" cellspacing="1" cellpadding="0"  id="CommonListArea">
      <tr id="CommonListTitle3">
        <td>&nbsp;&nbsp;操作</td>
      </tr>
      <tr id="CommonListCell">
        <td>&nbsp;<a href="javascript:window.print();"><img title="打印本页" src="images/Print.gif" border="0">打印本页</a><br>
          &nbsp;<script language="JavaScript">document.write("<a target=wh href='Mailto:?subject="+document.title+"&body="+encodeURIComponent(location.href)+"'>");</script><img title="通过电子邮件发送本页面" src="images/mail.gif" border="0">通过电子邮件发送本页面</a><br>
          &nbsp;<a href="javascript:window.external.AddFavorite(location.href,document.title)"><img title="添加到IE收藏夹" src="images/favs.gif" border="0">添加到IE收藏夹</a><%if CookieUserName<>empty then%><br>
		  &nbsp;<a href="MyFavorites.asp?menu=FavoriteThread&ThreadID=<%=ThreadID%>"><img title="将该主题加入收藏夹" src="images/favorite.gif" border="0">将该主题加入收藏夹</a><br>
          &nbsp;<script language="JavaScript">
		document.write("<a onclick=\"javascript:Wo_Modal.Open(\'MyMessage.asp?menu=Post&ForumID=<%=ForumID%>&subject=问题帖子报告&Body=【问题帖子】："+encodeURIComponent(location.href)+"\', 600, 350);\">");</script><img title="报告本帖" src="images/feedback.gif" border="0">报告本帖</a><%end if%><br>
          &nbsp;<a href="?menu=Previous&ForumID=<%=ForumID%>&ThreadID=<%=ThreadID%>"><img title="浏览上一篇主题" src="images/previous.gif" border="0">上一篇主题</a><br>
          &nbsp;<a href="?menu=Next&ForumID=<%=ForumID%>&ThreadID=<%=ThreadID%>"><img title="浏览下一篇主题" src="images/next.gif" border="0">下一篇主题</a><br>
		<br>
		  &nbsp;帖子排序：<br>
		  &nbsp;<select onchange="javascript:if(this.options[this.selectedIndex].value)window.location.href='ShowPost.asp?<%=ReplaceText(Request.QueryString,"&SortOrder=([0-9]*)","")%>&amp;SortOrder='+this.options[this.selectedIndex].value">
			<option value="0" <%if Request("sortorder")="0" then%>selected<%end if%>>
			从旧到新</option>
			<option value="1" <%if Request("sortorder")="1" then%>selected<%end if%>>
			从新到旧</option>
			</select>
		</td>
      </tr>
    </table>
    <table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
    <table width="100%" align="center" cellpadding="0" cellspacing="1" id="CommonListArea">
  <tr id="CommonListTitle3">
    <td colspan="2">&nbsp;&nbsp;详细信息：</td>
  </tr>
  <tr id="CommonListCell">
    <td colspan="2">
<%if Tags<>"" then%><div>&nbsp;标      签：<img src="images/tag.gif" title="标签：<%=Tags%>"></div><%end if%>
&nbsp;发 起 人：<a href="Profile.asp?UserName=<%=UserName%>"><%=UserName%></a><br>
&nbsp;回 复 数：<b><%=TotalReplies%></b><br>
&nbsp;浏 览 数：<b><%=TotalViews%></b><br>
&nbsp;最后更新：<%=lasttime%><br>
&nbsp;by：<a href="Profile.asp?UserName=<%=lastname%>"><%=lastname%></a>
</td>
  </tr>
</table></td>
  </tr>
</table>
<%
if PermissionManage=1 then
	response.write "<br><table cellspacing=0 cellpadding=0 width=100% align=center border=0><tr><td align=center>管理选项："
	if ThreadTop=2 then
		response.write "<a href=Manage.asp?menu=UnTop&ThreadID="&ThreadID&">取消公告</a> | "
	else
		response.write "<a href=Manage.asp?menu=Top&ThreadID="&ThreadID&">设为公告</a> | "
	end if

	if ThreadTop=1 then
		response.write "<a href=Manage.asp?menu=DelTop&ThreadID="&ThreadID&">取消置顶</a> | "
	else
		response.write "<a href=Manage.asp?menu=ThreadTop&ThreadID="&ThreadID&">置顶主题</a> | "
	end if
	response.write "<a href=Manage.asp?menu=MoveNew&ThreadID="&ThreadID&">拉前主题</a> | "
	if IsLocked=1 then
		response.write "<a href=Manage.asp?menu=DelIsLocked&ThreadID="&ThreadID&">解锁主题</a> | "
	else
		response.write "<a href=Manage.asp?menu=IsLocked&ThreadID="&ThreadID&">锁定主题</a> | "
	end if
	if IsGood=1 then
		response.write "<a href=Manage.asp?menu=DelIsGood&ThreadID="&ThreadID&">取消精华主题</a>"
	else
		response.write "<a href=Manage.asp?menu=IsGood&ThreadID="&ThreadID&">加为精华主题</a>"
	end if
	response.write " | <a href=MoveThread.asp?ThreadID="&ThreadID&">移动主题</a> | <a title='修复帖子的回复数' href=Manage.asp?menu=Fix&ThreadID="&ThreadID&">修复主题</a></td></tr></table>"
end if

%><!-- #include file="Utility/OnLine.asp" --><%
HtmlBottom
Sub ShowPostSimple()

%>
<table width="99%" cellpadding="0" cellspacing="1" id="CommonListArea" style="TABLE-LAYOUT:fixed;">
	<tr id="CommonListHeader">
		<td>
			<div style=float:left><b><a target="wh" href="Profile.asp?UserName=<%=Rs("PostAuthor")%>"><%=Rs("PostAuthor")%></a></b> 发表于 <%=Rs("PostDate")%></div>
			<div style=float:right>
						<%if IsLocked=1 then%>
						<a onclick="window.alert('该帖已锁定不允许回复。');">锁定</a>
						<%elseif PermissionReply=1 then%>
						<a href="AddPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="回复帖子">回复</a>
						<%end if%>
						<a href="AddPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="引用">引用</a>
						<a href="EditPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="编辑帖子">编辑</a>
						<a href="DelPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="删除帖子">删除</a>
			</div>
		</td>
	</tr>
	<tr id="CommonListCell">
		<td>
		<%
		if Rs("Subject")<>"" then response.write "<div class=ForumPostTitle>"&Rs("Subject")&"</div>"
		response.write "<div class=ForumPostContentText>"&Rs("Body")&"</div>"
		%>
		
				<div style=float:right>
				<%if PermissionManage=1 then response.write "IP："&Rs("IPAddress")&"　"%>
				<%if IsLocked=0 and PermissionReply=1 then response.write "<a onclick=javascript:QuickReply("&Rs("PostID")&")>快速回复</a>"%>
				</div>
		</td>
	</tr>
</table>
<%
End Sub
Sub ShowPost()
	Set User=Conn.Execute("select top 1 * from [Wo_Users] where UserName='"&Rs("PostAuthor")&"'")
	if User.EOF then Exit Sub
	ShowRank(User("experience"))
%>
<a name="<%=Rs("PostID")%>"></a>
<table width="99%"  border="0" cellspacing="1" cellpadding="0" id="CommonListArea">
  <tr id="CommonListTitle3">
    <td>
		<div style=float:left><font color="red">&nbsp;&nbsp;第<%=i+(PageCount-1)*PageSetup%>楼</font></div>
	</td>
	<td align="right"><%if IsLocked=1 then%>
						<a onclick="window.alert('该帖已锁定不允许回复。');">锁定</a>
						<%elseif PermissionReply=1 then%>
						<a href="AddPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="回复帖子">回复</a>
						<%end if%>
						<a href="AddPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="引用">引用</a>
						<a href="EditPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="编辑帖子">编辑</a>
						<a href="DelPost.asp?ThreadID=<%=Rs("ThreadID")%>&PostID=<%=Rs("PostID")%>" title="删除帖子">删除</a>&nbsp;&nbsp;</td>
  </tr>
  <tr id="CommonListCell">
    <td colspan="2"><table width="99%"  border="0" align="center" cellpadding="4" cellspacing="0" style="padding-left:5px;TABLE-LAYOUT:fixed;">
      <tr><%if i+(PageCount-1)*PageSetup=1 then%>
        <td width="61" valign="top"><table width="51"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
		  <%
		  str2="select * from WO_Threads where ThreadID="&Rs("ThreadID")
		  Set Rs1=Server.CreateObject("adodb.recordset")
		  Rs1.open str2,conn,1,3
		  if Rs1.Eof then
		  Digcount=0
		  else
		  DigCount=Rs1("DigCount")
		  end if
		  Rs1.close
		  set Rs1=nothing
		  %>
            <td width="51" height="50" background="Images/dig1.gif"><div align="center" id="Group_HitNum<%=ThreadID%>" class="digmun"><%=DigCount%></div></td>
          </tr>
          <tr>
            <td height="3"></td>
          </tr>
          <tr>
            <td height="25" background="Images/digbg2.gif"><div id="Post_ID<%=ThreadID%>" align="center"><%call WoDig.Is_Hit2(ThreadID,User("UserID"))%></div></td>
          </tr>
		  <tr>
            <td height="3"></td>
          </tr>
          <tr>
            <td height="25" background="Images/digbg2.gif"><div id="aPost_ID<%=ThreadID%>" align="center"><%call WoDig.Is_Hit4(ThreadID,User("UserID"))%></div></td>
          </tr>
        </table></td><%end if%>
        <td valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>
			<table width="100%"  border="0" cellspacing="0" cellpadding="0" class="ForumPostButtons1">
              <tr>
                <td width="45"><%if SiteConfig("EnableAvatars")=1 and SiteConfig("AllowAvatars")=1 then%>				
					<img src="<%=User("UserFaceUrl")%>" width="40" height="40" onload="javascript:if(this.width&gt;<%=SiteConfig("AvatarWidth")%>)this.width=<%=SiteConfig("AvatarWidth")%>;if(this.heigh&gt;<%=SiteConfig("AvatarHeight")%>)this.height=<%=SiteConfig("AvatarHeight")%>;" /></div>
				<%end if%>
				</td>
                <td>
						<b><a href="Profile.asp?UserName=<%=User("UserName")%>"><%=User("UserName")%></a></b>&nbsp;<%if SiteConfig("AllowGender")=1 and (User("UserSex")=1 or User("UserSex")=2) then%>
						<img src="images/Sex_<%=User("UserSex")%>.gif" />&nbsp; 
						<%end if%>
						<%=constellation(User("birthday"))%>&nbsp;&nbsp;<img src="<%=RankIconUrl%>" /> 在 <%=Rs("PostDate")%> 发布说:
						
					<br>
					[角色：<%
					if instr("|"&Moderated&"|","|"&User("UserName")&"|") > 0 then
						Response.Write("版主")
					else
						response.write ShowRole(User("UserRoleID"))
					end if
					%>/等级：<%=RankName%>/发帖数：<%=User("TotalPosts")%>/金钱：<%=User("UserMoney")%>/经验值：<%=User("experience")%>] [ <a href="MyFavorites.asp?menu=FavoriteFriend&FriendUserName=<%=User("UserName")%>">加为好友</a>&nbsp;|&nbsp;<a href="javascript:Wo_Modal.Open('MyMessage.asp?menu=Post&RecipientUserName=<%=User("UserName")%>',600,350);">发送信息</a> ]
					</td>
                
                </tr>
            </table></td>
            </tr>
          <tr>
            <td class="font-Post">
			<div class="ForumPostBodyArea">
				<%
				if User("UserAccountStatus")=2 then
						Response.Write "==============================<br>　　　<font color=RED>该窝友已被禁用　　　</font><br>=============================="
				else
						if Rs("Subject")<>"" then response.write "<div class=ForumPostTitle>"&Rs("Subject")&"</div>"
						response.write "<div class=ForumPostContentText id=""postcontent"&Rs("PostID")&""">"&Rs("Body")&"</div>"
						if SiteConfig("EnableSignatures")=1 and SiteConfig("AllowSignatures")=1 then
							if User("UserSign")<>"" then response.write "<div class=ForumPostSignature><b>签名:</b>"&YbbEncode(User("UserSign"))&"</div>"
						end if
				end if
				%> 
			</div>
				</td>
            </tr>
          <tr>
            <td>
			<div style=float:right>
				<%if PermissionManage=1 then response.write "IP："&Rs("IPAddress")&"　"%>
				<%if IsLocked=0 and PermissionReply=1 then response.write "<a onclick=javascript:QuickReply("&Rs("PostID")&")>快速回复</a>"%>
				</div>
			</td>
            </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="80%" height="8"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td></td>
        </tr>
      </table>
<%
Set User = Nothing

End Sub
%>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -