topic.asp

此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.

<%			end if %><BR>
    			<HR noshade width=100% size=1 color="<% Response.Write strTableBorderColor %>">
    			<TABLE cellpadding=0 cellspacing=0 width="100%" height="50" style="TABLE-LAYOUT: fixed; word-break:break-all">
    			    <TR>
    			    <TD width=24 align=left valign=top><IMG src="<% =strImageURL & "face/" & GetFace(RS("R_FACE")) & ".gif" %>" width="13" height="13"></TD>
			    <TD style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" valign=top><font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><% =strFilesDownLoad %><% Response.Write FormatStr(ClearSpace(rs("R_MESSAGE")) & GetSig(rs("R_AUTHOR"))) %></font></TD>
			    <TD width=16></TD></TR>
           		</TABLE><BR>
		</TR>
		<TR>
		<TD class="bottomline" bgcolor="<% Response.Write CColor %>" valign="bottom">
			<HR noshade size="1" color="<% Response.Write strTableBorderColor %>">
			<TABLE width=100% cellpadding=0 cellspacing=0>
			<tr>
			<td valign=bottom width=95><img src="" width=5 height=0><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="post.asp?method=Edit&REPLY_ID=<% Response.Write rs("REPLY_ID") %>&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>&auth=<% Response.Write ChkString(rs("R_AUTHOR"),"urlpath") %>"><IMG src="<% Response.Write strImageURL %>edit.gif" alt="编辑讯息" border="0" align="absmiddle">&nbsp;编辑</a></font></td>
			<td valign=bottom width=190><font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><IMG src="<% Response.Write strImageURL %>posttime.gif" alt="发贴时间" border="0" align="absmiddle">&nbsp;<% Response.Write ChkDate(rs("R_DATE")) %> <% Response.Write ChkTime(rs("R_DATE")) %></font></td>
<%		if (strIPLogging = "1") then %>
<%'			if (AdminAllowed = 1) or (strNoCookies = "1") then %>
			<td valign=bottom><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><img src="<% Response.Write strImageURL %>ip.gif" width=13 height=15 alt="会员IP" align="absmiddle"> IP: <% Response.Write GetUserIP(RS("R_IP")) %></font></td>
<%'		end if %>
<%		end if %>
			<td align=right nowarp valign=bottom width=110></td>
			<td align=right valign=bottom width=4></td>
                        </tr>
                        </TABLE>
                        <IMG src="" width=0 height=4></TD>
			</TR>
			</TABLE>
		       </TD>
			<TD bgcolor="<% Response.Write strTableBorderColor %>"><img src="" width=0 height=4></TD>
			</TR>
		    </TABLE>
		    </TD>
                    <TD bgcolor="<% Response.Write strTableBorderColor %>" valign=middle width=1 height=24></TD>
		    </TR>
		</TABLE>
	    <TABLE cellpadding=0 cellspacing=0 border=0 width="<% Response.Write strTableWidth %>" bgcolor="<% Response.Write strTableBorderColor %>" align=center>
	    <TR>
		<TD height=1></TD>
	    </TR>
	    </TABLE>
<%			RS.MoveNext
			intI  = intI + 1
			if intI = 2 then
				intI = 0
			end if
			rec = rec + 1
		loop
	end if
		'####################################
		if sortorder = "1" then
			Call GetFirst()
		end if
		'####################################
%>
    <TABLE border="0" width="100%">
      <TR>
        <TD></TD>
        <TD align="right" nowrap></TD>
      </TR>
    </TABLE></TD>
  </TR>
</TABLE>
</div>
</TR>
<TR>
<TD align="right" nowrap colspan="2">
<TABLE width="<% Response.Write strTableWidth %>" align="center">
  <TR>
    <TD align="left" valign="top" width="50%"><% Call Paging() %></TD>
    <TD align="right" valign="top" width="50%"><!--#INCLUDE FILE="inc_jump_to.asp" --></TD>
  </TR>
</TABLE>
<!--#INCLUDE FILE="inc_adv.asp" -->
<!--#INCLUDE FILE="inc_footer.asp" -->
<!--#INCLUDE FILE="inc_fastLogin.asp" -->
<%
end if

' ### 取主题贴信息 ###
sub GetFirst()
	CColor = strForumCellColor

	'### 取主题贴信息 ###
	'### Forum_SQL - Get Origional Posting
	strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " 	& strMemberTablePrefix & "MEMBERS.M_ICQ, "  & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE, "  & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL, "
	strsql = strsql & strMemberTablePrefix & "MEMBERS.M_FACE_WIDTH, " & strMemberTablePrefix & "MEMBERS.M_FACE_HEIGHT, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, " & strMemberTablePrefix & "MEMBERS.M_AIM, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, " & strMemberTablePrefix & "MEMBERS.M_COUNTRY, " & strMemberTablePrefix & "MEMBERS.M_DATE, " & strMemberTablePrefix & "MEMBERS.M_IP, " & strMemberTablePrefix & "MEMBERS.M_SEX, " & strMemberTablePrefix & "MEMBERS.M_RATING, "
	'### 获得城市和省份 ###
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_STATE, " & strMemberTablePrefix & "MEMBERS.M_CITY, "
	'#####################
	strSql = strSql & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_FACE, "
	strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE, " & strTablePrefix & "TOPICS.T_IP, "
	strSql = strSql & strTablePrefix & "TOPICS.T_FILEID, " & strTablePrefix & "TOPICS.T_FILENAME "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR "
	strSql = strSql & " AND   " & strTablePrefix & "TOPICS.TOPIC_ID = " &  Request.QueryString("TOPIC_ID")

'	Response.Write strSql
	set rs = my_Conn.Execute (strSql)

	if RS.EOF or RS.BOF then  '## No categories found in DB
		Response.Write "  <TR>" & vbCrLf
		Response.Write "    <TD colspan=5>没有找到任何主题</TD>" & vbCrLf
		Response.Write "  </TR>" & vbCrLf
	else
	if RS("T_FILEID") <> "" AND RS("T_FILENAME") <> "" then
		strFilesDownLoad = "<P align=left><A href=" & usrPath & "/" & RS("T_FILENAME") & " target=_blank><img src=""" & strImageURL & "addon.gif"" border=0>&nbsp;与此主题相关的文件：<font color=""" & strInsistFontColor & """>" & RS("T_FILENAME") & "</font></A></P>"
	end if
%>
	        <TABLE cellpadding=0 cellspacing=0 border=0 width="<% Response.Write strTableWidth %>" align="center">
        	    <TR>
                    <TD bgcolor="<% Response.Write strTableBorderColor %>" valign=middle width=1 height=24>
		    </TD>
		    <TD bgcolor="<% Response.Write CColor %>">
		    <TABLE width=100% cellpadding=4 cellspacing=0 bgcolor="<% Response.Write CColor %>">
			<TR>
        		<TD bgcolor="<% Response.Write CColor %>" valign="top" width="175"  rowspan=2 align="left"><IMG src="" width=0 height=4><BR>

			<table cellpadding=0 cellspacing=0 border=0><tr><td width=30>&nbsp;<% =GetOnlineInfo(rs("M_NAME"), strOnlineUserList) %></td><td><TABLE style="filter:glow(color=<% =GetUserIDGlowColor(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")) %>,direction=135)"><font color="<% Response.Write GetUserIDFontColor(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")) %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>">&nbsp;<b><% Response.Write ChkString(rs("M_NAME"),"display") %></b></a></font>&nbsp;</TABLE></td><td>　<% =GetSexInfo(rs("M_SEX")) %>&nbsp;<% =GetTeamInfo(rs("M_LEVEL")) %></td></tr></table>

<%			if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then %>
<%				if (lcase(left(rs("M_PHOTO_URL"), 7)) <> "http://") and (lcase(left(rs("M_PHOTO_URL"), 8)) <> "https://") and (rs("M_PHOTO_URL") <> "") then %>
					<br>&nbsp;<IMG src="<% Response.Write rs("M_PHOTO_URL") %>" align="center">
<%				else %>
					<br>&nbsp;<IMG src="<% Response.Write rs("M_PHOTO_URL") %>" align="center" width="<% =RS("M_FACE_WIDTH") %>" height="<% =RS("M_FACE_HEIGHT") %>">
<%				end if %>
<%			end if %>
<%		if strShowRank = 1 or strShowRank = 3 then %>
			<br>&nbsp;<font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><% Response.Write  ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></font>
<%		end if %>
		<BR>
<%		if strShowRank = 2 or strShowRank = 3 then %>
			<br>&nbsp;<% Response.Write  getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<%		end if %>
<%
		Response.Write "&nbsp;<font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>"
		if strCountry = "1" then
			Response.Write "<br>&nbsp;国家:" & " " & rs("M_COUNTRY") & vbCrLf
		end if
		if mlev>2 then
			strUserRating = "<a href='"&strRatingUrl&"&id="&rs("MEMBER_ID")&"' onClick=""return openAdminWindow(this.href)"" title=给此用户投票>"&"<img src="&strImageUrl&"poll1.gif border=0 width=16 height=16>投票</a>"
		else
			strUserRating = ""
		end if
				Response.Write "<br>&nbsp;威望: " & GetRating(rs("M_RATING")) & " &nbsp;" & strUserRating & vbCrLf
		Response.Write "<br>&nbsp;来自:" & " " & chkUserState(rs("M_STATE")) & vbCrLf
		Response.Write "<br>&nbsp;鉴定:" & " " & chkUserSource(rs("M_IP")) & vbCrLf
		Response.Write "<br>&nbsp;总发贴数:" & " <b>" & rs("M_POSTS") & "</b> 篇" & vbCrLf
		Response.Write "<br>&nbsp;注册日期:" & " " & ChkDate2(rs("M_DATE")) & "</font><BR>" & vbCrLf
		Response.Write "<IMG src='' width=0 height=4>"
%>
        		</TD>
        		<TD bgcolor="<% Response.Write CColor %>" width=1 height=100% rowspan=2>
        		<TABLE width=1 height=100% cellpadding=0 cellspacing=0 bgcolor="<% Response.Write strTableBorderColor %>">
        		    <TR>
				<TD width=1></TD>
			    </TR>
        		</TABLE>
        		</TD>
        		<TD bgcolor="<% Response.Write CColor %>" width=* height="100%" valign=top>
        <% if strUseExtendedProfile then %>
		　<a href="pop_profile.asp?mode=display&id=<% Response.Write rs("MEMBER_ID") %>"><IMG src="<% Response.Write strImageURL %>profile.gif" alt="查看会员资料" border="0" align="absmiddle">&nbsp;查看</a>
        <% else %>
		　<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% Response.Write rs("MEMBER_ID") %>')"><IMG src="<% Response.Write strImageURL %>profile.gif" alt="查看示会员资料" border="0" align="absmiddle">&nbsp;查看</a>
	<% end if %>
<%		if (intPMessages = 1) and (rs("M_PMRECEIVE") = "1") then %>
			　<a href="privatesend.asp?method=Topic&mname=<% Response.Write rs("M_NAME") %>"><IMG src="<% Response.Write strImageURL %>pm.gif" alt="发送悄悄话" border="0" align="absmiddle">&nbsp;消息</a>
<%		end if  %>
<%		if (lcase(strEmail) = "1") then
			if (mlev <> 0) or (mlev = 0 and  strLogonForMail <> "1") then %>
				　<a href="JavaScript:openWindow('pop_mail.asp?id=<% Response.Write rs("MEMBER_ID") %>')"><IMG src="<% Response.Write strImageURL %>email.gif" alt="电子邮件" border="0" align="absmiddle">&nbsp;邮件</a>
<%			end if
		else%>
			　<a href="JavaScript:openWindow('pop_mail.asp?id=<% Response.Write rs("MEMBER_ID") %>')"><IMG src="<% Response.Write strImageURL %>email.gif" alt="电子邮件" border="0" align="absmiddle">&nbsp;邮件</a>
<%		end if %>
<%		if (strHomepage = "1") then %>
<%			if rs("M_Homepage") <> " " then %>
				　<a href="<% Response.Write rs("M_Homepage") %>" target=_blank><IMG src="<% Response.Write strImageURL %>homepage.gif"  alt="参观 <% Response.Write ChkString(rs("M_NAME"),"display")  %> 的个人主页" border="0" align="absmiddle">&nbsp;主页</a>
<%			end if %>
<%		end if %>
<%		if (strICQ = "1") then %>
<%			if Trim(rs("M_ICQ")) <> "" then %>
				　<a href="JavaScript:openWindow('pop_messengeRS.asp?mode=ICQ&ICQ=<% Response.Write ChkString(rs("M_ICQ"), "JSurlpath") %>&M_NAME=<% Response.Write ChkString(rs("M_NAME"), "JSurlpath") %>')"><IMG src="http://online.mirabilis.com/scripts/online.dll?icq=<% Response.Write ChkString(rs("M_ICQ"), "urlpath") %>&img=5" height=16 width=16 alt="发送ICQ讯息给 <% Response.Write ChkString(rs("M_NAME"),"display")  %>" border="0" align="absmiddle">&nbsp;ICQ</a>
<%			end if %>
<%		end if %>
<%		if (strYAHOO = "1") then %>
<%		  if Trim(rs("M_YAHOO")) <> "" then %>
			　<a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<% Response.Write rs("M_YAHOO") %>"  target=_blank><img align=absmiddle width=16 height=16 src="<% Response.Write strImageURL %>oicq.gif" alt="<% Response.Write rs("M_YAHOO") %>" border=0> QQ</a>
<%		  end if %>
<%		end if %>
<%		if (strAIM = "1") then %>
<%			if Trim(rs("M_AIM")) <> "" then %>
				　<a href="JavaScript:openWindow('pop_messengeRS.asp?mode=AIM&AIM=<% Response.Write rs("M_AIM") %>&M_NAME=<% Response.Write rs("M_NAME") %>')"><IMG src="<% Response.Write strImageURL %>icon_aim.gif" height=16 width=16 alt="传AIM讯息给 <% Response.Write rs("M_NAME") %>" border="0" align="absmiddle" hspace="6">&nbsp;AIM</a>
<%			end if %>
<%		end if %>
<%	'######################## 读/回复 权限 ###########################
			if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then
				if (cint(strPrivateForums) <> 10 and cint(strPrivateForums) <> 12) or AdminAllowed = 1 then %>
					　<a href="post.asp?method=TopicQuote&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>reply.gif" alt="引用" border="0" align="absmiddle">&nbsp;引用</a>
<%				end if
			end if %>
<%			If (cint(strPrivateForums) <> 10 and cint(strPrivateForums) <> 12) or AdminAllowed = 1 then
				If (rsCStatus("CAT_STATUS") = 1) and (rsFStatus("F_STATUS") = 1) and (rsTStatus("T_STATUS") = 1) Then %>
					　<a href="post.asp?method=Reply&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>replynow.gif" alt="回复贴子" border="0" align="absmiddle">&nbsp;回复</a>
<%				Else
					If (AdminAllowed = 1)  Then %>
						　<a href="post.asp?method=Reply&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>"><IMG src="<% Response.Write strImageURL %>replynow.gif" alt="回复贴子" border="0" align="absmiddle">&nbsp;回复</a>
<%					End If
				end if
			end if %>
<%	'######################## 读/回复 权限 ###########################%>
<%		if (strIPLogging = "1") then %>
<%			if (AdminAllowed = 1) or (strNoCookies = "1") then %>
				　<a href="JavaScript:openWindow('topic.asp?mode=getIP&TOPIC_ID=<% Response.Write rs("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>')"><IMG src="<% Response.Write strImageURL %>icon_ip.gif" height=16 width=16 alt="查看会员IP" border="0" align="absmiddle" hspace="6"></a>
<%			end if %>
<%		end if %>
			<HR noshade size="1" color="<% Response.Write strTableBorderColor %>">
			<TABLE cellpadding=0 cellspacing=0 width="100%" height="50" style="TABLE-LAYOUT: fixed; word-break:break-all">
    			    <TR>
    			    <TD width=24 align=left valign=top><IMG src="<% =strImageURL & "face/" & GetFace(RS("T_FACE")) & ".gif" %>" width="13" height="13"></TD>
    			    <TD style="LEFT: 0px; WIDTH: 100%; WORD-WRAP: break-word" valign=top><font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><% =strFilesDownLoad %><% Response.Write FormatStr(ClearSpace(rs("T_MESSAGE")) & GetSig(rs("T_AUTHOR"))) %></font></TD>
    			    <TD width=16></TD>
			</TR>
           		</TABLE><BR>
		</TR>
		<TR>
		<TD class="bottomline" bgcolor="<% Response.Write CColor %>" valign="bottom">
			<HR noshade size="1" color="<% Response.Write strTableBorderColor %>">
			<table width=100% cellpadding=0 cellspacing=0>
			<tr>
			<td valign=bottom width=95><img src="" width=5 height=0><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="post.asp?method=EditTopic&REPLY_ID=<% Response.Write rs("TOPIC_ID") %>&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>&CAT_ID=<% Response.Write Request.QueryString("CAT_ID") %>&auth=<% Response.Write rs("T_AUTHOR") %>"><IMG src="<% Response.Write strImageURL %>edit.gif" alt="编辑讯息" border="0" align="absmiddle">&nbsp;编辑</a></font></td>
			<td valign=bottom width=190><font color="<% Response.Write strForumFontColor %>" face="<% Response.Write strDefaultFontFace %>" size="<% Response.Write strDefaultFontSize %>"><IMG src="<% Response.Write strImageURL %>posttime.gif" alt="发贴时间" border="0" align="absmiddle">&nbsp;<% Response.Write ChkDate(rs("T_DATE")) %> <% Response.Write ChkTime(rs("T_DATE")) %></font></td>

<%		if (strIPLogging = "1") then %>
<%'			if (AdminAllowed = 1) or (strNoCookies = "1") then %>
				<td valign=bottom><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><img src="<% Response.Write strImageURL %>ip.gif" width=13 height=15 alt="会员IP" align="absmiddle"> IP: <% Response.Write GetUserIP(RS("T_IP")) %></font></td>
<%'			end if %>
<%		end if %>
			<td align=right nowarp valign=bottom width=110></td>
			<td align=right valign=bottom width=4></td>
                        </tr>
                        </table>
                        <IMG src="" width=0 height=4></TD>
			</TR>
		    </TABLE>
		    </TD>
                    <TD bgcolor="<% Response.Write strTableBorderColor %>" valign=middle width=1 height=24></TD>
		    </TR>
		</TABLE>
	    <TABLE cellpadding=0 cellspacing=0 border=0 width="<% Response.Write strTableWidth %>" bgcolor="<% Response.Write strTableBorderColor %>" align=center>
	    <TR>
		<TD height=1></TD>
	    </TR>
	    </TABLE>
<%
	end if

	'## Forum_SQL