list.asp

生活者姿态整站程序 生活者姿态整站程序 生活者姿态整站程序

<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/bbs_list.asp"-->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/ad_fixup.asp"-->
<!--#include file="inc/ad_move.asp"-->
<!--#include file="head_bbs.asp"-->
<%
    	Rem ----------------------
    	Rem ------主程序开始------
    	Rem ----------------------
   	dim sql,rs
	dim Ers,Esql
   	dim username
   	dim bBoardEmpty
	dim boardid
	dim timeLimited,limitime,tl
	dim totalrec
	dim n,i,RowCount
	dim p
	dim currentpage
	dim announceIDRange1,announceIDRange2
	dim arrRow1

	if founderr then
		call nav()
		call headline(1)
		call error()
	else
    	Call getInput()
    	call chkInput()
		if founderr then
			call nav()
			call headline(1)
			call error()
		else
			if cint(boardskin)=6 then
				if membername="" then
				response.write "<script>location.href='login.asp'</script>"
				response.end
				end if
			elseif cint(boardskin)=5 then
				if membername="" then
					founderr=true
					Errmsg=Errmsg+"<br>"+"<li>本论坛为认证论坛，请<a href=login.asp>登陆</a>并确认您的用户名已经得到管理员的认证后进入。"
				else
					if chkboardlogin(boardid,membername)=false then
					founderr=true
					Errmsg=Errmsg+"<br>"+"<li>本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。"
					end if
				end if
			end if
			if founderr then
				call nav()
				call headline(1)
				call error()
			else
				call nav()
				call headline(1)
				call boardtop(boardid)
				call AnnounceList1()
				call listPages3()
				call boardlist()
				if founderr=true then call error()
			end if
		end if
	end if
	call endline()
	REM 显示版面信息---Headinfo
	sub boardtop(boardid)
	call activeuser()

	response.write "<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: #000000; }</style>"

	response.write "<script language=javascript src=inc/list.js></script><TABLE cellSpacing=0 cellPadding=0 width=95% border=0 align=center>"&_
				"<TBODY><tr>"&_
				"<td align=center width=34 valign=middle> <img src="&picurl&P_call&" border=0 alt=本分论坛的公告！不可不看！！ width=20 height=17>"&_ 
				"</td><td valign=middle align=left>"

	sql="select top 1 title,content,addtime from bbsnews where boardid="&boardid&"  order by id desc"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1,1
	if rs.bof and rs.eof then
		response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='当前没有公告'>当前没有公告</ACRONYM></a></b> ("& now() &")"
	else
		response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='"& rs("content") &"'>"& rs("title") &"</ACRONYM></a></b> ("& rs("addtime") &")"
	end if
	rs.close
	set rs=nothing


	response.write "</td><td align=right valign=middle><p>"&_
				"<form action=list.asp method=get>"&_
				"<input type=hidden name=boardid value="& boardid &">"&_
				"<select name=selTimeLimit onchange='javascript:submit()'>"&_
				"<option value=all>查看所有的主题"&_
				"<option value=1>查看一天内的主题"&_
				"<option value=2>查看两天内的主题"&_
				"<option value=7>查看一星期内的主题"&_
				"<option value=15>查看半个月内的主题"&_
				"<option value=30>查看一个月内的主题"&_
				"<option value=60>查看两个月内的主题"&_
				"<option value=180>查看半年内的主题"&_
				"</select>"&_
				"</form></p></td></tr></TBODY></TABLE>"
response.write "<table cellspacing=0 border=0 width=95% bgcolor="&Tablebackcolor&" align=center><tr><td height=1></td></tr></table>"&_
				"<TABLE border=1 cellpadding=0 cellspacing=0 width=95% align=center bordercolor="&Tablebackcolor&">"&_
  				"<TBODY>"&_
				"<TR>"&_
				"<TD height=27 width=""95%"" bgColor="&Tabletitlecolor&"><font color="&TableFontColor&">