<!-- #include file=../inc/BBSsetup.asp -->
<!-- #include file=../inc/Board_popfun.asp -->
<%
'ÔÚÏßÓÃ»§×·×Ù Leadbbs314 By wensui.com 2005.05.12
DEF_BBS_HomeUrl = "../"
initDatabase
GBL_CHK_TempStr = ""
Dim GBL_ID
GBL_ID = Left(Request.QueryString("ID"),14)
If GBL_ID="" or isNumeric(GBL_ID)=0 Then GBL_ID = 0
GBL_ID = cCur(GBL_ID)
If GBL_ID = 0 Then
	GBL_ID = GBL_UserID
End if

response.redirect Track(GBL_ID)

Function Track(OlID)
	Dim Rs,AtUrl,Online_OnlineFlag
	If OlID="" or isNumeric(OlID)=0 Then OlID = 0
	OlID = cCur(OlID)
	If OlID > 0 Then
		Set Rs = Con.ExeCute("Select top 1 AtUrl from LeadBBS_onlineUser where UserID=" & OlID)
		GBL_DBNum = GBL_DBNum + 1
		If Rs.Eof Then
			Online_OnlineFlag = 0
		Else
			Online_OnlineFlag = 1
			AtUrl = Rs(0)
		End If
		Rs.Close
		Set Rs = Nothing
		Track = AtUrl
	Else
		Track = DEF_BBS_HomeUrl & "boards.asp"
	End If
	if Online_OnlineFlag = 0 then Track = DEF_BBS_HomeUrl & "boards.asp"
End Function
%>