<%
Dim TempArray
Dvbbs.BoardID=0
Dvbbs.LoadTemplates("index")
Dvbbs.Stats=template.Strings(0)
Dvbbs.Nav()
Dvbbs.ActiveOnline()
TempArray = Split(template.html(3),"||")
Show_Index_Top
GetBbsList()
Response.Write Replace(template.html(9),"{$Getlink}",Getlink())
If Dvbbs.Forum_setting(29)="1" Then Call birthuser()
If Dvbbs.Forum_ads(2)="1" or Dvbbs.Forum_ads(13)="1" Then Response.Write ""
Show_Index_Footer
Dvbbs.Footer()
Sub Show_Index_Top
Dim newsstr,TempStr,TopArray
newsstr=news
If newsstr(1)="" Or Not IsDate(newsstr(1)) Then newsstr(1)=Now()
TempStr = template.html(0)
TopArray = Split(template.html(2),"||")
Dim tmpdata,nexhour
If Dvbbs.Forum_Setting(69)="1" Then
tmpdata=split(Dvbbs.Forum_Setting(70),"|")
nexhour=Hour(Now())+1
nexhour=nexhour mod 24
If tmpdata(nexhour)="0" And Minute(now())>40 Then
newsstr(1)=newsstr(1)&Replace(template.Strings(11),"{$LeaveTime}",(60-Minute(now())))
End If
End If
TempStr=Replace(TempStr,"{$news}",newsstr(0))
TempStr=Replace(TempStr,"{$newstime}",newsstr(1))
TempStr=Replace(TempStr,"{$width}",Dvbbs.mainsetting(0))
TempStr=Replace(TempStr,"{$UserNum}",Dvbbs.CacheData(10,0))
TempStr=Replace(TempStr,"{$lastUser}",Dvbbs.HtmlEncode(Dvbbs.CacheData(14,0)))
TempStr=Replace(TempStr,"{$TodayNum}",Dvbbs.CacheData(9,0))
TempStr=Replace(TempStr,"{$TopicNum}",Dvbbs.CacheData(7,0))
TempStr=Replace(TempStr,"{$YesTerdayNum}",Dvbbs.CacheData(11,0))
TempStr=Replace(TempStr,"{$PostNum}",Dvbbs.CacheData(8,0))
TempStr=Replace(TempStr,"{$MaxPostNum}",Dvbbs.CacheData(12,0))
TempStr=Replace(TempStr,"{$MaxPostDate}",Dvbbs.CacheData(13,0))
If Dvbbs.UserID=0 Then
TempStr=Replace(TempStr,"{$myinfo}",Replace(TopArray(0),"{$forumname}",Dvbbs.Forum_Info(0)))
If Dvbbs.Forum_ChanSetting(0)="1" Then TempStr=Replace(TempStr,"{$isray}",TopArray(1))
TempStr=Replace(TempStr,"{$isray}","")
If Dvbbs.forum_setting(79)="0" Then
TempStr=Replace(TempStr,"{$getcode}","")
Else
TempStr=Replace(TempStr,"{$getcode}",template.Strings(12)&Dvbbs.GetCode())
End If
Else
TopArray = Split(Dvbbs.mainhtml(12),"||")
If Clng(Dvbbs.SendMsgNum)>0 Then
Dim UserMsg
UserMsg = TopArray(0)
If Dvbbs.Forum_Setting(10)="1" Then
UserMsg = UserMsg & TopArray(1) & TopArray(2)
Else
UserMsg = UserMsg & TopArray(2)
End If
UserMsg = Replace(UserMsg,"{$smsid}",Dvbbs.sendmsgid)
UserMsg = Replace(UserMsg,"{$sender}",Dvbbs.sendmsguser)
UserMsg = Replace(UserMsg,"{$newmsgnum}",Dvbbs.sendmsgnum)
template.html(1) = Replace(template.html(1),"{$umsg}",UserMsg)
Else
template.html(1) = Replace(template.html(1),"{$umsg}",TopArray(3))
End If
If Dvbbs.Forum_ChanSetting(0)="1" Then template.html(1)=Replace(template.html(1),"{$sysmsg}",Replace(TempArray(0),"{$raypic}",Dvbbs.mainpic(14)))
template.html(1)=Replace(template.html(1),"{$sysmsg}","")
TempStr=Replace(TempStr,"{$myinfo}",template.html(1))
TempStr=Replace(TempStr,"{$UserID}",Dvbbs.Userid)
If IsNumeric(Dvbbs.MyUserInfo(12)) And IsNumeric(Dvbbs.MyUserInfo(13)) And Dvbbs.MyUserInfo(13)<>"" And Dvbbs.MyUserInfo(12)<>"" Then
If Clng(Dvbbs.MyUserInfo(13))=Clng(Dvbbs.Forum_Setting(39)) And Clng(Dvbbs.MyUserInfo(12))=Clng(Dvbbs.Forum_Setting(38)) Then
TempStr=Replace(TempStr,"{$userlogo}","&)
")
Else
TempStr=Replace(TempStr,"{$userlogo}","")
End If
Else
TempStr=Replace(TempStr,"{$userlogo}","
")
End If
End If
TempStr=Replace(TempStr,"{$bgcolor}",Dvbbs.mainsetting(12))
TempStr=Replace(TempStr,"{$alertcolor}",Dvbbs.mainsetting(1))
Response.Write TempStr
End Sub
Function news()
Dvbbs.Name="news"&Dvbbs.boardid
If Dvbbs.ObjIsEmpty() Then
Dim tmpstr,bgs
Dim Rs,SQL
SQL="select top 1 title,addtime,bgs from Dv_bbsnews where boardid="&Dvbbs.boardid&" order by id desc"
Set Rs=DVbbs.Execute(sql)
If Rs.BOF And Rs. EOF Then
tmpstr=template.Strings(8)&"|||"
Else
bgs=Rs(2)
If bgs="" or isnull(bgs) then
tmpstr=Rs(0)&"|||"&Rs(1)
Else
tmpstr="
"&Rs(0)&"|||"&Rs(1)
End if
End If
Set Rs=Nothing
Dvbbs.Value=tmpstr
End If
news=split(Dvbbs.Value,"|||")
End Function
Sub GetBbsList()
Dim ishidden
Dim TempListArray,havenew,loadboard
TempListArray = Split(template.html(8),"||")
With Response
.Write Replace(Replace(template.html(7),"{$follow}",Dvbbs.mainpic(11)),"{$nofollow}",Dvbbs.mainpic(10))
.Write ""
End With
Forum_Boards = Null
End Sub
Function Getlink()
Dvbbs.Name="link"
If Dvbbs.ObjIsEmpty() Then
Dim Rs,SQl
SQL="select boardname,readme,url,logo,islogo from [Dv_bbslink] Order by islogo,id"
Set Rs=Dvbbs.Execute(SQL)
If Not rs.eof Then
Dvbbs.Value=RS.GetString (,,"!@#%|","$?&!@","")
Else
Dvbbs.Value=""
End If
End If
Getlink=Dvbbs.Value
End Function
Sub Show_Index_Footer()
Dim BrowserType,TempStr
Set BrowserType=New Cls_Browser
If BrowserType.IsSearch Then Response.redirect "indexNew.asp"
TempStr = template.html(11)
TempStr = Replace(TempStr,"{$userip}",Dvbbs.UserTrueIP)
TempStr = Replace(TempStr,"{$system}",BrowserType.platform)
TempStr = Replace(TempStr,"{$brw}",BrowserType.Browser & BrowserType.version)
TempStr = Replace(TempStr,"{$showstr}",template.Strings(6))
TempStr = Replace(TempStr,"{$onlinenum}",MyBoardOnline.Forum_Online)
TempStr = Replace(TempStr,"{$ousernum}",MyBoardOnline.Forum_UserOnline)
TempStr = Replace(TempStr,"{$gusernum}",MyBoardOnline.Forum_GuestOnline)
TempStr = Replace(TempStr,"{$maxuser}",Dvbbs.Maxonline)
TempStr = Replace(TempStr,"{$maxusertime}",Dvbbs.CacheData(6,0))
TempStr = Replace(TempStr,"{$piclist}",GetGroupTitle())
Set BrowserType=Nothing
TempStr = Replace(TempStr,"{$BuildDate}",FormatDateTime(Dvbbs.Forum_Setting(74),1))
TempStr = Replace(TempStr,"{$nonewpic}",template.pic(0))
TempStr = Replace(TempStr,"{$isnewpic}",template.pic(1))
TempStr = Replace(TempStr,"{$islockpic}",template.pic(2))
Response.Write TempStr
If Dvbbs.forum_setting(14)="1" Or Dvbbs.forum_setting(15)="1" Then
Response.Write ""
Else
Response.Write ""
End If
TempStr = ""
Response.Write ""
End Sub
Function GetGroupTitle()
Dvbbs.Name="GroupTitle"
If Dvbbs.ObjIsEmpty() Then
Dim Rs,SQl
SQL="select TitlePic,title from [Dv_UserGroups] where IsDisp=1 Order by Orders "
Set Rs=Dvbbs.Execute(SQL)
SQL="![]()
"," ‖ ![]()
"&Dvbbs.lanStr(6)
End If
Dvbbs.Value = SQL
Set rs=Nothing
End If
GetGroupTitle=Dvbbs.Value
End Function
Sub Birthuser()
Dim Strings
Strings=Dvbbs.CacheData(16,0)
Strings=split(Strings,"$$")
If Not IsDate(Strings(0)) Then Strings(0)=Now()-1
If CDate(Strings(0)) <> Date() Then
Dim Rs,SQL,NowMonth,NowDate,TMPDATA,birthNum,tmpstr,i,todaystr0,todaystr1
NowMonth=Month(Date())
NowDate=Day(Date())
If NowMonth< 10 Then
todaystr0="0"&NowMonth
Else
todaystr0=CStr(NowMonth)
End If
If NowDate < 10 Then
todaystr0=todaystr0&"-"&"0"&NowDate
Else
todaystr0=todaystr0&"-"&NowDate
End If
todaystr1=NowMonth&"-"&NowDate
If todaystr0=todaystr1 Then
SQL="select username,Userbirthday from [Dv_user] where Userbirthday like '%"&todaystr1&"' Order by UserID"
Else
SQL="select username,Userbirthday from [Dv_user] where Userbirthday like '%"&todaystr1&"' Or Userbirthday like '%"&todaystr0&"' Order by UserID"
End If
birthNum=0
Set Rs=Dvbbs.Execute(SQL)
i=0
If Not Rs.EOF Then
Do while Not Rs.EOF
If IsDate(Rs(1)) Then
If Month(Rs(1))=NowMonth And Day(Rs(1)) Then
i=i+1
tmpstr=template.Strings(10)
birthNum=birthNum+1
tmpstr=Replace(tmpstr,"{$username}",rs(0))
tmpstr=Replace(tmpstr,"{$age}",datediff("yyyy",rs(1),Now()))
If i=1 Then
TMPDATA=TMPDATA&""
End If
TMPDATA=TMPDATA&"| "&tmpstr&" | "
If i=5 Then
TMPDATA=TMPDATA&"
"
i=0
End If
End If
End If
Rs.MoveNext
Loop
End If
If birthNum mod 5 <> 0 Then TMPDATA=TMPDATA&""
TMPDATA=""
Set Rs=Nothing
template.html(12)=Replace(template.html(12),"{$birthNum}",birthNum)
If TMPDATA="" Then
TMPDATA=template.Strings(9)
End If
template.html(12)=Replace(template.html(12),"{$birthday}",TMPDATA)
TMPDATA=Date()&"$$"&template.html(12)
Dvbbs.Execute("Update Dv_setup Set Forum_BirthUser='"&TMPDATA&"'")
Dvbbs.ReloadSetupCache TMPDATA,16
End If
Strings=Split(Dvbbs.CacheData(16,0),"$$")
Strings(1)=Replace(Strings(1),"{$bpic}",template.pic(3))
Response.Write Strings(1)
End Sub
%>