📄 topic.asp
字号:
<% 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=ReplyQuote&REPLY_ID=<% =rs("REPLY_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>&M=<% =Request.QueryString("M") %>"><img src="<%=strImageURL %>1-quote.gif" alt="回复并引用原文" border="0" align="absmiddle"></a>
<% end if
end if%>
<%'############### READ/WRITE ACCESS ###########################%>
<% if (strIPLogging = "1") then %>
<% if (AdminAllowed = 1) or (strNoCookies = "1") then %>
<a href="JavaScript:openWindow('topic.asp?mode=getIP&REPLY_ID=<% =rs("REPLY_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="<%=strImageURL %>icon_ip.gif" height=15 width=15 alt="查看会员IP" border="0" align="absmiddle"></a>
<% end if %>
<% end if %>
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
<% if (rsCStatus("CAT_STATUS") <> 0 and rsFStatus("F_STATUS") <> 0 and rsTStatus("T_STATUS") <> 0) or (AdminAllowed = 1) then %>
<a href="JavaScript:openWindow('pop_delete.asp?mode=Reply&REPLY_ID=<% =Rs("REPLY_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="<%=strImageURL %>icon_delete_reply.gif" height=15 width=15 alt="删除回复" border="0" align="absmiddle"></a>
<% end if %>
<% end if %>
<hr noshade size="<% =strFooterFontSize %>">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rs("R_MESSAGE")) %><a href="#top"><img src="<%=strImageURL %>icon_go_up.gif" height=15 width=15 border="0" align="right" alt="回到顶部"></a></font></td>
</tr>
<%
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></td>
</tr>
<tr>
<td colspan="2">
<table border="0" width="100%">
<tr>
<td>
<% if maxpages > 1 then %>
<table border=0>
<tr>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>主题共有 <% =maxpages %> 页：</font></td>
<td valign="top"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% Call Paging() %></font></td>
</tr>
</table>
<% else %>
<td valign="top"> </td>
<% end if %>
</td>
<td align="right" nowrap>
<% if (AdminAllowed = 1) then %>
<% call AdminOptions() %>
<% else %>
<% end if %>
</td>
</tr>
</table></td>
</tr>
</table>
</div>
<table width="100%">
<tr>
<td align="left" valign="top" width="50%"><% Call PostingOptions() %></td>
<td align="right" valign="top" width="50%"><!--#INCLUDE FILE="inc_jump_to.asp" --></td>
</tr>
</table>
<!--#INCLUDE FILE="inc_footer.asp" -->
<%
end if
sub GetFirst()
'## 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_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, "
strSql = strSql & strTablePrefix & "TOPICS.T_DATE, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, "
strSql = strSql & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_MESSAGE "
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")
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
%>
<tr>
<td bgcolor="<% =strForumFirstCellColor %>" valign="top" align="center">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>">
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')">
<% end if %>
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><% =ChkString(rs("M_NAME"),"display") %></a>
</b></font>
<% if Trim(rs("M_PHOTO_URL")) <> "" and lcase(rs("M_PHOTO_URL")) <> "http://" then %>
<br><img src="<% =rs("M_PHOTO_URL") %>">
<% end if %>
<% if strShowRank = 1 or strShowRank = 3 then %>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><% = ChkString(getMember_Level(rs("M_TITLE"), rs("M_LEVEL"), rs("M_POSTS")),"display") %></font>
<% end if %>
<% if strShowRank = 2 or strShowRank = 3 then %>
<br><% = getStar_Level(rs("M_LEVEL"), rs("M_POSTS")) %>
<% end if %>
<br>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>"><% =rs("M_COUNTRY") %></font>
<br><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">发表总数：<% =rs("M_POSTS") %></font></td>
<td bgcolor="<% =strForumFirstCellColor %>" <% if (AdminAllowed = 1) then %>colspan="3"<% else %>colspan="2"<% end if %> valign="top"><img src="<%=strImageURL %>icon_posticon.gif" border="0" hspace="3"><font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">发表於 - <% =ChkDate(rs("T_DATE")) %> <% =ChkTime(rs("T_DATE")) %></font>
<% if strUseExtendedProfile then %>
<a href="pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>"><img src="<%=strImageURL %>1-profile.gif" alt="查看会员资料" border="0" align="absmiddle"></a>
<% else %>
<a href="JavaScript:openWindow3('pop_profile.asp?mode=display&id=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>1-profile.gif" alt="查看示会员资料" border="0" align="absmiddle"></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=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>1-email.gif" alt="电子邮件" border="0" align="absmiddle"></a>
<% end if
else
%> <a href="JavaScript:openWindow('pop_mail.asp?id=<% =rs("MEMBER_ID") %>')"><img src="<%=strImageURL %>1-email.gif" alt="电子邮件" border="0" align="absmiddle"></a>
<% end if %>
<% if (intPMessages = 1) and (rs("M_PMRECEIVE") = "1") then %>
<a href="privatesend.asp?method=Topic&mname=<% =rs("M_NAME") %>"><img src="<%=strImageURL %>1-pm.gif" alt="发送悄悄话" border="0" align="absmiddle"></a>
<% end if %>
<% if (strHomepage = "1") then %>
<% if rs("M_Homepage") <> " " then %>
<a href="<% =rs("M_Homepage") %>"><img src="<%=strImageURL %>1-home.gif" alt="参观 <% =ChkString(rs("M_NAME"),"display") %> '的个人主页" border="0" align="absmiddle"></a>
<% end if %>
<% end if %>
<% if (AdminAllowed = 1 or rs("MEMBER_ID") = Member_ID) or (strNoCookies = "1") then %>
<% if ((rsCStatus("CAT_STATUS") <> 0) and (rsFStatus("F_STATUS") <> 0) and (rsTStatus("T_STATUS") <> 0)) or (AdminAllowed = 1) then %>
<a href="post.asp?method=EditTopic&REPLY_ID=<% =rs("TOPIC_ID") %>&TOPIC_ID=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&auth=<% =rs("T_AUTHOR") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="<%=strImageURL %>1-edit.gif" alt="编辑讯息" border="0" align="absmiddle"></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=<% =ChkString(rs("M_ICQ"), "JSurlpath") %>&M_NAME=<% =ChkString(rs("M_NAME"), "JSurlpath") %>')"><img src="http://online.mirabilis.com/scripts/online.dll?icq=<% =ChkString(rs("M_ICQ"), "urlpath") %>&img=5" height=16 width=16 alt="发送ICQ讯息给 <% =ChkString(rs("M_NAME"),"display") %>" border="0" align="absmiddle"></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=<% =rs("M_YAHOO") %>" target=_blank><img align=absmiddle width=16 height=16 src="http://icon.tencent.com/<% =rs("M_YAHOO") %>/s/00/" alt="<% =rs("M_YAHOO") %>" border=0></a> <% =rs("M_YAHOO") %>
<% end if %>
<% end if %>
<% if (strAIM = "1") then %>
<% if Trim(rs("M_AIM")) <> "" then %>
<a href="JavaScript:openWindow('pop_messengers.asp?mode=AIM&AIM=<% =rs("M_AIM") %>&M_NAME=<% =rs("M_NAME") %>')"><img src="<%=strImageURL %>icon_aim.gif" height=16 width=16 alt="传AIM讯息给 <% =rs("M_NAME") %>" border="0" align="absmiddle" hspace="6"></a>
<% end if %>
<% end if %>
<%'############### READ/WRITE ACCESS ###########################%>
<% 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=<% =Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>&CAT_ID=<% =Request.QueryString("CAT_ID") %>&Forum_Title=<% =ChkString(Request.QueryString("FORUM_Title"),"urlpath") %>&Topic_Title=<% =ChkString(Request.QueryString("Topic_Title"),"urlpath") %>"><img src="<%=strImageURL %>1-quote.gif" alt="引用回复" border="0" align="absmiddle"></a>
<% end if
end if%>
<%'############### READ/WRITE ACCESS ###########################%>
<% if (strIPLogging = "1") then %>
<% if (AdminAllowed = 1) or (strNoCookies = "1") then %>
<a href="JavaScript:openWindow('topic.asp?mode=getIP&TOPIC_ID=<% =rs("TOPIC_ID") %>&FORUM_ID=<% =Request.QueryString("FORUM_ID") %>')"><img src="<%=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">
<font color="<% =strForumFontColor %>" face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><% =formatStr(rs("T_MESSAGE")) %></font></td>
</tr>
<%
end if
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "TOPICS "
strSql = strSql & " SET " & strTablePrefix & "TOPICS.T_VIEW_COUNT = (" & strTablePrefix & "TOPICS.T_VIEW_COUNT + 1) "
strSql = strSql & " WHERE (" & strTablePrefix & "TOPICS.TOPIC_ID = " & Request.QueryString("TOPIC_ID") & ");"
my_conn.Execute (strSql)
set rs = nothing
End Sub
sub DisplayIP()
usr = (chkForumModerator(Request.QueryString("FORUM_ID"), STRdbntUserName))
if (chkUser((STRdbntUserName), (Request.Cookies(strUniqueID & "User")("Pword"))) = 4) then
usr = 1
end if
if usr then
if Request.QueryString("TOPIC_ID") <> "" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "TOPICS.T_IP, " & strTablePrefix & "TOPICS.T_SUBJECT "
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE TOPIC_ID = " & Request.QueryString("TOPIC_ID")
rsIP = my_Conn.Execute(strSql)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -