default.asp

一个asp写的论坛源代码,论坛所需要的功能都有

<!-- #include file="conn.asp" -->
<!-- #include file="INC/Const.asp" -->
<%
Dim RootID
RootID = Cid(Request.QueryString("rootid"))
team.Headers(Team.Club_Class(1))
Call Main_headers()
Call ForumList()
Call team.OnlinActions("0,首页,"&Team.Club_Class(1))
Call Main_footer()
team.Footer()

Sub Main_headers()
	Dim AffTemp,TempStr,AfficheTitle
	Dim i,PostCount
	TempStr = Team.IndexHtml(2)
	TempStr = Replace(TempStr,"{$clubname}",Team.Club_Class(1))
	AfficheTitle = Team.Affiche()
	If IsArray(AfficheTitle) Then
		For i=0 To Ubound(AfficheTitle,2)
			AffTemp=AffTemp & " <a href= Affiche.asp#"&AfficheTitle(0,i)&" target=_blank><Span Style='"&AfficheTitle(5,i)&"'> "&AfficheTitle(1,i)&" </Span></A>["&AfficheTitle(4,i)&"] "
		Next
		TempStr = Replace(TempStr,"{$affiche}",AffTemp)
	Else
		TempStr = Replace(TempStr,"{$affiche}",AfficheTitle)
	End If
	TempStr = Replace(TempStr,"{$Alltopic}",Application(CacheName&"_PostNum"))
	TempStr = Replace(TempStr,"{$Allpost}",Application(CacheName&"_ConverPostNum"))
	TempStr = Replace(TempStr,"{$Alluser}",Application(CacheName&"_UserNum"))
	TempStr = Replace(TempStr,"{$todaypost}",Application(CacheName&"_TodayNum"))
	TempStr = Replace(TempStr,"{$oldpost}",Application(CacheName&"_OldTodayNum"))
	TempStr = Replace(TempStr,"{$newloginuser}",Team.Club_Class(12))
	If team.UserLoginED = False Then
		TempStr = Replace(TempStr,"{$levelname}","<b>游客</b>")
		TempStr = Replace(TempStr,"{$oldlogin}",Now())
		TempStr = Replace(TempStr,"{$mypost}","<b>0</b>")
		TempStr = Replace(TempStr,"{$mymoney}","<b>0</b>")
		TempStr = Replace(TempStr,"{$myip}",Remoteaddr)
	Else
		TempStr = Replace(TempStr,"{$myip}",Remoteaddr)
		TempStr = Replace(TempStr,"{$levelname}","<b>"&team.LevelName(0)&"</b>")
		TempStr = Replace(TempStr,"{$oldlogin}",Team.User_SysTem(10))
		TempStr = Replace(TempStr,"{$mypost}","<b>"&Team.User_SysTem(5)+Cid(Team.User_SysTem(6))&"</b>")
		TempStr = Replace(TempStr,"{$mymoney}","<b>"&Team.User_SysTem(14)&"</b>")
	End If
	TempStr = Replace(TempStr,"{$hotpost}","")
	Echo TempStr
End Sub    

Sub ForumList()
	Dim ShowBbs,i,tmp
	Showbbs = team.BoardList()
	If Isarray(Showbbs) Then
		tmp = ""
		For i=0 to Ubound(Showbbs,2)
			If ShowBBs(3,i) = 0 Then
				If RootID>0 Then
					If RootID = Showbbs(0,i) Then
						tmp = Replace(Team.IndexHtml(3),"{$myid}",Showbbs(0,i))
						tmp = Replace(tmp,"{$bbsname}",Showbbs(1,i))
						If Showbbs(2,i)=0 Then tmp = tmp & Team.IndexHtml (4)
						tmp = Replace(tmp,"{$num}",iif(Showbbs(2,i)=0,"7",team.Forum_setting(32)))
						Echo tmp
						Echo team.ForumList_tips(Showbbs(0,i))
						Echo Team.IndexHtml (7)
					End if
				Else
					tmp = Replace(Team.IndexHtml(3),"{$myid}",Showbbs(0,i))
					tmp = Replace(tmp,"{$bbsname}",Showbbs(1,i))
					If Showbbs(2,i)=0 Then tmp = tmp & Team.IndexHtml (4)
					tmp = Replace(tmp,"{$num}",iif(Showbbs(2,i)=0,"7",team.Forum_setting(32)))
					Echo tmp
					Echo team.ForumList_tips(Showbbs(0,i))
					Echo Team.IndexHtml (7)
				End If
			End if
		Next
	End If
End Sub

Sub Main_footer()
	Dim tmp,i
	If RootID>0 Then 
		Exit Sub
	End if
	tmp = Team.IndexHtml(8)
	tmp = Replace(tmp,"{$userlogin}",IIf(team.UserLoginED=true,"display:None",""))
	tmp = Replace(tmp,"{$loginusername}",Tk_UserName)
	If team.UserLoginED=True Then
		tmp = Replace(tmp,"{$Levelname}",Team.Levelname(0))
	Else
		tmp = Replace(tmp,"{$Levelname}","游客")
	End if
	tmp = Replace(tmp,"{$SortShowForum}",IIf(team.Forum_setting(48)>0,"","none"))
	tmp = Replace(tmp,"{$daysshow}",IIf(team.Forum_setting(38)=1 or team.Forum_setting(38)=3,"","display:None"))
	tmp = Replace(tmp,"{$todaybrds}",IIf(team.Forum_setting(38)=1 or team.Forum_setting(38)=3,IIF(team.TodBds<>"",team.TodBds,"暂无用户生日"),""))
	tmp = Replace(tmp,"{$linkshow}",IIf(team.Forum_setting(36)=1,"","display:None"))
	tmp = Replace(tmp,"{$tmlinks}",Iif(team.Forum_setting(36)=1 and Team.Forum_Link<>"",Team.Forum_Link,""))
	tmp = Replace(tmp,"{$onshow}",IIf(team.Forum_setting(40)=1,"","display:None"))
	tmp = Replace(tmp,"{$topslink}",Team.Linkshows )
	tmp = Replace(tmp,"{$grouponlines}",Team.OnlineShows)
	Dim Isshowset
	If team.Forum_setting(39)=1 or team.Forum_setting(39)=3 Then
		if Request("showlines")="yes" or Request("showlines")="" Then
			Isshowset = "<a href=""default.asp?showlines=no#online""><img src="""&team.Styleurl&"/collapsed_no.gif"" align=""right"" border=""0"" alt=""点击关闭在线状况"" /></a>"
		Else
			Isshowset = "<a href=""default.asp?showlines=yes#online""><img src="""&team.Styleurl&"/collapsed_yes.gif"" align=""right"" border=""0"" alt=""点击查看在线状况"" /></a>"
		End if
	Else
		if Request("showlines")="yes" Then
			Isshowset = "<a href=""default.asp?showlines=no#online""><img src="""&team.Styleurl&"/collapsed_no.gif"" align=""right"" border=""0"" alt=""点击关闭在线状况"" /></a>"
		Else
			Isshowset = "<a href=""default.asp?showlines=yes#online""><img src="""&team.Styleurl&"/collapsed_yes.gif"" align=""right"" border=""0"" alt=""点击查看在线状况"" /></a>"
		End if
	End if
	tmp = Replace(tmp,"{$showimg}",Isshowset)
	tmp = Replace(tmp,"{$showonlises}",Iif(Request("showlines")="yes" or team.Forum_setting(39)=1 or team.Forum_setting(39)=3,"","display:None"))
	tmp = Replace(tmp,"{$listonlieuser}",Iif(Request("showlines")="yes" or team.Forum_setting(39)=1 or team.Forum_setting(39)=3,team.Showlines(0),""))
	tmp = Replace(tmp,"{$allonline}",Team.Onlinemany)
	tmp = Replace(tmp,"{$regonline}",Team.Regonline)
	tmp = Replace(tmp,"{$lookonline}",Team.GuestOnline)
	tmp = Replace(tmp,"{$maxonline}",Split(Team.Club_Class(20),"|")(0))
	tmp = Replace(tmp,"{$maxtime}",Split(Team.Club_Class(20),"|")(1))
	Echo tmp
End Sub
%>