?? topicwithme.asp
字號:
<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/theme.asp"-->
<%
Rem ----------------------
Rem ------主程序開始------
Rem ----------------------
dim sql,rs
dim username,cname
dim bBoardEmpty
dim totalrec
dim n,i
dim p
dim currentpage,page_count,Pcount
currentPage=request("page")
if membername="" then
Errmsg="您還沒有登陸，請<a href=login.asp>登陸</a>后瀏覽"
founderr=true
end if
orders=request("s")
if orders="" or not isInteger(orders) then
orders=1
else
orders=clng(orders)
if err then
orders=1
err.clear
end if
end if
if orders=1 then
sql="select top 200 AnnounceID,parentID,boardID,UserName,child,Topic,body,DateAndTime,hits,RootID,Expression,times,locktopic,istop,isbest,isvote from bbs1 where username='"&membername&"' and parentid=0 ORDER BY announceid desc"
ordername="我參與的主題"
elseif orders=2 then
sql="select top 200 AnnounceID,parentID,boardID,UserName,child,Topic,body,DateAndTime,hits,RootID,Expression,times,locktopic,istop,isbest,isvote from bbs1 where username='"&membername&"' and parentid=0 and child>0 ORDER BY announceid desc"
ordername="已被回復(fù)的我的發(fā)言"
else
sql="select top 200 AnnounceID,parentID,boardID,UserName,child,Topic,body,DateAndTime,hits,RootID,Expression,times,locktopic,istop,isbest,isvote from bbs1 where username='"&membername&"' and parentid=0 ORDER BY announceid desc"
ordername="我參與的主題"
end if
if currentpage="" or not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
set rs=server.createobject("adodb.recordset")
%>
<style>
TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }
TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: #000000; }
</style>
<%
stats=ordername
call nav()
call headline(1)
if founderr then
call error()
else
call AnnounceList1()
call listPages3()
end if
call endline()
sub AnnounceList1()
'on error resume next
rs.open sql,conn,1,1
if err.number<>0 then
foundErr = true
ErrMsg = "<li>數(shù)據(jù)庫操作失敗：" & err.description & "</li>"
else
if rs.bof and rs.eof then
'論壇無內(nèi)容
call showEmptyBoard1()
bBoardEmpty = true
else
rs.PageSize = MaxAnnouncePerpage
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
call showpagelist1()
end if
end if
if err.number<>0 then err.clear
end sub
REM 顯示貼子列表
sub showPageList1()
i=0
boardid=rs("boardid")
response.write "<font color="&bodyfontcolor&"><center><b>僅列出您的最新200條記錄</b></center></font><table cellspacing=0 border=0 width="&tablewidth&" bgcolor="&Tablebackcolor&" align=center><tr><td height=1></td></tr></table>"&_
"<TABLE style=color:"&TableFontcolor&" border=1 cellPadding=0 cellSpacing=0 width="&tablewidth&" align=center bordercolor="&Tablebackcolor&">"&_
"<TBODY>"&_
"<TR align=middle>"&_
"<TD height=27 width=32 bgColor="&Tabletitlecolor&"><font color="&TableFontcolor&">狀態(tài)</TD>"&_
"<TD bgColor="&Tabletitlecolor&" width=*><font color="&TableFontcolor&">主 題</TD>"&_
"<TD bgColor="&Tabletitlecolor&" width=80><font color="&TableFontcolor&">作 者</TD>"&_
"<TD bgColor="&Tabletitlecolor&" width=64><font color="&TableFontcolor&">回復(fù)/人氣</TD>"&_
"<TD bgColor="&Tabletitlecolor&" width=195><font color="&TableFontcolor&">最后更新 | 回復(fù)人</TD>"&_
"</TR>"&_
"</TBODY></TABLE>"
dim Ers, Eusername, Edateandtime
while (not rs.eof) and (not page_count = rs.PageSize)
response.write "<TABLE style=color:"&tablecontent&" border=1 cellPadding=0 cellSpacing=0 width="&tablewidth&" align=center bordercolor="&Tablebackcolor&">"&_
"<TBODY><TR align=middle>"&_
"<TD bgColor="&aTablebodyColor&" width=32 height=27>"
if rs("istop")<>1 and lockboard<>1 and rs("locktopic")<>1 and rs("isvote")<>1 and rs("isbest")<>1 and rs("child")<10 then
response.write "<img src="""&picurl&P_opentopic&""" alt=開放主題>"
elseif rs("isvote")=1 then
response.write "<img src="""&picurl&P_isvote&""" alt=投票貼子>"
elseif rs("istop")=1 then
response.write "<img src="""&picurl&P_istop&""" alt=固頂主題>"
elseif rs("isbest")=1 then
response.write "<img src="""&picurl&P_Tisbest&""" alt=精華帖子>"
elseif rs("child")>=10 then
response.write "<img src="""&picurl&P_hotTopic&""" alt=熱門主題>"
elseif rs("locktopic")=1 then
response.write "<img src="""&picurl&P_closeTopic&""" alt=本主題已鎖定>"
elseif lockboard=1 then
response.write "<img src="""&picurl&P_closeTopic&""" alt=本論壇已鎖定>"
else
response.write "<img src="""&picurl&P_opentopic&""" alt=開放主題>"
end if
response.write "</TD>"&_
"<TD align=left bgcolor="&TablebodyColor&" width=* onmouseover=javascript:this.bgColor='"&aTablebodyColor&"' onmouseout=javascript:this.bgColor='"&TablebodyColor&"'><font color="&TableContentColor&">"
response.write "<img src='"& picurl &"nofollow.gif' id='followImg"& rs("rootid") &"'>"
Eusername=""
Edateandtime=""
set Ers=conn.execute("select top 1 username,dateandtime,body,announceid,rootid from bbs1 where rootid="& rs("rootid") &" and not announceid="& rs("rootid") &" order by announceid desc")
if not(Ers.eof and Ers.bof) then
body=Ers("body")
Eusername=htmlencode(Ers("username"))
Edateandtime=Ers("dateandtime")
end if
Ers.close
set Ers=nothing
if body="" then body=rs("body")
response.write "<a href=""dispbbs.asp?boardID="& rs("boardid") &"&RootID="& rs("rootid") &"&ID="& rs("rootid")&""" title='《"& rs("topic") &"》 作者："& rs("username") &" 發(fā)表于"& rs("dateandtime") &" 最后跟貼："& htmlencode(left(body,20)) &"...'>"
if len(rs("topic"))>26 then
response.write ""&left(rs("topic"),26)&"..."
else
response.write rs("topic")
end if
response.write "</a>"
Maxtitlelist=Cint(Maxtitlelist)
if (rs("child")+1)>Maxtitlelist then
response.write " [分頁："
Pnum=(Cint(rs("child")+1)/Maxtitlelist)+1
for p=1 to Pnum
response.write " <a href='dispbbs.asp?boardID="& boardID &"&RootID="& rs("rootid") &"&ID="& rs("announceid") &"&star="&P&"'><FONT color="&AlertFontcolor&"><b>"&p&"</b></font></a> "
next
response.write "]"
end if
response.write "</font></TD>"&_
"<TD bgColor="&aTablebodyColor&" width=80><a href=dispuser.asp?name="& rs("username") &">"& rs("username") &"</a></TD>"&_
"<TD bgColor="&TablebodyColor&" width=64><font color="&TableContentColor&">"
if rs("isvote")=1 then
set vrs=conn.execute("select votenum from vote where announceid="& rs("announceid") &"")
votenum=vrs("votenum")
votenum=split(votenum,"|")
dim iu
for iu = 0 to ubound(votenum)
votenum_1=cint(votenum_1)+votenum(iu)
next
response.write "<FONT color="&alertfontcolor&"><b>"&votenum_1&"</b></font> 票"
votenum_1=0
vrs.close
set vrs=nothing
else
response.write ""& rs("child") &"/"& rs("hits") &""
end if
response.write "</font></TD><TD align=left bgColor="& aTablebodyColor &" width=195><font color="&TableContentColor&"> "
if Eusername="" then
response.write " "&_
FormatDateTime(rs("dateandtime"),2)&" "&FormatDateTime(rs("dateandtime"),4)&_
" <font color="&alertfontcolor&">|</font> ------"
else
response.write " <a href=showannounce.asp?boardid="& boardid &"&rootid="& rs("rootid") &"&id="& rs("announceid") &">"&_
FormatDateTime(Edateandtime,2)&" "&FormatDateTime(Edateandtime,4)&_
" <font color="&alertfontcolor&">|</font> "
if rs("announceid")=rs("times") then
response.write "------"
else
response.write "</a><a href=dispuser.asp?name="&Eusername&">"&Eusername&"</a>"
end if
end if
response.write "</font></TD></TR>"&_
"<tr style=display:none id='follow"& rs("rootid") &"'><td colspan=5 id='followTd"& rs("rootid") &"' style=padding:0px><div style='width:240px;margin-left:18px;border:1px solid black;background-color:lightyellow;color:black;padding:2px' onclick=loadThreadFollow("& rs("rootid") &")>正在讀取關(guān)于本主題的跟貼，請稍侯……</div></td></tr>"&_
"</TBODY></TABLE>"
page_count = page_count + 1
rs.movenext
wend
end sub
sub listPages3()
Pcount=rs.PageCount
response.write "<table border=0 cellpadding=0 cellspacing=3 width="""&tablewidth&""" align=center>"&_
"<tr><td valign=middle nowrap>"&_
"<font color="&bodyfontColor&">頁次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>頁"&_
"每頁<strong>"&MaxAnnouncePerpage&"</b> 本主題貼數(shù)<b>"&totalrec&"</b></td>"&_
"<td valign=middle nowrap><div align=right><p>分頁： "
if currentpage > 4 then
response.write "<a href=""?page=1&s="&orders&""">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " <font color="&AlertFontColor&">["&i&"]</font>"
else
response.write " <a href=""?page="&i&"&s="&orders&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... <a href=""?page="&Pcount&"&s="&orders&""">["&Pcount&"]</a>"
end if
response.write "</p></div></font></td></tr></table>"
rs.close
end sub
sub showEmptyBoard1()
%>
<TABLE bgColor='<%=Tablebackcolor%>' border=0 cellPadding=4 cellSpacing=1 width="<%=tablewidth%>" align=center>
<TBODY>
<TR bgColor='<%=Tabletitlecolor%>'>
<TD align=middle noWrap height=25><font color=<%=TableFontcolor%>>狀態(tài)</font></TD>
<TD align=middle noWrap><font color=<%=TableFontcolor%>>主 題 (點(diǎn)心情符為開新窗瀏覽)</font></TD>
<TD align=middle noWrap><font color=<%=TableFontcolor%>>作 者 </font></TD>
<TD align=middle noWrap><font color=<%=TableFontcolor%>>回復(fù)/人氣</font></TD>
<TD align=middle noWrap><font color=<%=TableFontcolor%>>最新回復(fù)</font></TD></TR>
<tr bgColor="<%=TablebodyColor%>"><td colSpan=5 vAlign=center width="100%"><font color="<%=TableContentColor%>">暫無內(nèi)容，歡迎發(fā)帖：）</font></td></tr>
</TBODY></TABLE>
<%
end sub
set rs=nothing
%>
<!--#include file="footer.asp"-->
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -