|
" & VbCrLf Exit Function Else If cCur(Rs(12)) <> GBL_Board_ID Then Rs.Close Set Rs = Nothing GBL_CHK_TempStr = "错误,该主题不存在!
" & VbCrLf Exit Function Else LMT_RootID = Rs(0) Form_TopicType = Rs(1) Form_NeedValue = Rs(2) TParentID = cCur(Rs(3)) Form_ChildNum = cCur(Rs(4)) Form_RootMaxID = cCur(Rs(6)) Form_RootMinID = cCur(Rs(7)) LMT_TopicName = Rs(8) Article_NotReplay = Rs(9) LMT_RootIDBak = cCur(Rs(10)) Form_ParentID = LMT_RootIDBak LMT_TopicTitleStyle = Rs(11) ac = Trim(Rs(13)) Rs.Close Set Rs = Nothing If ac <> GBL_IPAddress Then Con.ExeCute("Update LeadBBS_Topic Set hits=hits+1,VisitIP='" & GBL_IPAddress & "' where ID=" & Form_ParentID) Con.ExeCute("Update LeadBBS_Announce Set hits=hits+1,VisitIP='" & GBL_IPAddress & "' where ID=" & Form_ParentID) End If End If End If End If If TParentID > 0 Then SQL = "Select top 1 Title,RootMaxID,RootMinID,Hits,ChildNum,ID,TitleStyle,VisitIP,RootID from LeadBBS_Topic where ID=" & LMT_RootIDBak Set Rs = Con.ExeCute(SQL) If Rs.Eof Then Rs.Close Set Rs = Nothing 'GBL_CHK_TempStr = "错误,该主题已经删除!
" & VbCrLf Else LMT_TopicName = Rs(0) Form_RootMaxID = cCur(Rs(1)) Form_RootMinID = cCur(Rs(2)) Form_ChildNum = cCur(Rs(4)) LMT_RootIDBak = cCur(Rs(5)) LMT_TopicTitleStyle = Rs(6) ac = Trim(Rs(7)) LMT_RootID = cCur(Rs(8)) Rs.Close Set Rs = Nothing If ac <> GBL_IPAddress Then Con.ExeCute("Update LeadBBS_Topic Set hits=hits+1,VisitIP='" & GBL_IPAddress & "' where ID=" & LMT_RootIDBak) Con.ExeCute("Update LeadBBS_Announce Set hits=hits+1,VisitIP='" & GBL_IPAddress & "' where ID=" & LMT_RootIDBak) End If End If End If If Form_TopicType > 0 and Article_NotReplay = 0 Then If LMT_CheckFlag = 0 and GBL_UserID = 0 Then GBL_UserID = cCur(CheckPass) LMT_CheckFlag = 1 End If Form_NeedValue = cCur(Form_NeedValue) Select case Form_TopicType Case 2: '仅本版版主 If GBL_CHK_User <> "" Then If GBL_BoardMasterFlag <5 Then Article_NotReplay = 1 End If Else Article_NotReplay = 1 End If Case 4: '仅版主 If GBL_BoardMasterFlag <4 Then Article_NotReplay = 1 End If Case 6: If GBL_CHK_User = "" or GetBinarybit(GBL_CHK_UserLimit,2) <> 1 Then Article_NotReplay = 1 End If Case 51: If GBL_CHK_Points < Form_NeedValue Then Article_NotReplay = 1 End If Case 53: If GBL_CHK_OnlineTime < Form_NeedValue*60 Then Article_NotReplay = 1 End If End Select End If End Function Function DisplayTopic Dim Rs,SQL Dim ALL_FirstID,ALL_LastID ALL_FirstID = Form_RootMaxID ALL_LastID = Form_RootMinID Dim ALL_Count ALL_Count = Form_ChildNum + 1 Dim LMT_First,Temp1,Temp2 Dim SQLEndString,Upflag,WhereFlag WhereFlag = 0 LMT_First = Left(Request("First"),14) If isNumeric(LMT_First)=0 Then LMT_First=0 LMT_First = cCur(LMT_First) Dim LastNum,LastNumBak LastNum = 0 LastNumBak = (ALL_Count mod DEF_TopicContentMaxListNum) If LastNumBak = 0 Then LastNumBak = DEF_TopicContentMaxListNum Upflag = Request("Upflag") If Upflag<>"1" and Upflag<>"0" Then Upflag="0" If Upflag = "1" Then LastNum = Request("Num") If LastNum <> "" Then LastNum = LastNumBak End If End If Dim MaxPage Page = Left(Request("p"),14) If isNumeric(Page) = 0 or inStr(Page,".") > 0 Then Page = 0 Page = cCur(Page) MaxPage = Fix(All_Count / DEF_TopicContentMaxListNum) If (All_Count mod DEF_TopicContentMaxListNum)<>0 Then MaxPage = MaxPage + 1 MaxPage = MaxPage - 1 If Page > MaxPage or LastNum > 0 Then Page = MaxPage End If Dim JMPage JMPage = Left(Request("q"),14) If isNumeric(JMPage) = 0 Then JMPage = 0 JMPage = Fix(cCur(JMPage)) If JMPage > DEF_MaxJumpPageNum Then JMPage = 0 Dim JMPRootID JMPRootID = Left(Request("r"),14) If isNumeric(JMPRootID)=0 Then JMPRootID=0 JMPRootID = Fix(cCur(JMPRootID)) If JMPage > Maxpage or Maxpage < 0 Then JMPage = 0 If Upflag="0" and JMPage+Page > MaxPage Then JMPage = 0 If Upflag="1" and JMPage+Page < 0 Then JMPage = 0 If JMPRootID > ALL_FirstID Then JMPage = 0 If JMPRootID < ALL_LastID Then JMPage = 0 If Upflag="1" Then Page = Page - JMPage Else Page = Page + JMPage End If If Page = 0 Then '开启此项则当页数为0时即忽略一切信息的返回首页 JMPage = 0 JMPRootID = 0 LastNum = 0 Upflag = "0" LMT_First = 0 End If Dim HaveIDFlag Dim LastID,FirstID If Temp1+1
" If LastID <= All_LastID Then PageSplitString = PageSplitString & "9" PageSplitString = PageSplitString & " 7" Else PageSplitString = PageSplitString & "9" PageSplitString = PageSplitString & " 7" End If Dim DN,N DN = DEF_DisplayJumpPageNum Dim For1,For2,StepValue,DotFlag DotFlag = 0 PageSplitString = PageSplitString & " " If MaxPage > 0 Then For1 = Page - DN For2 = Page + DN If For1 < 0 Then For1 = 0 ElseIf For1 > 0 Then PageSplitString = PageSplitString & " ..." End If If For2 >= MaxPage Then For2 = MaxPage End If If For2 > MaxPage Then For2 = MaxPage For N = For1 to For2 If N <> For1 Then PageSplitString = PageSplitString & " " If N = Page Then PageSplitString = PageSplitString & "" & N + 1 & "" Else If (N-Page) > 0 Then PageSplitString = PageSplitString & "" & N + 1 & "" Else PageSplitString = PageSplitString & "" & N + 1 & "" End If 'PageSplitString = PageSplitString & "" & N + 1 & "" End If DotFlag = 2 Next If For2 < MaxPage Then PageSplitString = PageSplitString & "..." DotFlag = 1 End If Else PageSplitString = PageSplitString & " 1 " End If PageSplitString = PageSplitString & " " If FirstID >= All_FirstID Then PageSplitString = PageSplitString & " 8" PageSplitString = PageSplitString & " :" Else PageSplitString = PageSplitString & " 8" PageSplitString = PageSplitString & " :" End If Rs = Temp1 Rs = Temp2+Rs If HaveIDFlag = 1 Then Rs = Rs+1 If Rs < 3 and GBL_ShowBottomSure = 0 then GBL_SiteBottomString = "" PageSplitString = PageSplitString & " 此主题共有" & ALL_Count &"帖 此页" & Rs & "帖 每页" & DEF_TopicContentMaxListNum & "帖 | " PageSplitString2 = " |
![](../images/" "查看此用户资料"){kind=small}
newanc.gif width=72 height=17 border=0 align=absmiddle alt=新帖>