⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 topic.asp

📁 此程序是一个个人主页创造程序,该程序无插件,无任何恶意程序.
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
		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
				Response.Write "　<a href=""post.asp?method=Reply&TOPIC_ID=" & Request.QueryString("TOPIC_ID") & "&FORUM_ID=" & Request.QueryString("FORUM_ID") & "&CAT_ID=" & Request.QueryString("CAT_ID") & """><IMG src=""" & strImageURL & "replytothread.gif"" border=0 alt=""回复主题"" align=""absmiddle""></a>"
			Else
				If (AdminAllowed = 1)  Then
					Response.Write "　<a href=""post.asp?method=Reply&TOPIC_ID=" & Request.QueryString("TOPIC_ID") & "&FORUM_ID=" & Request.QueryString("FORUM_ID") & "&CAT_ID=" & Request.QueryString("CAT_ID") & """><IMG src=""" & strImageURL & "replytothread.gif"" border=0 alt=""回复主题"" align=""absmiddle""></a>"
				Else
					Response.Write "　<IMG src=""" & strImageURL & "closed.gif"" alt=""禁止回复"" border=0 align=""absmiddle"">"
				End If
			End if
		Else
			Response.Write "　<IMG src=""" & strImageURL & "closed.gif"" alt=""禁止回复"" border=0 align=""absmiddle"">"
		End If
%></TD>
<TD bgcolor="<% Response.Write strHeadCellColor %>" align="right" valign="middle"><% call AdminOptions() %></TD>
</TR>
</TABLE>
</TD>
<TD bgcolor="<% Response.Write strTableBorderColor %>" valign=middle width=1 height=24><img src="" width=1></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>
<%
'####################################
	if (sortorder <> "1") and MyPage = 1 then
		Call GetFirst()
	end if
'####################################

	'## 取得回复的贴子信息
	'## Forum_SQL - Get all topicsFrom DB
	strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, "
	strsql = strsql & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL, "
	strsql = strsql & strMemberTablePrefix & "MEMBERS.M_FACE_WIDTH, "
	strsql = strsql & strMemberTablePrefix & "MEMBERS.M_FACE_HEIGHT, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_ICQ, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_YAHOO, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_AIM, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_TITLE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.MEMBER_ID, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_Homepage, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_LEVEL, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_POSTS, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_COUNTRY, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_STATE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_CITY, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_DATE, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_IP, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_SEX, "
	strSql = strSql & strMemberTablePrefix & "MEMBERS.M_RATING, "
	strSql = strSql & strTablePrefix & "REPLY.REPLY_ID, "
	strSql = strSql & strTablePrefix & "REPLY.R_AUTHOR, "
	strSql = strSql & strTablePrefix & "REPLY.R_FACE, "
	strSql = strSql & strTablePrefix & "REPLY.TOPIC_ID, "
	strSql = strSql & strTablePrefix & "REPLY.R_MESSAGE, "
	strSql = strSql & strTablePrefix & "REPLY.R_DATE, "
	strSql = strSql & strTablePrefix & "REPLY.R_IP, "
	strSql = strSql & strTablePrefix & "REPLY.R_FILEID, "
	strSql = strSql & strTablePrefix & "REPLY.R_FILENAME "

	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
	strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
	strSql = strSql & " AND   TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
'####################################
	if sortorder = "2" then
		strSql = strSql & " ORDER BY R_DATE DESC"
	else
		if sortorder = "1" then
			strSql = strSql & " ORDER BY R_DATE DESC"
		else
			strSql = strSql & " ORDER BY R_DATE ASC"
		end if
	end if
'####################################

	
	if strDBType = "mysql" then 'MySql specific code
		if mypage > 1 then
			intOffSet = CInt((mypage - 1) * strPageSize) - 1
			strSql = strSql & " LIMIT " & intOffSet & ", " & CInt(strPageSize) & " "
		end if

		'## Forum_SQL - Get the total pagecount
		strSql2 = "SELECT COUNT(" & strTablePrefix & "REPLY.TOPIC_ID) AS REPLYCOUNT "
		strSql2 = strSql2 & " FROM " & strTablePrefix & "REPLY "
		strSql2 = strSql2 & " WHERE  TOPIC_ID = " & Request.QueryString("TOPIC_ID") & " "
		
		set rsCount = my_Conn.Execute(strSql2)
		if not rsCount.eof then
			maxpages = (rsCount("REPLYCOUNT")  \ strPageSize )
			if rsCount("REPLYCOUNT") mod strPageSize <> 0 then
				maxpages = maxpages + 1
			end if
		else
			maxpages = 1
		end if

		set rs = Server.CreateObject("ADODB.Recordset")
'		RS.cachesize = strPageSize

		RS.open  strSql, my_Conn, 3

	else 'end MySql specific code

		set rs = Server.CreateObject("ADODB.Recordset")
		RS.CacheSize = 20
		RS.Open strSql, my_Conn, 3

		if not(RS.EOF or RS.BOF) then		'### Replies found in DB
			RS.MoveFirst

			RS.PageSize = 10
			RS.CacheSize = RS.PageSize
			MaxPages = RS.PageCount
			MaxRecs = RS.PageSize
			If myPage > RS.PageCount Then
				myPage = RS.PageCount
			end if
			RS.AbsolutePage = mypage

			StartPageNum=1
			do while StartPageNum+10<=myPage
				StartPageNum = StartPageNum+10
			Loop
			EndPageNum = StartPageNum+9
			If EndPageNum>RS.Pagecount then EndPageNum=RS.Pagecount

		end if
	end if		
	if RS.EOF or RS.BOF then  '## No replies found in DB
		Response.Write ""
	else
'		RS.movefirst
		intI = 0
		howmanyrecs = 0
		rec = 1

		do until RS.EOF or (mypage = 1 and rec > 10) or (mypage > 1 and rec > 10)
			if intI = 0 then
				CColor = strAltForumCellColor
			else
				CColor = strForumCellColor
			end if

			strFilesDownLoad = ""
			if RS("R_FILEID") <> "" AND RS("R_FILENAME") <> "" then
				if lCase(Right(RS("R_FILENAME"),4)) <> ".jpg" AND lCase(Right(RS("R_FILENAME"),4)) <> ".gif" then
					strFilesDownLoad = "<P align=left><A href=" & usrPath & "/" & RS("R_FILENAME") & " target=_blank><img src=""" & strImageURL & "addon.gif"" border=0>&nbsp;与此主题相关的文件：<font color=""" & strInsistFontColor & """>" & RS("R_FILENAME") & "</font></A></P>"
				else
					strFilesDownLoad = "<P align=left><A href=" & usrPath & "/" & RS("R_FILENAME") & " target=_blank><img src=""" & strImageURL & "addon.gif"" border=0>&nbsp;与此主题相关的文件：<font color=""" & strInsistFontColor & """>" & RS("R_FILENAME") & "</font></A>"
					strFilesDownLoad = strFilesDownLoad & "<BR><IMG src=""" & usrPath & "/" & RS("R_FILENAME") & """ Border=0>"
				end if
			end if
%></TR><TR>
		<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 strTableBorderColor %>">
		    <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 %>
		&nbsp;<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 %>
		&nbsp;<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" alt="发送ICQ讯息给 <% Response.Write  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=<% 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>&nbsp;QQ</a>
<%			  end if %>
<%			end if %>
<%			if (strAIM = "1") then %>
<%				if Trim(rs("M_AIM")) <> "" then %>
        &nbsp;<a href="JavaScript:openWindow('pop_messengeRS.asp?mode=AIM&AIM=<% Response.Write rs("M_AIM") %>&M_NAME=<% Response.Write ChkString(rs("M_NAME"),"urlpath") %>')"><IMG src="<% Response.Write strImageURL %>icon_aim.gif" alt="传AIM讯息给 <% Response.Write 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=ReplyQuote&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") %>&M=<% Response.Write Request.QueryString("M") %>"><IMG src="<% Response.Write strImageURL %>reply.gif" alt="回复并引用原文" border="0" align="absmiddle">&nbsp;引用</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=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%>
<%'############### READ/WRITE ACCESS ###########################%>
<%			if (strIPLogging = "1") then %>
<%				if (AdminAllowed = 1) or (strNoCookies = "1") then %>
					　<a href="JavaScript:openWindow('topic.asp?mode=getIP&REPLY_ID=<% Response.Write rs("REPLY_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>')"><IMG src="<% Response.Write strImageURL %>icon_ip.gif" 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=<% Response.Write Rs("REPLY_ID") %>&TOPIC_ID=<% Response.Write Request.QueryString("TOPIC_ID") %>&FORUM_ID=<% Response.Write Request.QueryString("FORUM_ID") %>')"><IMG src="<% Response.Write strImageURL %>icon_delete_reply.gif" alt="删除回复" border="0" align="absmiddle"></a>
<%				end if %>
1234

⌨️ 快捷键说明

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