<% DEF_PubMessageEnable = 1 Dim GBL_ID Dim GBL_REQ_Assort,GBL_TopicNum,GBL_AnnounceNum,GBL_GoodNum,GBL_TodayAnnounce,GBL_StartBoard Dim GBL_OnlineUserNum,GBL_UserCount,GBL_MaxOnline,GBL_MaxolTime,GBL_OnlineTime,GBL_PageCount,GBL_UploadNum Dim GBL_MaxAnnounce,GBL_MaxAncTime,GBL_YesterdayAnc Dim Blist Blist = application(DEF_MasterCookies & "BList") Function CheckAssort GBL_REQ_Assort = Left(Request.QueryString("Assort"),14) If isNumeric(GBL_REQ_Assort)=0 Then GBL_REQ_Assort=0 GBL_REQ_Assort = Fix(cCur(GBL_REQ_Assort)) Dim BoardNum,N GBL_StartBoard = 0 If GBL_REQ_Assort > 0 and isArray(Blist) = True Then BoardNum = Ubound(Blist,2) For N = 0 to BoardNum If GBL_REQ_Assort = cCur(Blist(1,n)) Then If isArray(Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))) = True Then GBL_Board_BoardAssort = cCur(Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))(1,0)) GBL_Board_AssortName = Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))(14,0) GBL_StartBoard = N Exit For Else GBL_REQ_Assort = 0 GBL_Board_BoardAssort = 0 GBL_Board_AssortName = "" Exit For End If End If Next If N > BoardNum Then GBL_REQ_Assort = 0 Else GBL_REQ_Assort = 0 GBL_Board_BoardAssort = 0 GBL_Board_AssortName = "" End If If cCur(GBL_ShowBottomSure) = 0 and GBL_REQ_Assort > 0 Then GBL_SiteBottomString = "" End Function Function DisplayBoard Dim Temp,Flag Flag = 0 Dim GetData,BoardNum If isArray(Blist) = True Then BoardNum = Ubound(Blist,2) Else ReloadBoardListData Blist = application(DEF_MasterCookies & "BList") If isArray(Blist) = True Then BoardNum = Ubound(Blist,2) Else BoardNum = -1 End if End If 'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)) 'DEF_PageExeTime1=Timer * 1000 If BoardNum = -1 Then Response.Write "
~{UR2;5=HN:N0fCf~}
" Else%> <%If GBL_TableBottomString <> "" Then %> border=0 cellspacing=0 cellpadding=0 align=center>
<%=GBL_TableBottomString%>
<% 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(now)) End If %>
<%If GBL_CHK_User <> "" Then DisplayTopInfo%> border=0 cellspacing=1 cellpadding=6 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone> class=TBBG9> <%If DEF_DisplayOnlineUser = 2 or DEF_DisplayOnlineUser = 3 Then%> class=TBBG9> <% End If%>
align=center class=TBBG1>~{B[L3PEO"~}
<% Response.Write " ~{B[L3L{WSW\" & GBL_AnnounceNum & "~{Lu~} " Response.Write "~{FdVPVwLbL{WS~}" & GBL_TopicNum & "~{Lu~} " Response.Write "~{;X84L{WS~}" & (GBL_AnnounceNum-GBL_TopicNum) & "~{Lu~} " Response.Write " ~{=qHUPBL{~}" & GBL_TodayAnnounce & "~{Lu~} " Response.Write " ~{WrHU7"L{~}" & GBL_YesterdayAnc & "~{Lu~} " Response.Write " ~{>+;*L{WS~}" & GBL_GoodNum & "~{Lu~} " If BoardNum<0 Then BoardNum=0%>

 ~{B[L3?I<{0fCf~}<%=BoardNum+1%>~{8v~}  ~{92SP~}<%=GBL_UploadNum%>~{8vIO4+8=<~~}  ~{RQW"2aSC;'~}<%=GBL_UserCount%>~{HK~}  ~{W\TZO_J1<% 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") Temp = (GBL_OnlineTime)/(24*60*60) Response.Write Fix(Temp) & "~{Ll~}" GBL_OnlineTime=GBL_OnlineTime-Fix(Temp)*24*60*60 Temp = GBL_OnlineTime/(60*60) Response.Write Fix(Temp) & "~{J1~}" GBL_OnlineTime=GBL_OnlineTime-Fix(Temp)*60*60 Temp = GBL_OnlineTime/60 Response.Write Fix(Temp) & "~{7V~}"%>  ~{R3d/@@A?~}<%=GBL_PageCount+application(DEF_MasterCookies & "SitePageCount")%>~{4N~}

 ~{B[L3Wn8_TZO_<%=GBL_MaxOnline%>~{HK~}  ~{7"IzSZ~}<%=RestoreTime(GBL_MaxolTime)%>  ~{Wn8_HU7"L{A?~}<%=GBL_MaxAnnounce%>~{Lu~}  ~{7"IzSZ~}<%=RestoreTime(GBL_MaxAncTime)%>
<%DisplayUserOnline 0,""%>
<% End Function Sub Main OpenDatabase If isTrueDate(GBL_CookieTime) = 1 Then If DateDiff("s",GBL_CookieTime, now) > 120 Then '120~{Ck~} CheckUserOnline End If End If GetActiveUserNumber GBL_CHK_TempStr = "" GetUserInfo CheckAssort BBS_SiteHead DEF_SiteNameString & " " & DEF_BBS_Name,GBL_board_ID,"" UpdateOnlineUserAtInfo 0,"~{B[L3JWR3~}" If GBL_CHK_User = "" Then DisplayTopInfo BaiduSearch DisplayBoard%>
<% closeDataBase If DEF_DisplayOnlineUser = 1 Then%><%End If%> <% SiteBottom If GBL_SiteBottomString <> "" Then Response.Write GBL_SiteBottomString End Sub Dim FaceUrl,FaceWidth,FaceHeight,UserLimit,UserPhoto,UserLevel,Points,OnlineTime,ApplyTime,AnnounceNum Sub GetUserInfo If GBL_CHK_User <> "" Then Dim Rs,SQL SQL = "Select top 1 FaceUrl,FaceWidth,FaceHeight,UserLimit,UserPhoto,UserLevel,Points,OnlineTime,ApplyTime,AnnounceNum,MessageFlag from LeadBBS_User where UserName='" & Replace(Left(GBL_CHK_User,20),"'","''") & "'" Set Rs = Con.Execute(SQL) If Not Rs.Eof Then FaceUrl = Rs(0) FaceWidth = Rs(1) FaceHeight = Rs(2) UserLimit = Rs(3) UserPhoto = Rs(4) UserLevel = Rs(5) Points = cCur(Rs(6)) OnlineTime = Rs(7) ApplyTime = Rs(8) AnnounceNum = Rs(9) GBL_CHK_MessageFlag = Rs(10) Else GBL_CHK_User = "" End If Rs.Close Set Rs = Nothing End If End Sub Function DisplayTopInfo If GBL_CHK_User <> "" Then Dim Flag,Form_ID %> class=TBone> align=center width=<%=DEF_AllFaceMaxWidth%> class=TBBG9> <% Response.Write " <%If DEF_DisplayOnlineUser = 1 Then%> class=TBBG9> <% End If%>
class=TBBG1>
~{8v~}
~{HK~}
~{PE~}
~{O"~}
"http:" Then FaceUrl = DEF_BBS_HomeUrl & "Announce/" & htmlencode(FaceUrl) Else FaceUrl = htmlencode(FaceUrl) End If Response.Write chr(34) & FaceUrl & chr(34) & " width=" & FaceWidth & " height=" & FaceHeight & " border=0>" Else Response.Write "images/face/" & string(4-len(cstr(UserPhoto)),"0")&UserPhoto & ".gif border=0 width=62 height=62>" End If %>
" Response.Write "" Response.Write "" Response.Write "" If Flag = 1 Then Response.Write "" Flag = 2 Else Flag = 1 End If Response.Write "" Flag = 2 Else Flag = 1 End If Response.Write "" Flag = 2 ElseIf Flag =2 Then Flag = 1 End If Response.write "" Flag = 2 ElseIf Flag =2 Then Flag = 1 End If Response.write "" Flag = 2 ElseIf Flag =2 Then Flag = 1 End If Response.write "" Flag = 2 ElseIf Flag =2 Then Flag = 1 End If Response.write "
<% Flag = 1 Form_ID = UserLevel If Form_ID > 10 Then Form_ID = 10 Response.Write "~{SC;'#:~}" & htmlencode(GBL_CHK_User) & "
~{5H<6#:~}
~{<61p#:~}" & DEF_UserLevelString(UserLevel) & " 
" & DEF_PointsName & "~{#:~}" & Points & "
~{>-Qi#:~}" & CLng(cCur(OnlineTime)/60) & "
" If Flag = 1 Then Response.Write "
~{NDUB#:~}" & AnnounceNum & "~{F*~}
" If Flag = 1 Then Response.Write "
~{W"2a#:~}" & RestoreTime(Left(ApplyTime,8)) & "
" If GetBinarybit(UserLimit,10) = 1 Then If Flag = 1 Then Response.Write "
~{V0Nq#:~}~{W\0fVw~}
" ElseIf GetBinarybit(UserLimit,8) = 1 Then If Flag = 1 Then Response.Write "
~{V0Nq#:~}~{B[L30fVw~}
" ElseIf GetBinarybit(UserLimit,2) = 1 Then If Flag = 1 Then Response.Write "
~{HOV$#:~}~{HOV$;aT1~}
" End If %>
class=TBBG1>~{d/~}
~{@@~}
~{PE~}
~{O"~}
<% If DEF_DisplayOnlineUser = 1 Then%><% Else Response.Write "~{!v~}" End If Response.write " ~{TZO_HKJ}#:~}" & GBL_OnlineUserNum & " " Response.Write "~{2i?4TZO_HKT1~}" %>
~{!v~} ~{#I#P5XV7#:~}<%=GBL_IPAddress%>

~{!v~} ~{d/~} ~{@@~} ~{Fw#:~}<%=GetSystemBrowserInfo(Request.ServerVariables("HTTP_USER_AGENT"),1)%>

~{!v~} ~{2YWwO5M3#:~}<%=GetSystemBrowserInfo(Request.ServerVariables("HTTP_USER_AGENT"),2)%>

<% Else %> border=0 cellspacing=1 cellpadding=6 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone> height=25 class=TBBG9> <%If DEF_DisplayOnlineUser = 1 Then%> class=TBBG9> <% End If%>
<%If DEF_DisplayOnlineUser = 1 Then%><%End If%> <%Response.Write " ~{TZO_HKJ}~}:" & GBL_OnlineUserNum & "~{HK~}"%> ~{SC;'C{~}: ~{C\Bk~}: ~{SPP'FZ~}:   [~{M|] [~{PBSC;'W"2a~}]

<% End If 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 Rs,SQL SQL = "select top 1 OnlineTime,UserCount,MaxOnline,MaxolTime,PageCount,UploadNum,MaxAnnounce,MaxAncTime,YesterdayAnc from LeadBBS_SiteInfo" Set Rs = Con.Execute(SQL) If Not Rs.Eof Then GBL_OnlineTime = cCur(Rs(0)) GBL_UserCount = cCur(Rs(1)) GBL_MaxOnline = cCur(Rs(2)) GBL_MaxolTime = cCur(Rs(3)) GBL_PageCount = cCur(Rs(4)) GBL_UploadNum = cCur(Rs(5)) GBL_MaxAnnounce = cCur(Rs(6)) GBL_MaxAncTime = cCur(Rs(7)) GBL_YesterdayAnc = cCur(Rs(8)) Else con.ExeCute("insert into LeadBBS_SiteInfo(OnlineTime) Values(0)") End If Rs.Close Set Rs = Nothing If GBL_OnlineUserNum > GBL_MaxOnline Then Con.ExeCute("Update LeadBBS_SiteInfo Set MaxOnline=" & GBL_OnlineUserNum & ",MaxolTime=" & GetTimeValue(now)) 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)) %>
<% End Function Function BaiduSearch If DEF_EnableOtherInfoView <> 1 Then Exit Function %>
class=TBone> class=TBBG9>

   ~{MxU>EEPP0q~} ~{MxR3~} mp3flash~{PEO"?l5]~}
<% End Function Main %> Psend kept free because of these great sponsors.a..

Other Sponsors

electrical connectors, Mangosteen Juice, real estate short sale, Jupiter FL real estate,

Furniture Markdown

Great Deals on furniture - Free Shipping!
Discount Furniture
Daybeds
Metal Beds
Platform Beds
Futons

Y-Net Wireless Internet

Denver area high speed wireless privider.
Colorado High Speed Internet, Wireless Internet Denver, VOIP Denver CO, T1 provider Denver, Denver Wireless ISP , Denver Internet Access,

Dog House Technologies

Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet.
Tampa Bay Web Design, E-Commerce Web Design, Tampa Bay Search Engine Marketing, Tampa Web Hosting, Florida Web Design, Custom Application Development, Search Engine Optimization,