<!--#include file="up.asp"--><!--#include file="ubbcode.asp"-->
<%zai=request.querystring("topage")
if zai="" then
zai=1
end if
response.write"<script language='javascript'>function Check(){var Name=document.form.topage.value;document.location='?bd="&bd&"&id="&id&"&topage='+Name+'';}</script>"
bdlogin(1)
myconn.execute("update min set hits=hits+1 WHERE id="&id&"")
count=myconn.execute("select count(riqi) from min where bid=" &id& "")(0)
pagesetup=10
renum=count+1
If renum/pagesetup > (renum\pagesetup) then
yenum=(renum\pagesetup)+1
else yenum=(renum\pagesetup)
End If
del="<a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=del&re=no'>刪除</a>"
if bbtype=5 then 
del="<a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=hy&re=no'>還原</a><img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=dely&re=no'>永久刪除</a>"
if admin<>"yes" then
noyes="操 作 失 敗"
mes="<p style='margin: 14'>該帖子已經(jīng)刪除或被鎖定</p>"
%>
<!--#include file="mes.asp"-->
<%response.end
end if
end if
if bbtype=4 then
testl="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=unlock'>解鎖</a>"
else
testl="<img border=0 src=pic/"&sp&"2.gif><a href='bbsgl.asp?bd="&bd&"&id="&id&"&action=lock'>加鎖</a>"
end if
fabiao="yes"
backbt="yes"
if bbtype=4 then
fabiao="yes"
backbt="no"
end if
if bdtype=2 then 
fabiao="no"
backbt="no"
end if
if canre="yes" or admin="yes" then
fabiao="yes"
backbt="yes"
end if
if fabiao="yes" then fbt="<a target='_self' href='say.asp?bd="&bd&"&re=no'><img border=0 src=pic/fabiao.gif align='middle'></a>"
if backbt="yes" then bbt=" <a href='say.asp?bd="&bd&"&id="&id&"&re=yes&pagenum="&yenum&"'><img border='0' src='pic/back.gif' align='absmiddle'></a>"
response.write"<div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='94%' height='42'><tr><td width='70%'>"&fbt&""&bbt&"</td><td width='30%' align='right' valign='bottom'><img border='0' src='pic/tl.gif'> 你是本帖的第 "&whits+1&" 位閱讀者</td></tr></table></center></div>"
if isvote=2 then
set hhh=myconn.execute("select*from vote where id="&id&"")
outtime=hhh("outtime")
votetype=hhh("type")
ddd=hhh("vote")
nno=hhh("votenum")
ddd=split(ddd,"|")
nno=split(nno,"|")
nnn=ubound(ddd)
allvote=0
for j=1 to nnn
allvote=allvote+nno(j)
next
if allvote=0 then allvote=1
response.write"<div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='WORD-BREAK: break-all; border-collapse:collapse' bordercolor="&c1&" width=94% ><form method=POST action=bbselse.asp?menu=vote&id="&id&"&type="&votetype&"><tr><td width=100% background=pic/"&sp&"3.gif height=25 colspan=2>&nbsp;<img border=0 src=face/vote.gif> <font color=#FFFFFF>投票選項</font></td></tr>"
for i=1 to nnn 
width=nno(i)/allvote*85
if votetype=1 then
form1="<input type=radio value="&i&" name=xuan>"
else
form1="<input type=checkbox name='xuan_"&i&"' value="&i&">"
end if
response.write"<tr><td width=58% height=25 >&nbsp;·"&i&" "&form1&""&kbbs(ddd(i))&"</td><td width=42% >&nbsp;<img border=0 height=8 width=2 src=pic/line.gif><img border=0 height=8 width="&width&"% src=pic/line.gif> "&nno(i)&" 票 </td></tr>"
next
canvote="yes"
if lgname="" then
info1="你還沒有登陸，不能進(jìn)行投票。"
canvote="no"
else
set had=myconn.execute("select user from voted where user='"&lgname&"' and id="&id&"")
if not had.eof then
info1="你已經(jīng)投過票了,不能再投票了。"
canvote="no"
end if
set had=nothing
end if
if now>outtime then
info1="該投票已經(jīng)過期，不能進(jìn)行投票。"
canvote="no"
end if
if canvote="yes" then
buto="<input type=submit value=' 投 票 ' name=B1>"
end if
response.write"<tr><td width=100% height=25 colspan=2>&nbsp;<img border=0 src=pic/tl.gif> "&info1&""&buto&" [ 截止時間："&outtime&" ] </td></tr></form></table></center></div><br>"
end if

set huati=myconn.execute("select*from user where name='"&wname&"'")
response.write"<div align='center'><center><table bgcolor="&c1&" border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse; ' width='94%'><tr><td width='100%' background='pic/"&sp&"3.gif' height='26'><font color='#FFFFFF'>&nbsp;『 帖子主題 』："&LeftTrue(wzhuti,50)&"</font></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' bordercolor='"&c1&"' width='94%' height='140'><tr><td width='20%' valign='top'><div align='center'><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111'><tr><td width='100%'>"&_
"<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(wname)&"</font></table><br><img border='0' src='"&kbbs(huati("toupic"))&"' width="&huati("ku")&" height="&huati("ch")&"></center></div><br>金錢："
q1=huati("qian")
response.write""&q1&"<br>經(jīng)驗："
j1=huati("jingyan")
response.write""&j1&"<br>魅力："
m1=huati("meili")
response.write""&m1&"<br>帖數(shù)："&myconn.execute("select count(name)from min where name='"&wname&"'")(0)&"<br>"
myname=wname
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'> "
kw=kbbs(wname)
response.write"<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='97%' height='25'><tr><td width='81%' valign='bottom'>&nbsp;<a href='userinfo.asp?name="&kw&"' title='查看"&kw&"的資料'><img src='pic/info.gif' border='0'> 信 息</a>&nbsp; <a href='mailcon.asp?menu=write&towho="&kw&"' title='給"&kw&"留言'><img src='pic/newmail.gif' border='0'> 留 言</a>&nbsp; <a title='"&kw&"的OICQ號碼："&huati("qq")&"'><SPAN style='CURSOR: hand' ><img border='0' src='pic/oicq.gif'> OICQ</span></a>&nbsp; <a href='mailto:"&huati("email")&"' title='發(fā)郵件給"&kw&"'><img border='0' src='pic/mail.gif'> 郵 箱</a>&nbsp; <a href='"&kbbs(huati("home"))&"' title='訪問"&kw&"的主頁'><img border='0' src='pic/home.gif'> 主 頁</a>&nbsp; <a href=edit.asp?id="&id&"&ed=1&reid="&id&"&bd="&bd&"><img border='0' src='pic/bmp.gif'> 編 輯</a> &nbsp;<a href=say.asp?bd="&bd&"&id="&id&"&re=yes&quoteid="&id&"><img src='pic/xie.gif' border='0'> 引 用</a></td>"
gxqm=huati("gxqm")
set huati=nothing
response.write"<td width='19%' valign='bottom' align='right'>樓 &nbsp; 頂</td></tr></table><hr color='"&c1&"' width='98%' size='1'><blockquote><p style='line-height:15pt'><img src='face/"&wface&".gif'> "&wzhuti&"<br>"
response.write""&ubb(wbody)&"<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'>狀態(tài)："
set onoff=myconn.execute("select name from online where name='"&wname&"'")
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' bordercolor='#111111' width='98%'><tr><td width='30%'><img border='0' src='pic/xie.gif'> "&wriqi&"</td><td width='70%' align='right'>"
if ggtype=3 then