boards.asp

电子日记可以自动提醒、记录你所做的事情。在特别有意义的日子里

		if(n>=num && n<ss.length)
		{
			document.write("<span style=\"cursor:hand\" title=\"更多版主: " + ss[n]);
			for(n=n+1;n<ss.length;n++){document.write(" " + ss[n]);}
			document.write("\">...</span>");
		}
	}
}
function htmlencode(str)
{
	var re = /(<)/gi;
	var rv = str.replace(re,"&lt;");
	re = /(>)/gi;
	rv = rv.replace(re,"&gt;");
	re = /(\")/gi;
	rv = rv.replace(re,"&quot;");
	return(rv);
}
function LeftTrue(str,n)
{
	var mx=String.fromCharCode(127);
	if(str.length<=n/2)
	{
		return(str);
	}
	else
	{
		var TStr="";
		var l,t=0;
		var i;
		l=str.length;
		for(i=0;i<l;i++)
		{
			if(str.charAt(i)>mx)
			{
				t=t+2;
			}
			else
			{
				t=t+1;
			}
			if(t>n)break;
			TStr=TStr+str.charAt(i);
		}
		return(TStr);
	}
}

function strlength(str)
{
	var mx=String.fromCharCode(255);
	if(str.length==0)
	{
		return(0);
	}
	else
	{
		var TStr="";
		var l,t,c;
		var i;
		l=str.length;
		t=l;
		for(i=0;i<l;i++)
		{
			if(str.charAt(i)>mx)
			{
				t+=1;
			}
		}
		return(t);
	}
}<%End If
		Dim BoardID,ForumPass
		Dim N
		GBL_TopicNum = 0
		GBL_AnnounceNum = 0
		GBL_GoodNum = 0
		GBL_TodayAnnounce = 0

		For N = GBL_StartBoard to BoardNum
			BoardID = Blist(0,n)
			GetData = Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))
			If isArray(GetData) = False Then
				ReloadBoardInfo(BoardID)
				GetData = Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))
			End If
		If GBL_REQ_Assort = 0 or (GBL_REQ_Assort > 0 and GBL_REQ_Assort = cCur(Blist(1,n))) Then
			If LMT_SimpleHomePage = 0 Then
				ForumPass = GetData(7,0)
				If ForumPass <> "" Then ForumPass = "leadbbs"
				GetData(9,0) = cCur(GetData(9,0))
				If GetData(9,0) > 1 Then
					If GetBinarybit(GetData(9,0),7) = 1 or GetBinarybit(GetData(9,0),2) = 1 Then
						GetData(20,0) = "-"
						GetData(3,0) = "-"
					End If
				End If					
				'If isNumeric(Application(DEF_MasterCookies & "BDOL" & BoardID)) = 0 Then
				'	Application.Lock
				'	Application(DEF_MasterCookies & "BDOL" & BoardID) = 0
				'	Application.UnLock
				'End If
				Response.Write VbCrLf & "displayboard(" & BoardID & "," & GetData(1,0) & ",""" & Replace(Replace(GetData(0,0),"\","\\"),"""","\""") & """,""" & Replace(Replace(Replace(GetData(2,0),"\","\\"),"""","\"""),VbCrLf,"\n") & """,""" & Replace(Replace(GetData(3,0),"\","\\"),"""","\""") & """,""" & GetData(4,0) & """," & GetData(29,0) & "," & GetData(30,0) & ",""" & ForumPass & """," & GetData(19,0) & ",""" & Replace(Replace(Replace(GetData(20,0),"\","\\"),"""","\"""),"<","&lt;") & """,""" & Replace(Replace(GetData(10,0),"\","\\"),"""","\""") & """," & GetData(9,0) & ",""" & Replace(Replace(GetData(14,0),"\","\\"),"""","\""") & """," & GetData(31,0) & "," & GetData(32,0) & ",""" & Replace(Replace(GetData(21,0),"\","\\"),"""","\""") & """,""" & GetData(22,0) & """,""" & GetData(23,0) & """,0,""" & GetData(27,0) & """);"
			Else
				Response.Write VbCrLf & "displayboard(" & BoardID & "," & GetData(1,0) & ",""" & Replace(Replace(GetData(0,0),"\","\\"),"""","\""") & """,""" & Replace(Replace(GetData(14,0),"\","\\"),"""","\""") & """);"
			End If

			GBL_TopicNum = GBL_TopicNum + cCur(GetData(29,0))
			GBL_AnnounceNum = GBL_AnnounceNum + cCur(GetData(30,0))
			GBL_GoodNum = GBL_GoodNum + cCur(GetData(32,0))
			GBL_TodayAnnounce = GBL_TodayAnnounce + cCur(GetData(31,0))
		End If
		Next
		If BoardNum > 0 and LMT_SimpleHomePage = 1 Then
		%>
		if(num>0){for(n=num;n<5;n++)document.write("<td width=20%>&nbsp;</td>");}
		<%End If%>
</script>
		</table><%If GBL_TableBottomString <> "" Then
			%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
		End If
		'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1))
	End If
	If GBL_TodayAnnounce > GBL_MaxAnnounce Then
		GBL_MaxAnnounce = GBL_TodayAnnounce
		'Con.ExeCute("Update LeadBBS_SiteInfo Set MaxAnnounce=" & GBL_TodayAnnounce & ",MaxAncTime=" & GetTimeValue(DEF_Now))
		'GBL_DBNum = GBL_DBNum + 1
		UpdateStatisticDataInfo GBL_TodayAnnounce,6,0
		UpdateStatisticDataInfo GetTimeValue(DEF_Now),7,0
	End If
	Response.Write "<br>"

	If GBL_TableHeadString <> "" Then
		Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>"
		Response.Write GBL_TableHeadString
		Response.Write "</td></tr></table>"
	End If
	DisplayBoardInfo
	If GBL_TableBottomString <> "" Then
		%><table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table><%
	End If%>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="0" cellpadding="0" align="center">
	<tr align=center>
		<td>
<!-- #include file=inc/IncHtm/BoardLink.asp -->
		</td>
	</tr>
	</table>
	<%

End Function

Sub DisplayBoardInfo

	%>
	<table width="<%=DEF_BBS_ScreenWidth%>" border="0" cellspacing="1" cellpadding="5" align="center" bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
	<tr bgcolor=<%=DEF_BBS_LightDarkColor%>><td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=white class=HeadFont>论坛及用户来访信息</font></b></td></tr>
	<tr bgcolor=<%=DEF_BBS_LightestColor%> align=center width=<%=DEF_AllFaceMaxWidth%> class=TBBG9>
		<td>
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
		<tr>
		<td align=left valign=top>
				<%DisplayBoardInfo2%>
		<td align=left valign=top><img src=images/null.gif width=2 height=3><br><%
			If DEF_DisplayOnlineUser = 1 Then%><IMG id=followImg0 name=followImg0 style="CURSOR: hand" onclick=ShowOnline(0,"") src="images/<%=GBL_DefineImage%>frame/plus.gif" loaded="no" width=10 height=10><%
			Else
				Response.Write "<font color=gray class=GrayFont>■</font>"
			End If
			Response.write " 在线人数：<b><a href=User/UserOnline.asp>" & GBL_OnlineUserNum & "</a></b> "
			Response.Write "<a href=User/UserFriend.asp?need=23>查看在线好友</a>"
			Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 注册用户：" & GBL_UserCount & " 人<br>"
			Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 上传附件：" & GBL_UploadNum & " 个<br>"
	        Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 页浏览量：" & GBL_PageCount+application(DEF_MasterCookies & "SitePageCount") & " 次<br>"
			%>
			
		</td>
		</tr>
		</table>
		</td>
	</tr>
	<%If DEF_DisplayOnlineUser = 1 Then%>
	<TR id=follow0 name=follow0 style="DISPLAY: none" bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
          <TD id=followTd0 name=followTd0 align=left>
	<script language=javascript>
	var EndFlag=0;
	function ShowOnline(id,ur){
		if (EndFlag==0){alert("网页未下载完成,请稍候...");return;}
		if (follow0.style.display!='block'){
			follow0.style.display="block";
			document.followImg0.src="images/<%=GBL_DefineImage%>frame/minus.gif";
			if (document.followImg0.loaded=="no"){document.frames["hiddenframe"].location.replace("User/ol.asp?id="+id+"&ur="+ur);}
			}else{
			follow0.style.display="none";
			document.followImg0.src="images/<%=GBL_DefineImage%>frame/plus.gif";
			}
		}
	</SCRIPT>
            <DIV onclick=ShowOnline(0,"")>
            <TABLE cellPadding=0 width="100%">
              <TBODY>
              <TR>
                <TD width="100%">读取中...</TD></TR></TBODY></TABLE></DIV></TD></TR>
	<%
	End If
	If DEF_DisplayOnlineUser = 2 or DEF_DisplayOnlineUser = 3 Then%>
	<TR bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
          <TD align=left colspan=2><%DisplayUserOnline 0,""%></TD></TR>
	<%
	End If%>
	</table><%

End Sub

Sub DisplayBoardInfo2

	Dim Temp%>
	<table border=0 cellspacing=0 cellpadding=0>
	<tr>
		<td>
	<%
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 总发帖量：" & GBL_AnnounceNum & " 帖<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 今日帖子：<font color=Red class=RedFont>" & GBL_TodayAnnounce & "</font> 帖<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 昨日帖子：" & GBL_YesterdayAnc & " 帖<br>"
	If BoardNum<0 Then BoardNum=0
	'Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 可见版面：" & BoardNum+1 & " 个<br>"
	Response.Write "</td><td>"
	'Response.Write "<img src=images/null.gif width=2 height=2><br> &nbsp; &nbsp; <img src=images/red_g.gif> 总 在 线："
	'If isNumeric(application(DEF_MasterCookies & "SiteOlTime")) = False Then
	'	Application.Lock
	'	application(DEF_MasterCookies & "SiteOlTime") = 0
	'	Application.UnLock
	'End If
	'GBL_OnlineTime = GBL_OnlineTime + application(DEF_MasterCookies & "SiteOlTime")
	'Response.Write Fix((GBL_OnlineTime)/(24*60*60)) & " 天<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 主题帖子：" & GBL_TopicNum & " 帖<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 回复帖子：" & (GBL_AnnounceNum-GBL_TopicNum) & " 帖<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/red_g.gif> 精华帖子：" & GBL_GoodNum & " 帖<br>"
	Response.Write "</td></tr><tr><td colspan=2 align=left>"
	Response.Write "<img src=images/null.gif width=2 height=2><br> <img src=images/red_g.gif> 最高在线数 " & GBL_MaxOnline & " 人 发生于 " & RestoreTime(GBL_MaxolTime) & "<br>"
	Response.Write "<img src=images/null.gif width=2 height=2><br> <img src=images/red_g.gif> 最高日发帖 " & GBL_MaxAnnounce & " 帖 发生于 " & RestoreTime(GBL_MaxAncTime)
	Response.Write "</td></tr></table>"

End Sub

Sub Main

	OpenDatabase
	CheckUserOnline
	If GBL_CheckPassDoneFlag <> 1 Then CheckPass
	GetActiveUserNumber
	GBL_CHK_TempStr = ""
	
	CheckAssort
	BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID,""

	UpdateOnlineUserAtInfo 0,"论坛首页"

	If GBL_CHK_User = "" Then DisplayTopInfo
	DisplayBoard
	closeDataBase
	SiteBottom
	If DEF_DisplayOnlineUser = 1 Then%><IFRAME name=hiddenframe width=0 height=0></IFRAME><script language=javascript>
	EndFlag=1;
	</script><%End If
	If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString

End Sub

Dim Officer,ApplyTime,AnnounceNum

Function DisplayUserNewest
     Dim Rs,SQL
     SQL = "select TOP 1 ID,UserName from LeadBBS_User Order by ID DESC"
     Set Rs = Con.ExeCute(SQL)
     If Not rs.Eof Then      
     %>
     <script language=javascript>
     function s(d0,d1)
     {
           if(d0=="")return;
           document.write("<a href=user/LookUserInfo.asp?id=" + d0 + "><font color=red>" + d1 + "</font></a>");
           }
     </script>
<script language=javascript>
<%      
           Response.Write "" & VbCrLf & "s("""
           Response.Write Rs.GetString(,,""",""",""");" & VbCrLf & "s(""","")
           Rs.Close
           Set Rs = Nothing
           Response.Write ""","""","""","""");"
%></script>      
<%
     Else
           Rs.Close
           Set Rs = Nothing
           Response.Write "找不到用户。" & VbCrLf
     End If

End Function

Function DisplayTopInfo

End Function

Function GetActiveUserNumber

	If isNumeric(application(DEF_MasterCookies & "ActiveUsers")) = False Then
		Application.Lock
		application(DEF_MasterCookies & "ActiveUsers") = 0
		Application.UnLock
	End If
	GBL_OnlineUserNum = cCur(application(DEF_MasterCookies & "ActiveUsers"))
	Dim TmpData
	If isArray(application(DEF_MasterCookies & "StatisticData")) = False Then ReloadStatisticData
	TmpData = Application(DEF_MasterCookies & "StatisticData")
	GBL_OnlineTime = cCur(TmpData(0,0))
	GBL_UserCount = cCur(TmpData(1,0))
	GBL_MaxOnline = cCur(TmpData(2,0))
	GBL_MaxolTime = cCur(TmpData(3,0))
	GBL_PageCount = cCur(TmpData(4,0))
	GBL_UploadNum = cCur(TmpData(5,0))
	GBL_MaxAnnounce = cCur(TmpData(6,0))
	GBL_MaxAncTime = cCur(TmpData(7,0))
	GBL_YesterdayAnc = cCur(TmpData(8,0))
	If GBL_OnlineUserNum > GBL_MaxOnline Then
		Con.ExeCute("Update LeadBBS_SiteInfo Set MaxOnline=" & GBL_OnlineUserNum & ",MaxolTime=" & GetTimeValue(DEF_Now))
		UpdateStatisticDataInfo GBL_OnlineUserNum,2,0
		UpdateStatisticDataInfo GetTimeValue(DEF_Now),3,0
	End If

End Function

Function DisplayUserOnline(BoardID,url)

	Dim Time1
	Time1 = Timer
	Const LMT_Max_OnlineUserList = 2000
	Dim ActiveUsers
	ActiveUsers = 0
	If BoardID > 0 and isArray(Application(DEF_MasterCookies & "BoardInfo" & BoardID)) = True Then ActiveUsers = cCur(Application(DEF_MasterCookies & "BDOL" & BoardID))

	%>
<table width=100%>
<script language=javascript>
var n=1;
var rguser=0;

function s(GetData0,GetData1,GetData2)
{
	var tempstr = ""
	if(GetData0 == "")return;