post.asp

电子商务网络购物系统

<td align="right"><a href="getopic.asp?fid=<% = intForumID %>&tid=<% = lngTopicID %>&dir=N" target="_self" class="smlink"><img src="images/prepost.gif" alt="上一个主题" border="0" align="absbottom"></a>&nbsp;<a href="getopic.asp?fid=<% = intForumID %>&tid=<% = lngTopicID %>&dir=P" target="_self" class="smlink"><img src="images/nextpost.gif" alt="下一个主题" border="0" align="absbottom"></a></td>
        </tr>
      </table>
  <%
If lngPollID > 0 Then
	%>
  <!--#include file="includes/dispoll.asp" -->
  <%
End If
If NOT rsND.EOF Then
%>
<table bgcolor="<%= strtablebgcolour %>" align="center" width="96%" border="0" cellspacing="1" cellpadding="1">
       <tr class="tHeading" height="25">
        <td width="120" background="<% = strTableTitleBgImage %>">主题</td>
        <td width="80%" background="<% = strTablePostsTitleBgImage %>">
		<table width="99%" border="0" cellspacing="0" cellpadding="0"><tr><td class="theading" ><% = strSubject %></td>
	 <td align="right"> <a href="JavaScript:openWin('printer.asp?fid=<% = intForumID %>&tid=<% = lngTopicID %>','printer_friendly','toolbar=0,location=0,status=0,menubar=1,scrollbars=1,resizable=1,width=640,height=390')">
<img src="images/printer.gif" border="0" height="16" valign="bottom "alt="打印页面"></a>
           <%
If blnEmail AND blnActiveMember Then
%>
<a href="JavaScript:openWin('etopic.asp?tid=<% = lngTopicID %>','email_friend','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=400,height=425')"><img src="images/emailtopic.gif" border="0" height="16" width="16" valign="bottom" alt="把这个帖子推荐给朋友"></a>
<%
End If
%></td>
        </tr></table></td>
		</tr></table>
		 <%'
	For intRecordLoopCounter = 1 to intThreadsPerPage
		blnIsModerator = False
		If rsND.EOF Then Exit For
		intThreadNo = intThreadNo + 1
		lngMessageID = CLng(rsND("postid"))
		strMessage = rsND("Message")
		strUsername = rsND("Username")
		lngUserID = CLng(rsND("userid"))
		dtmTopicDate = CDate(rsND("msgdtm"))
		strAuthorHomepage = rsND("Homepage")
		strAuthorLocation = rsND("Location")
		dtmAuthorRegistration = CDate(rsND("joindtm"))
		lngAuthorNumOfPosts = CLng(rsND("postnum"))
		strAuthorAvatar = rsND("Avatar")
		strMemberTitle = rsND("rank")
		strAuthorSignature = rsND("Signature")
		strAuthorIP = rsND("ipaddr")
		strGroupName = rsND("Name")
		intRankStars = CInt(rsND("Stars"))
		strRankCustomStars = rsND("cusstars")
		If lngUserID = 2 Then
				strSQL = "SELECT timesguest.Name FROM timesguest WHERE timesguest.postid = " & lngMessageID & ";"
			rsST.Open strSQL, adoCon
			If NOT rsST.EOF Then strUsername = rsST("Name")
			rsST.Close
		End If
		If InStr(1, strMessage, "<edited>", 1) Then strMessage = editedCovert(strMessage)
		If InStr(1, strMessage, "[QUOTE=", 1) > 0 AND InStr(1, strMessage, "[/QUOTE]", 1) > 0 Then strMessage = formatQuote(strMessage)
		If strSearchKeywords <> "" Then strMessage = searchHighlighter(strMessage, sarySearchWord)
		
		If blnFlashFiles Then
			If InStr(1, strMessage, "[FLASH", 1) > 0 AND InStr(1, strMessage, "[/FLASH]", 1) > 0 Then strMessage = formatFlash(strMessage)
		End If
	%><table bgcolor="<%= strtablebgcolour %>" align="center" width="96%" border="0" cellspacing="1" cellpadding="1">
	<tr height="150">
		<td valign="top" nowrap width="130" bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePostsSideEvenRowColour) Else Response.Write(strTablePostsSideOddRowColour) %>"  class="smText">
		<br/><a name="<%= lngMessageID %>"></a>
		<table style="FILTER:glow(color=6699cc)">
<caption><b><font color=ffffff style=font-size:10pt><%=strUsername %></font></b></caption>
</table>
		<%If blnAvatar = True AND strAuthorAvatar <> "" Then %>
		<img src="<%= strAuthorAvatar %>" alt=" <%= strUsername %> 的酷照" align="center" vspace="5" OnError="this.src='images/photo/1.gif', height='64';">
		<%  	End If %><br />
		 <img src="<% If strRankCustomStars <> "" Then Response.Write(strRankCustomStars) Else Response.Write("images/" & intRankStars & "star.gif") %>"  alt="<%= strGroupName %>"><br />
		 级别:<%= strGroupName %><br />
		 文章: <%= lngAuthorNumOfPosts %>
		<%  	If strMemberTitle <> "" Then  %>
		<br />头衔: <%= strMemberTitle %>	
		<% 	end if 
		If strAuthorLocation <> "" Then %>
		<br />国家: <%= strAuthorLocation %>
		<%	end if 	%>
		<br />注册:  <%= DateFormat(dtmAuthorRegistration,sarydatetimedata) %>&nbsp;<% = TimeFormat(dtmAuthorRegistration,sarydatetimedata)  %>
		</td>
		
		<td width="80%" valign="top" bgcolor="<% If (intRecordLoopCounter MOD 2 = 0 ) Then Response.Write(strTablePostsEvenRowColour) Else Response.Write(strTablePostsOddRowColour) %>">
		<table width="100%" border="0" cellpadding="0" cellspacing="0" valign="top">
		<tr><td valign="top">
		<a href="JavaScript:openWin('puprofile.asp?pf=<%= lngUserID %>&fid=<%= intForumID %>','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425')"><img src="images/profile.gif" border="0" alt="查看&nbsp;<%= strUsername %>&nbsp;的资料" align="absmiddle"></a>
		<%
   		If strAuthorHomepage <> "" Then %>
		<a href="<%= strAuthorHomepage %>" target="top"><img src="images/homepage.gif" border="0" alt="访问 <%= strUsername %> 的主页"" align="absmiddle"></a>
		<% 
		end if %>
		<a href="search.asp?kw=<%= Server.URLEncode(strUsername) %>&si=AR&FM=<%= intForumID %>&fid=<%= intForumID %>&tid=<%= lngTopicID %>&pn=<%= intTopicPageNumber %>&tpn=<%= intRecordPositionPageNum %>"><img src="images/searchpic.gif" border="0" alt="搜索&nbsp;<%= strUsername %> 发表的其他的帖子"align="absmiddle"></a>
		<%
      	If (blnTopicLocked = False OR (blnTopicLocked AND blnAdmin)) AND blnPollNoReply = False Then
		%>
		<a href="messpost.asp?mode=quote&pid=<%= lngMessageID %>&fid=<%= intForumID %>&tid=<%= lngTopicID %>&tpn=<%= intTotalNumOfPages %>"><img src="images/quote.gif" align="absmiddle" border="0" alt="引用&nbsp;<%= strUsername %> 的帖子"></a>
		<%
    	End If
       	If blnPrivateMessages Then %>
		<a href="newmess.asp?name=<%= Server.URLEncode(strUsername) %>" target="_self"><img src="images/pmpic.gif" align="absmiddle" border="0" alt="给 <%= strUsername %> 发送短信"></a>
		<a href="friendlist.asp?name=<%= Server.URLEncode(strUsername) %>" target="_self"><img src="images/friend.gif" align="absmiddle" border="0" alt="把 <%= strUsername %> 加为好友"></a>
		<%
		End If	%>
		<a href="post.asp?tid=<%= lngTopicID %>&pn=<%= intTopicPageNumber %>&tpn=<%= intTotalNumOfPages %>#reply" target="_self"><img src="images/quickreply.gif"  border="0" align="absmiddle" alt="回复主题"></a>
		</td>
		<td nowrap class="smtext" align="right" valign="bottom">
		<img src="images/ip.gif" border="0" alt=" 作者的IP地址">
		<%
	    If (blnAdmin OR blnModerator) AND strAuthorIP <> "" Then %>
		<a href="javascript:openWin('puipblock.asp?IP=<%= strAuthorIP %>&tid=<%= lngTopicID %>','move','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=425,height=450')" class="smLink" >&nbsp;IP:<%= strAuthorIP %></a>&nbsp;&nbsp;
		<%
            Else %>
			IP：保密&nbsp;&nbsp;
			<%  	End If	
			%>
			</td><td class="smtext" valign="bottom">第&nbsp;<b><% = (intRecordPositionPageNum-1)*intThreadsPerPage+intThreadNo %></b>&nbsp;楼</td></tr></table>
			<table width="100%"><tr><td colspan="3" class="Text"><hr />
			<%= strMessage %><br/><br /><br /><br /><br/></td></tr>
			<% If rsND("dissign") AND strAuthorSignature <> "" Then %><tr><td class="smtext" align="right" colspan="2">
			<img src="images/pen.gif" border="0" alt="签名"><br /><% = strAuthorSignature %></td></tr>
		 <% End If %>
			<tr><td colspan="3"><br/><hr /></td></tr></table>
			<table width="100%">
			<tr valign="bottom"><td class="smtext" width="30%" nowrap valign="bottom">发表时间: <% = dtmTopicDate %></td>
			<td nowrap width="40%" align="center" valign="bottom">
			<%
		If (lngLoggedInUserID = lngUserID AND blnForumLocked = False AND blnActiveMember AND blnTopicLocked = False) OR (blnAdmin OR blnModerator) Then
	  			 If blnEdit OR blnAdmin OR blnModerator Then %> 
	   		<a href="postedit.asp?pid=<%= lngMessageID %>&pn=<%= intTopicPageNumber %>&tpn=<%= intRecordPositionPageNum %>" target="_self"><img src="images/edit.gif" border="0" align="absmiddle" alt="编辑帖子"></a>&nbsp;
	   <%
	  			 end if
    			If (intTotalNumOfThreads = intThreadNo) OR (blnAdmin OR blnModerator) Then
						If blnDelete OR blnAdmin Then %>
						<a href="delpost.asp?pid=<%= lngMessageID %>&pn=<%= intTopicPageNumber %>&tpn=<%= intRecordPositionPageNum %>" target="_self" OnClick="return confirm('你确认删除此主题?')"><img src="images/delsm.gif" align="absmiddle" alt="删除帖子" border="0"></a>&nbsp;
						<a href="javascript:openWin('movepost.asp?pid=<%= lngMessageID %>','move','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=450,height=425')"><img src="images/move.gif" align="absmiddle" border="0" alt="移动帖子"></a>&nbsp;
						<%
						end if
	   		End If
	   	End If %>
			</td><td nowrap width="30%" align="right" valign="bottom">
			<a href="report.asp?pid=<%= lngMessageID %>&fid=<%= intForumID %>&tid=<%= lngTopicID %>&tpn=<%= intRecordPositionPageNum %>" target="top" class="smLink">把帖子报告给管理员</a>&nbsp;&nbsp;<a href="#top" target="_self" class="smlink"><img src="images/gotop.gif" align="absmiddle" alt="返回顶部" border="0"></a>&nbsp;&nbsp;
			</td></tr></table>
			</td>
  				 </tr>
   					 </table><br/>
				<% 
										
		rsND.MoveNext
	Next
End If
rsND.Close
Set rsND = Nothing
%>
<form>
	<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr>
	<%
If intTotalNumOfPages > 1 Then %>
<td width="33%" class="text">第 <select onChange="ForumJump(this)" name="SelectTopicPage">
<%
	For intTopicPageLoopCounter = 1 to intTotalNumOfPages  
		If Request.QueryString("kw") <> "" Then	
			Response.Write ("<option value=""post.asp?tid=" & lngTopicID & "&kw=" & Server.URLEncode(Request.QueryString("kw")) & "&pn=" & intTopicPageNumber & "&tpn=" & intTopicPageLoopCounter & """")
	Else
			Response.Write ("<option value=""post.asp?tid=" & lngTopicID & "&pn=" & intTopicPageNumber & "&tpn=" & intTopicPageLoopCounter & """")
		End If
		If intTopicPageLoopCounter = intRecordPositionPageNum Then
			Response.Write (" selected")
		End If
		Response.Write (">" & intTopicPageLoopCounter & "</option>")
	Next %>
	</select> 页，共<B> <%= intTotalNumOfPages %></B>  页</td>
	<% End If  %>

<td width="33%" align="center">
<%
If blnEmail AND intGroupID <> 2 Then
	If strDatabaseType = "SQLServer" Then
		strSQL = "EXECUTE " & strDbProc & "TopicEmailNotify @lngAuthorID = " & lngLoggedInUserID & ", @lngTopicID= " & lngTopicID
	Else
		strSQL = "SELECT timesnotify.*  "
		strSQL = strSQL & "FROM timesnotify "
		strSQL = strSQL & "WHERE timesnotify.userid=" & lngLoggedInUserID & " AND timesnotify.topicid=" & lngTopicID & ";"
	End If
	rsST.Open strSQL, adoCon %>
	<a href="enotify.asp?TID=<%= lngTopicID %>&PN=<%= intTopicPageNumber %>&TPN=<%= intTotalNumOfPages %>" target="_self">
	<%
	If NOT rsST.EOF Then Response.Write("取消")
	Response.Write( "订阅主题</a>")
	rsST.Close
Else
	Response.Write("&nbsp;")
End If
%>	   </td>

<td width=""33%"" align="right"><!-- #include file="includes/forumjump.asp" --></TD></tr>
          </table></form>
<div align="center">
<a name="reply"></a>
<%
If blnBannedIP Then %>
<p class="text">对不起，你无权回复，你的IP被屏蔽</p>
<%
ElseIf blnActiveMember = False AND (intRecordPositionPageNum = intTotalNumOfPages) Then %>
<p class="text">对不起,你无权回复，你的用户名还没有通过认证</p>
<%
ElseIf blnForumLocked AND (intRecordPositionPageNum = intTotalNumOfPages) Then %>
	<p class="text">对不起,你无权回复，论坛已锁</p>
<%
ElseIf blnReply = False AND blnAdmin = False AND intGroupID <> 2 Then %>
<p class="text">你无权在此论坛发言</p>
<%
ElseIf (blnTopicLocked = True AND blnAdmin = False) AND (intRecordPositionPageNum = intTotalNumOfPages) Then %>
<p class="text">对不起,你无权回复，主题已经被锁定</p>
<%
ElseIf blnPollNoReply Then %>
<p class="text">此投票不接受回复</p>
<%
ElseIf blnReply = False AND (intRecordPositionPageNum = intTotalNumOfPages) Then %>
<p class="text">如果你想回复的话你必须先&nbsp;<a href="reg.asp?fid=<%= intForumID %>" target="_self">注册</a><br />如果你已经注册了的话你必须先&nbsp;<a href="login.asp?fid=<%= intForumID %>" target="_self">登录</a></p>
<%
End If

	If IEWin() AND blnIEEditor AND blnWYsiWYGEditor Then
		%><!--#include file="includes/repost.asp" --><%
	Else
		%><!--#include file="includes/message.asp" --><%
	End If  %>
	

  <%
Set rsST = Nothing
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing

%>
<%
If Request.QueryString("EN") = "TS" Then %>
<script language="JavaScript">
alert('此主题每次有新回复时都会e-mail通知你.\n\n要取消订阅主题，单击页面底部的 <取消订阅主题>')
</script>
<%
End If
If Request.QueryString("EN") = "TU" Then %>
<script language="JavaScript">
alert('订阅主题已取消，要开通，请单击页面底部的 <订阅主题>')
</script>
<%
End If
%>
<br/><br/>
<!-- #include file="includes/footer.asp" -->