forum.asp

这个论坛也不错．适合做毕业设计的

<!--#INCLUDE FILE="config.asp" -->

<%
Function ChkAdmin(strName, StrPasswd)
strSql ="SELECT Member_id, M_Name, M_Password from Members where M_Name = '" & strName & "' and M_Password = '" & StrPasswd &"'"
set rs_chk = my_conn.Execute (StrSql)
if rs_chk.BOF or rs_chk.EOF then
  ChkAdmin = 0
else

    strsql = "SELECT Admin.Admin_Name, Admin.Forum_ID from Admin"
    set rsAdmin = my_conn.Execute (strsql)
    if not(rsAdmin.eof or rsAdmin.bof) then
      do until rsAdmin.eof
        if rsAdmin("Admin_Name")=strName then ChkAdmin=1
        rsAdmin.movenext
      loop
    end if

end if
strsql = "select SFAdmin_Name, SFAdmin_Password from SFAdmin"
set rs_chk = my_conn.Execute (strSQL)
if strName=rs_chk("SFAdmin_Name") and strpasswd=rs_chk("SFAdmin_Password") then ChkAdmin =1
rs_chk.close	
set rs_chk = nothing
set rsAdmin = nothing
End Function

nDays = Request.Cookies("NumDays")

if Request.form("cookie") = "true" then
	Response.Cookies("NumDays") = Request.Form("days")
	Response.Cookies("NumDays").expires = date + 365
	nDays = Request.Form("Days")
End If

if nDays = "" then
	nDays = 0
End If

defDate = dateadd("d", -cint(nDays), date)

set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString

strsql = "select SFAdmin_Subject from SFAdmin"
set rs = my_conn.Execute (strsql)

%>
<!--#INCLUDE FILE="top.asp" -->
<table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td><a href="index.asp">论坛首页</a> &gt; 
<a href="forum.asp?forum_id=<%= Request.QueryString("forum_id") %>&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>"><%=Request.QueryString("forum_title")%></a>
</td></tr></table>
<table border =0 width=<%=TableWidth%> align="center" class="sft"><tr><td width="20"><img src="images/aff.gif"></td><td width="50%"><marquee scrollamount=2><a href="aff.asp" target=_blank><%=rs("SFAdmin_Subject")%></a></marquee></td>
<td align= "right"><a href="post.asp?forum_id=<%=Request.QueryString("forum_id")%>&method=Topic&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>" title="发布一个新的主题"><img src="images\newthread.gif" border=0></img></a>
<a href="post.asp?forum_id=<%=Request.QueryString("forum_id")%>&method=Topic&type=vote&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>" title="发布一个新的投票项目"><img src="images\newvote.gif" border=0></img></a>
</tr></td>
</table>

<%
strsql = "select F_AdminOnly from forum where Forum_ID = " & Request.QueryString("forum_id")
set rs = my_conn.Execute (strsql)
if rs("F_AdminOnly") then
  if cint(ChkAdmin(Request.Cookies("User")("Name"), Request.Cookies("User")("Pword")))  <> 1 then
%>

<table align="center"  bgcolor=<%=TableColor%> border="0" width=500 cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> align="center" class="sfh">抱歉,您无权进入本版块</td></tr>
<tr><td bgcolor=<%=CellColor1%> align="center"><br>只有版主和管理员才可以有权进入本版块!<br>如果您是版主或管理员,请<a href="login.asp">登录论坛</a>后再进入本版块</td></tr>
</table>
<%
    Response.End
  end if
end if
%>

<table bgcolor=<%=TableColor%> border="0" align="center" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft">
<tr><td bgcolor=<%=HeadColor%> class="sfh">本版块当前在线</td></tr>
<tr><td bgcolor=<%=CellColor1%>>
<!--#INCLUDE FILE="online.asp" -->
<%
strsql = "update online set online_forum = "&Request.QueryString("forum_id") &" where online_ip = '" & ip & "'"
my_conn.Execute (strsql)
strsql="select Online_Name from online where Online_Forum = " & Request.QueryString("forum_id")
set rs = my_conn.Execute (strsql)
if rs.eof or rs.bof then
  Response.Write "错误:无用户"
else
  do until rs.Eof
    if rs("Online_Name") <> "游客" then
     Response.Write "&nbsp;<a href='viewuser.asp?name=" & rs("Online_Name") & "' target=_blank>" & rs("Online_Name") & "</a>"
    else
     guest = guest +1
    end if
  rs.movenext
  loop
end if
if guest>0 then Response.Write "&nbsp;(游客:"& guest &"人)"
%>
</td></tr></table>
<table width=<%=TableWidth%> border =0 align="center" class="sft"><tr><td align="right">
<%
if Request.QueryString("onlygood") = "yes" then
 Response.Write "<a href='forum.asp?forum_id=" &  Request.QueryString("forum_id") & "&forum_title=" & server.Urlencode(Request.QueryString("forum_title")) & "'>查看本版全部帖子</a>"
else
 Response.Write "<a href='forum.asp?forum_id=" &  Request.QueryString("forum_id") & "&forum_title=" & server.Urlencode(Request.QueryString("forum_title")) & "&onlygood=yes'>只查看本版精华</a>"
end if
Response.Write "&nbsp;&nbsp;&nbsp;版主:"

strsql = "SELECT Admin.Admin_Name from Admin where Admin.Forum_ID = " & Request.QueryString("forum_id")
		  set rsAdmin = my_conn.Execute (strsql)
		  if rsAdmin.eof or rsAdmin.bof then
		    Response.Write "版主空缺"
		  else
		    do until rsAdmin.eof
		      Response.Write "<a href='viewuser.asp?name=" & rsAdmin("Admin_Name") & "' target=_blank>" & rsAdmin("Admin_Name") & "</a>&nbsp;"
		      rsAdmin.movenext
		    loop
		  end if
%>
</td></tr></table>
<table align="center"  bgcolor=<%=TableColor%> border="0" width=<%=TableWidth%> cellspacing="1" cellpadding="3" class="sft" style='TABLE-LAYOUT: fixed'>
  <tr bgcolor="<% =HeadColor %>" class="sfh">
    <td align="center" width="5%">&nbsp;</td>
    <td align="center" width="35%">主题</td>
    <td align="center" width="20%">作者</td>
    <td align="center" width="5%">点击</td>
    <td align="center" width="5%">回复</td>
    <td align="center" width="30%">最后回复</td>
  </tr>
<% 
strSql ="SELECT Topics.T_Status, Topics.T_Top, Topics.T_VoteItem, Topics.T_Read, Topics.Forum_ID, Topics.Topic_ID, Topics.T_subject, Topics.T_Originator, Topics.T_Replies, Topics.T_Last_Post, Topics.T_Last_Member, Members.M_Name "
strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator "
strSql = strSql & "where Topics.Forum_ID = " & Request.QueryString("forum_id")
if Request.QueryString("onlygood") = "yes" then strSql = strSql & " and T_Read >= 1000000000"
if nDays<>0 then strSql = strSql & " and T_Last_Post >#" & defDate & "#"
strSql = strSql & " order by Topics.T_Top, Topics.T_Last_Post DESC"

' set rs = my_conn.Execute (StrSql)
set rs = server.CreateObject("ADODB.RecordSet")
rs.Open strSql, my_conn, 1, 1

If rs.Eof or rs.Bof then
	Response.Write "<tr><td bgcolor=" &CellColor1&" colspan=6 >无任何帖子</td></tr>"
Else
	c = 0
	rs.PageSize = ForumRow
	PageSize = rs.PageSize
	TotalPages=rs.PageCount
	page=Request.QueryString("page")
	if not IsNumeric(page) then page=1
	if page>1 then
	  page = cint(page)
	else
	  page = 1
	end if
	if page>TotalPages then page=TotalPages
	rs.AbsolutePage=page
      do until rs.Eof or RowCount>= PageSize
	if c = 0 then 
	  CColor = CellColor2
	else
	  CColor = CellColor1
	End if
	Response.Write "<tr bgcolor='" & CColor & "'><td align='center'><a href='topic.asp?topic_id=" & rs("Topic_ID") & "&forum_id=" & Request.QueryString("forum_id") & "&Topic_Title=" & left(server.URLEncode(rs("T_Subject")), 50) & "&forum_title=" & server.URLEncode(Request.QueryString("forum_title")) & "' target=_blank>"
	imgstr="<img src='images/oldt.gif' border=0>"     
	if rs("T_Read") < 1 then imgstr= "<img src='images/newt.gif' border=0>"
	if ((rs("T_Read") >= HotTopicNum) and (rs("T_Read") <=1000000000)) or (rs("T_Replies") >=HotReplyNum) then imgstr= "<img src='images/hott.gif' border=0>"
	if rs("T_VoteItem")<>"" then imgstr= "<img src='images/votet.gif' border=0>"
	if rs("T_Status")=false then imgstr= "<img src='images/closet.gif' border=0>"
	if rs("T_Top")<5 then imgstr= "<img src='images/topt.gif' border=0>"
	Response.Write imgstr&"</a></td>"
	Response.Write "<td><a href='topic.asp?read=yes&topic_id=" & rs("Topic_ID") & "&forum_id=" & Request.QueryString("forum_id") & "&Topic_Title=" & left(rs("T_Subject"), 50) & "&forum_title=" & Request.QueryString("forum_title") &  "'>"
	if rs("T_Top")=4 then Response.Write "置顶:"
	if rs("T_Top")=2 then Response.Write "<b>置顶</b>:"
	Response.Write left(rs("T_Subject"), 50) & "</a>"
	if  rs("T_Read") >= 1000000000 then
	  Response.Write "<img src='images/goodt.gif' title='精华帖子' border=0>"
	end if
	Response.Write "</td>"
	Response.Write "<td align='center'>" & "<a href='viewuser.asp?name=" & rs("M_Name") & "' target=_blank>" & rs("M_Name") & "</td>"
	Response.Write "<td align='center'>"
	if  rs("T_Read") >= 1000000000 then
	  Response.Write rs("T_Read") - 1000000000
	else
	  Response.Write rs("T_Read")
	end if
	Response.Write "</td>"
	Response.Write "<td align='center'>" & rs("T_Replies") & "</td>"
	Response.Write "<td align='right'><a href='viewuser.asp?name="&rs("T_Last_Member")&"' target=_blank>" & rs("T_Last_Member") &"</a>&nbsp;" & rs("T_Last_Post") & "</td></tr>"
	rs.MoveNext
	c = c + 1
	if c >= 2 then c = 0
	RowCount= RowCount+ 1
      loop
End If
%>
</table>
<br>
<table align="center" border="0" width=<%=TableWidth%> cellspacing="0" cellpadding="0" class="sft">
<tr><td align="left" width="70%">
<SCRIPT LANGUAGE="JavaScript">
function goforum(strgoforum) {
location.replace('forum.asp?'+strgoforum)
}
</SCRIPT><select onChange=goforum(this.options[this.selectedIndex].value) name=forumid class="box">
<option value="" selected>论坛快捷跳转</option>
<%
	StrSql = "SELECT Forum_ID, F_Name from forum"
	set rs = my_conn.Execute(strsql)
	
	if rs.EOF or rs.BOF then 
		Response.Write "错误!无任何论坛!"
	Else
		do until rs.EOF
			Response.Write "<option value='forum_id=" & rs("Forum_ID")  & "&forum_title=" & rs("F_Name") &"'>" & "→" &rs("F_Name") & "</option>"
			rs.MoveNext
		loop
		Response.Write "</select>"
	End If
%>
</select>
&nbsp;&nbsp;图例:&nbsp;<img src="images/oldt.gif">旧帖&nbsp;&nbsp;<img src="images/newt.gif">新帖&nbsp;&nbsp;<img src="images/hott.gif">热帖&nbsp;&nbsp;<img src="images/closet.gif">已被关闭&nbsp;&nbsp;<img src="images/votet.gif">投票&nbsp;&nbsp;<img src="images/goodt.gif">精华
</td>
<td width="30%">

<%
Response.Write "共" & TotalPages & "页<b>"
beginpage=1
endpage=Totalpages
if TotalPages>=5 then
  if page>=3 then
    beginpage=page-2
    if page<=(TotalPages-2) then
      endpage=page+2
    else
      endpage=TotalPages
      beginpage=TotalPages-4
    end if
  else
    beginpage=1
    endpage=5
  end if
end if
if beginpage>1 then response.write " <a href='forum.asp?page=1&forum_id="&Request.QueryString("forum_id")&"&forum_title="&Request.QueryString("forum_title")&"'>&lt&lt</a>"
for i=beginpage to endpage
  if i=page then
    response.write " <font color=cc0066>"&i&"</font>"
  else
    response.write " <a href='forum.asp?page="&i&"&forum_id="&Request.QueryString("forum_id")&"&forum_title="&Request.QueryString("forum_title")&"' " & "title='第" & i &"页'>"&i&"</a>"
  end if
next
if endpage<TotalPages then response.write " <a href='forum.asp?page="&TotalPages&"&forum_id="&Request.QueryString("forum_id")&"&forum_title="&Request.QueryString("forum_title")&"'>&gt&gt</a>"
%>           
</b></td></tr></table>
<%
strmethod_type = "Topic"
%>
<!--#INCLUDE FILE="quickpost.asp" -->
<!--#INCLUDE FILE="copyright.asp" -->
</body></html>
<%
my_conn.Close
set my_conn = nothing
%>