show.asp

商业网站页面管理系统

<!--#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'>该帖子已经删除或被锁定</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="你还没有登陆，不能进行投票。"
canvote="no"
else
set had=myconn.execute("select user from voted where user='"&lgname&"' and id="&id&"")
if not had.eof then
info1="你已经投过票了,不能再投票了。"
canvote="no"
end if
set had=nothing
end if
if now>outtime then
info1="该投票已经过期，不能进行投票。"
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>经验："
j1=huati("jingyan")
response.write""&j1&"<br>魅力："
m1=huati("meili")
response.write""&m1&"<br>帖数："&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='发邮件给"&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'>状态："
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