testg1="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=nottop'>解除置頂</a>"
else
testg1="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=top'>置頂</a>"
end if
if ggtype=5 then
testg2="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=nottop'>解除總置頂</a>"
else
testg2="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=alltop'>總置頂</a>"
end if
if bbtype=1 then 
testj="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=notjh'>取消精華</a>"
else
testj="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=jh'>精華</a>"
end if
response.write"<img border=0 src=pic/tl.gif> 帖子管理："&testg2&""&testg1&""&testj&""&testl&"<img border=0 src=pic/"&sp&"2.gif>"&del&"<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=move'>移動</a><img border=0 src=pic/"&sp&"2.gif></td></tr></table></center></div></td></tr></table></center></div>"
set huati=nothing
dim rs
dim sql
set rs = server.createobject("adodb.recordset")
sql = "select*from min where bid=" &id& " and type<>5 order by id"
on error resume next
rs.Open sql,myConn,1
If Count/pagesetup > (Count\pagesetup) then
TotalPage=(Count\pagesetup)+1
else TotalPage=(Count\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
ai=1
do while not rs.eof
rnn=rs("name")
set back=myconn.execute("select*from user where name='"&rnn&"'")
lou=pagesetup-ai
if lou/2>lou\2 then
bgcl=""&c2&""
else
bgcl="white"
end if
response.write"<div align='center'><center><table width='94%' bordercolor='#111111' style='border-collapse: collapse; border-width: 0' cellpadding='0' cellspacing='0'><tr><td width=100% height='2'></td></tr></table></center></div>"&_
"<div align='center'><center><table border='1' cellpadding='0' cellspacing='0' style='TABLE-LAYOUT: fixed; WORD-BREAK: break-all; border-collapse:collapse;background-color:"&bgcl&"' bordercolor='"&c1&"' width='94%' height='150'><tr><td width='20%' valign='top'><div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse;background-color:"&bgcl&"' bordercolor='#111111'><tr><td>"
response.write"<div align='center'><center><br><table width=$1 style='filter:glow(color="&c1&", strength=1); border-collapse:collapse' bordercolor='#111111' cellpadding='0' cellspacing='0'><font color=black>"&kbbs(rnn)&"</font></table><br><img border='0' src='"&kbbs(back("toupic"))&"' width="&back("ku")&" height="&back("ch")&"></center></div><br>金錢："
q1=back("qian")
response.write""&q1&"<br>經驗："
j1=back("jingyan")
response.write""&j1&"<br>魅力："
m1=back("meili")
response.write""&m1&"<br>帖數："&myconn.execute("select count(name)from min where name='"&rnn&"'")(0)&"<br>"
myname=rnn
sqltype="my"
response.write"等級："
%><!--#include file="upji.asp"-->
<%
response.write""&dj&"<br>『 "&dd&" 』<br></td></tr></table></center></div>"&_
"</td><td width='80%' valign='top'><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse;background-color:"&bgcl&"' bordercolor='#111111' width='97%' height='25'><tr><td width='81%' valign='bottom'>&nbsp;<a href='userinfo.asp?name="&rnn&"' title='查看"&rnn&"的資料'><img src='pic/info.gif' border='0'> 信 息</a>&nbsp; <a href='mailcon.asp?menu=write&towho="&rnn&"' title='給"&rnn&"留言'><img src='pic/newmail.gif' border='0'> 留 言</a>&nbsp; <a title='"&rnn&"的OICQ號碼："&kbbs(back("qq"))&"'><SPAN style='CURSOR: hand' ><img border='0' src='pic/oicq.gif'> OICQ</span></a>&nbsp; <a href='mailto:"&back("email")&"' title='發郵件給"&rnn&"'><img border='0' src='pic/mail.gif'> 郵 箱</a>&nbsp; <a href='"&kbbs(back("home"))&"' title='訪問"&rnn&"的主頁'><img border='0' src='pic/home.gif'> 主 頁</a>&nbsp; <a href='edit.asp?id="&rs("id")&"&ed=2&reid="&id&"&bd="&bd&"'><img border='0' src='pic/bmp.gif'> 編 輯</a> &nbsp;<a href=say.asp?bd="&bd&"&id="&id&"&re=yes&quoteid="&rs("id")&"><img src='pic/xie.gif' border='0'> 引 用</a></td>"
gxqm=back("gxqm")
set back=nothing
response.write"</td><td width='19%' valign='bottom' align='right'>"
if lou>0 then
response.write"<font color='"&c1&"'>"&CHR(64+zai)&"</font> 棟<font color='"&c1&"'> "&lou&"</font> 樓"
else
response.write"<font color='"&c1&"'>"&CHR(64+zai)&"</font> 棟 樓 下"
end if
response.write"</td></tr></table><hr color='"&c1&"' width='98%' size='1'><blockquote><p style='line-height:15pt'><img src='face/"&rs("face")&".gif'>&nbsp;<br>"&ubb(rs("body"))&"<p></p>"
if gxqm<>"" then
response.write"<br><div align=right>————————————————————<br>"&ubb(gxqm)&"</div>"
end if
response.write"</blockquote></td></tr><tr><td height='26' align='center'>狀態："
set onoff=myconn.execute("select name from online where name='"&rnn&"'")
if onoff.eof then
ooo="offline"
else
ooo="online"
end if
set onoff=nothing
response.write"<img border=0 align=absmiddle src=pic/"&ooo&".gif></td><td><div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse;background-color:"&bgcl&"' bordercolor='#111111' width='98%'><tr><td width='50%'><img border='0' src='pic/xie.gif'> "&rs("riqi")&"</td><td width='50%' align='right'>"&_
"<a href='bbsgl.asp?bd="&bd&"&id="&rs("id")&"&action=del&re=yes'><img border=0 src=pic/"&sp&"2.gif>刪除<img border=0 src=pic/"&sp&"2.gif></a></td></tr></table></center></div></td></tr></table></center></div>"
ai=ai+1
if ai>pagesetup then exit do
rs.movenext
loop
rs.Close
response.write"<div align='center'><center><TABLE bgcolor="&c1&" borderColor="&c1&" cellSpacing=0 cellPadding=0 width='94%' border=1 style='border-collapse: collapse; border-left-width: 1px; border-right-width: 1px; border-top-width: 1px'><TBODY><TR height=25><TD height=2><TABLE cellSpacing=0 cellPadding=3 width='100%' border=0 background='pic/"&sp&"3.gif' style='border-collapse: collapse; border-left-width:0; border-top-width:0; border-bottom-width:0'><TBODY><TR><TD><font color='#FFFFFF'><img border='0' src='pic/fl.gif'> 共有</font><font color='#00FFFF'> "&TotalPage&" </font><font color='#FFFFFF'>頁,<font color='#00FFFF'> "&count&" </font><font color='#FFFFFF'>張回復帖,每頁有<font color='#00FFFF'> "&pagesetup&" </font> 張貼子 >> ["
ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&bd="&bd&"&id="&id&"><font color=yellow>1</font></a> ... "
end if

for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &"&bd="&bd&"&id="&id&"><font color=yellow>" & i & "</font></a> "
else
Response.Write " <font color=red>"&i&"</font> "
end if
next
if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&bd="&bd&"&id="&id&"><font color=yellow>"&TotalPage&"</font></a>"
end if
response.write" ]</font></TD><form name=form method='POST' action=javascript:Check()><TD height=2 align='right'><font color='#FFFFFF'>頁碼：<input style=FONT-SIZE:9pt maxLength='6' size='6' name='topage' value='"&PageCount&"'><input style=FONT-SIZE:9pt value='GO!' type='submit'></font></TD></form></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></center></div>"
response.write"<div align=center><center><table border=0 cellspacing=1 style='border-collapse: collapse' bordercolor=#111111 width=94% ><tr><td width=100% align=right valign=bottom height=30><select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;} style='font-size: 9pt'><option selected>跳轉論壇至...</option>"
set shsh=myconn.execute("select bdname,bn from bdinfo where key='0'")
do while not shsh.eof
response.write"<option>+"&shsh("bdname")&"</option>"
set fen=myconn.execute("select bdname,bn from bdinfo where key='"&shsh("bn")&"'")
do while not fen.eof
response.write"<option value='list.asp?bd="&fen("bn")&"'>-"&fen("bdname")&"</option>"
fen.movenext
loop
set fen=nothing
shsh.movenext
loop
set shsh=nothing
response.write"</select></td></tr></table></center></div><SCRIPT>var i=0;function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在發出，請耐心等待！');return false;}this.document.re.submit();}}</SCRIPT>"
if backbt="yes" then
response.write"<form method='POST' name=re action='save.asp?bd="&bd&"&id="&id&"&re=yes&pagenum="&yenum&"'><div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'>快 速 回 復</font></td><td background='pic/"&sp&"5.gif'><img border='0' src='pic/"&sp&"4.gif'></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-style:solid; border-width:0; border-collapse: collapse' bordercolor="&c1&" width='94%'><tr><td width='100%'><div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'><tr><td width='17%' height='28'><p style='margin: 4'>用戶信息：</td><td width='83%'>用戶名：<input type='text' name='name' size='19' value='"&lgname&"'> <a href=zhuce.asp>沒有注冊？</a><img border='0' src='pic/"&sp&"2.gif'>密碼：<input type='password' name='password' size='20' value='"&lgpwd&"'> <a href=getpwd.asp>忘記密碼？</a></td></tr><tr><td width='17%'><p style='margin: 4; line-height:150%'>帖子內容：<BR>·HTML標簽： 不可用<br>·UBB標簽： 可用<br>·貼圖標簽： 可用<br>·Flash標簽：不可用<br>·表情字符轉換：不可用<br>·最多15KB</p></td><td width='83%' valign='top'><textarea onkeydown=presskey(); rows=6 name='body' cols='92' Title='按 Ctrl+Enter 直接發送'></textarea><p><input type='submit' value='OK_好了！回復帖子' name='submit1' tabindex='4'> <input type='reset' value='NO_不行！我要重寫' name='B2'> [按 Ctrl+Enter 直接發送]</p></td></tr></table></center></div></td></tr></table></center></div></form>"
end if
response.write"<br>"%><!--#include file="down.asp"-->