<% Dim TextInfo,Action,Title Dim SqlWhere Dim Caption,Content,tPageUrl If Not MNBoard.Founduser Then MNBoard.GoToErr(10) If MNBoard.BoardID>0 Then MNBoard.CheckBoard() SqlWhere="BoardID="&MNBoard.BoardID&" And IsDel=0 And " TextInfo="查看"&MNBoard.BoardName Else SqlWhere="IsDel=0 And " MNBoard.Position=MNBoard.Position&" → 用户控制面版" TextInfo="查看" End If Action=Lcase(Request.querystring("Action")) If len(Action)>10 Then MNBoard.GotoErr(1) Select Case Action Case"mysay" Title="本人帖子列表" MNBoard.Head "","",TextInfo&Title SqlWhere=SqlWhere&"Name='"&MNBoard.MyName&"'" Case"myreply" Title="本人回复列表" MNBoard.Head "","",TextInfo&Title SqlWhere=SqlWhere&"Name<>'"&MNBoard.MyName&"' and (TopicID in (select ReplyTopicID from [i_bbs"&MNBoard.TB&"] where name='"&MNBoard.MyName&"' And IsDel=0))" Case"mygood" Title="本人精华帖子列表" MNBoard.Head "","",TextInfo&Title SqlWhere=SqlWhere&"name='"&MNBoard.MyName&"' and IsGood" Case"last" Title="上次访问后论坛的新帖" MNBoard.Head "","",TextInfo&Title SqlWhere =SqlWhere&"Datediff('s',LastTime,'"&MNBoard.GetMemor("","LastTime")&"')<0" Case Else MNBoard.GotoErr(1) End Select If MNBoard.BoardID=0 Then MyManager() tPageUrl="?Action="&Action&"&BoardID="&MNBoard.BoardID Else tPageUrl="?Action="&Action End If ShowTopic() MNBoard.Footer() Set MNBoard =Nothing Function ShowTopic() Dim Temp,intPageNow,arr_Rs,i,Pages,Conut,p,PageInfo Dim Topic,TopicS,Caption,Moodpic,LastRe,RePageUrl,UploadType,RePage,leftn,ii Set P = New Cls_PageView P.strTableName = "[i_Topic]" P.strPageUrl = tPageurl P.strFieldsList = "TopicID,Face,Caption,Name,TopType,IsGood,AddTime,BoardID,LastTime,Hits,LastReply,UploadType,IsVote,ReplyNum,SqlTableID,IsLock,Font" P.strCondiction = SqlWhere P.strOrderList = "TopType desc,LastTime desc" P.strPrimaryKey = "TopicID" P.intPageSize = 15 P.intPageNow=request("page") P.strCookiesName = Action P.Reloadtime=10 P.InitClass Arr_Rs = P.arrRecordInfo PageInfo = P.strPageInfo Set P = nothing If IsArray(Arr_Rs) Then For i = 0 to UBound(Arr_Rs, 2) Moodpic=MNBoard.SkinsPIC(16) If Arr_Rs(13,i) > Int(MNBoard.Info(62)) Then Moodpic=MNBoard.SkinsPIC(15) If Arr_Rs(5,i)=1 Then Moodpic=MNBoard.SkinsPIC(13)'精华 If Arr_Rs(15,i)=1 Then Moodpic=MNBoard.SkinsPIC(17)'锁定 If Arr_Rs(12,i)=1 Then Moodpic=MNBoard.SkinsPIC(14)'投票 If Arr_Rs(4,i)=5 Then Moodpic=MNBoard.SkinsPIC(10)'总顶 If Arr_Rs(4,i)=4 Then Moodpic=MNBoard.SkinsPIC(11)'区顶 If Arr_Rs(4,i)=3 Then Moodpic=MNBoard.SkinsPIC(12)'顶 UploadType="" If Arr_Rs(11,i)<>"" Then Uploadtype=" " LastRe=split(Arr_Rs(10,i),"|") RePage=(Arr_Rs(13,i)+1)\10 If RePage<(Arr_Rs(13,i)+1)/10 Then RePage=RePage+1 RePageUrl="Topic.asp?id="&Arr_Rs(0,i)&"&BoardID="&Arr_Rs(7,i)&"&TB="&Arr_Rs(14,i)&"" Caption=MNBoard.Fun.StrLeft(Arr_Rs(2,i),60) Temp=Arr_Rs(16,i) If Not isNull(Temp) And Temp<>"" Then Temp=Split(Temp,"|") If Temp(0)<>"" Then Caption="<"&Temp(0)&">"&Caption&"" If Temp(1)<>"" Then Caption=""&Caption&"" End If '打开方式 If MNBoard.Info(69)="1" Then Temp="target='_blank' " Else Temp="" Caption=UploadType&""&Caption&"" If Repage>1 Then Caption=Caption&" [ " If RePage<=5 Then For ii=2 To RePage Caption=Caption&""&ii&" " Next Else For ii=2 To 4 Caption=Caption&""&ii&" " Next Caption=Caption&"... "&RePage&" " End If Caption=Caption&" ]" End If If Datediff("n",Arr_Rs(8,i),MNBoard.NowbbsTime)<=180 Then Caption=Caption&MNBoard.SkinsPIC(18) Caption=Moodpic&""&Caption Topic="
"&MNBoard.GetBoardName(arr_Rs(7,i))&"
"&Caption&""&_ "
作者："&Arr_Rs(3,i)& " | 发表时间："&Arr_Rs(6,i)&" | 浏览："&Arr_Rs(9,i)&" | 回复："&Arr_Rs(13,i)&"
" TopicS=TopicS&Topic Next Topics=Topics&"
"&PageInfo&"
" End If MNBoard.ShowTable Title,TopicS End Function Sub MyManager() Response.Write MNBoard.ReadSkins("用户控制面版") End Sub %>