bbs_detail.asp

安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!

<%
dim aid:aid=request.querystring("aid")
if not IsNumeric(aid) or aid="" then
call showmsg("指定的主题并不存在")
else
aid=clng(aid)
dim ztuser:ztuser=conn.execute("select top 1 hx66_name from hx66_bbs where id="&aid&"")(0)
dim zttitle:zttitle=conn.execute("select top 1 hx66_title from hx66_bbs where id="&aid&"")(0)
end if

sub show_detail()
    dim hx66_bid,hx66_top,hx66_ip,hx66_point
    set rs=server.CreateObject("adodb.recordset")
    sqlstr="select * from hx66_bbs where hx66_delete=0 and hx66_bid="&bid&" and id="&aid
    rs.open sqlstr,conn,1,3
    if rs.eof then showmsg("没有找到指定的主题")
       rs("hx66_count")=rs("hx66_count")+1
       rs.update
       hx66_bid=rs("hx66_bid")
       hx66_top=rs("hx66_top")
       hx66_ip=rs("hx66_ip")
       hx66_point=rs("hx66_point")
       hx66_rewbody=Trim(rs("hx66_rewbody"))
       if hx66_rewbody<>"" then hx66_rewbody=split(Trim(rs("hx66_rewbody")),"|||")
    set Hxcms_rs = conn.execute("select hx66_Grade from hx66_bbsinfo where id="&hx66_bid&"")
    IF Hxcms_rs.eof and Hxcms_rs.bof Then
       Response.Redirect "../show_error.asp?eid=非法登录,请不要破坏此系统,如果依然有问题请联系管理员!"
       Response.End 
    else
       hx66_Grade=Hxcms_rs(0)
       if hx66_Grade="1" then
          folder="注册会员"
       elseif hx66_Grade="2" then
          folder="VIP会员" 
       else
          folder="游客"       
       end if 
       if userGrade<hx66_Grade then
          response.write"<SCRIPT language=JavaScript>alert(' 本贴需要"&folder&"才能观看，请 返 回 ！');"
          response.write"javascript:history.go(-1)</SCRIPT>"
          response.end
       end if
    end if
dim rss,sqlstrs
set rss=server.CreateObject("adodb.recordset")
sqlstrs="select * from hx66_uinfo where hx66_uname='"&rs("hx66_name")&"'"
rss.open sqlstrs,conn,1,3
dim uqming,uphoto
if not rss.eof then
   uqming=sart(ubbcode(rss("hx66_qming")))
   uphoto=rss("hx66_photo")
else
   rss.addnew
   rss("hx66_uname")=rs("hx66_name")
   uqming="无"
   rss.update
end if
rss.close
'set rss=nothing
if hx66_top<>"0" and UserLogined<>True then
   response.write"<SCRIPT language=JavaScript>alert(' 固顶贴需要登录才能观看，请 返 回 ！');"
   response.write"javascript:history.go(-1)</SCRIPT>"
   response.end
end if
%>
<table class="table-hx66s" cellSpacing="5" cellPadding="0" width="760" align="center" border="0" bgcolor=#FFFFFF>
  <tr>
    <td>
      <table align='Center' borderColor='#e6e6e6' Cellspacing='0' Cellpadding='0' Border='0' Width='740'>
        <tr style='table-layout:fixed;word-break:break-all'>
            <td height='30' align='left' Width='560'>&nbsp;主 题<FONT color=#b70000><B>→</B></FONT>&nbsp;<a href="?bid=<%=bid%>&aid=<%=aid%>"><font size=2 color=#3366cc><B><%=htmlcoder(rs("hx66_title"))%></B></a></font></td><td align='right' Width='180'>你是本贴的第<%=rs("hx66_count")%>位读者</td>
        </tr>
      </table>
<%
if int(request.querystring("page"))=1 or request.querystring("page")="" then
if rs("hx66_vote")="1" then
set svote=conn.execute("select*from [hx66_Vote] where id="&aid&"")
voten=svote("votenum")
voten=split(voten,"|")
voteb=svote("content")
voteb=split(voteb,"|")
voteduser=svote("voteduser")
if isnull(voteduser) or voteduser="" then voteduser="|0"
voteduser=split(voteduser,"|")
outtime=svote("outtime")
n=ubound(voten)
votealln=0
for i=1 to n
votealln=int(votealln)+int(voten(i))
next
if votealln=0 then votealln=1
%>
<table bgcolor="#ffffff" borderColor="#698cc3" Border="1" Cellspacing="0" Cellpadding="0" width="740" align="Center" style="border-collapse: collapse">
 <form method="POST" action="vote.asp?action=vote&id=<%=aid%>">
   <tr>
     <td width="100%">
       <table border="0" cellpadding="0" cellspacing="1" width="100%">
         <tr>
          <td width="25%" height="25">&nbsp; ≡ 投票选项 ≡</td>
          <td width="75%">&nbsp;过期时间：<%=outtime%>&nbsp;&nbsp;&nbsp;
<%
canvote=true
if outtime<now()+timezone/24 then
response.write"[ 该投票截止时间已到 ]"
canvote=false
else%>
<%for i=1 to ubound(voteduser)
if isnull(userid) or userid="" then response.write"[ 你没有登陆，不能进行投票 ]":canvote=false:exit for
if int(voteduser(i))=userid then response.write"[ 你已经投票了，非常感谢你的参与和支持 ]":canvote=false:exit for
next
end if
%><%if canvote=true then%><input type="submit" value=" 投 票 " name="B1"><%end if%></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="100%"><table border=0 cellpadding="0" cellspacing="1" width="100%">
<%
for i=1 to n
vwidth=voten(i)/votealln*80
%><tr>
          <td width="60%"><p style="line-height: 120%; margin: 2; ">
<%if svote("type")=1 then%><input type="radio" value="<%=i%>" name="votenum" size="20"><%else%><input type="checkbox" name="votenum_<%=i%>" value="1"><%end if%>&nbsp;<%=htmlcoder(voteb(i))%></p></td>
          <td width="40%">　<img src="images/voteline.gif" border="0" width="<%=vwidth%>%" height=10> <b><%=voten(i)%></b> 票</td>
        </tr><%next%>
      </table></td>
    </tr></form>
</table><BR>
<%
set svote=nothing
end if%>
<table bgcolor='#ffffff' borderColor='#e6e6e6' Border='1' Cellspacing='0' Cellpadding='0' width='740' align='Center' style="border-collapse: collapse">
<tr>
<td height='30' width='110' align='center'><a href="viewperson.asp?bid=<%=bid%>&author=<%=server.urlencode(rs("hx66_name"))%>" Title="查看该用户详细资料"><%=rs("hx66_name")%></a></td>
<td colspan='2'>
<table Cellspacing="0" Cellpadding="0" Border="0" width="100%">
<tr><iframe name="Hx66" style="display:none"></iframe><form name="form" method="post" action="toplist.asp?t=<%=rs("id")%>&action=addcollect" target="Hx66">
<td width="40%">&nbsp;&nbsp;发表时间：<%=rs("hx66_fatime")%></td>
<td width="49%" align="right"><input type="submit" name="Submit" value="收藏此贴" class="input">&nbsp;&nbsp;&nbsp;&nbsp;<a href="ztedit.asp?bid=<%=rs("hx66_bid")%>&aid=<%=rs("id")%>" Title="编辑此主题贴"><img src=images/reply.gif border='0'></a>&nbsp;&nbsp;<a href="ztdel.asp?bid=<%=rs("hx66_bid")%>&action=close&id=<%=rs("id")%>" Title="屏蔽/恢复此主题贴" onClick="return confirm('确定屏蔽/恢复此主题贴吗?');"><img src=images/lock0.gif border='0'></a>&nbsp;&nbsp;<a href="ztdel.asp?bid=<%=bid%>&action=del&id=<%=rs("id")%>" Title="删除此主题贴" onClick="return confirm('确定删除此主题贴到回收站吗?');"><img src=images/del.gif border='0'></a></td><td width='11%' align="right"><font color=red>楼&nbsp;&nbsp;主</font>&nbsp;</td></form>
</tr>
</table>
</td>
</tr>
<tr style='width: 200px; word-wrap: break-word'>
<td height='100' width='110' valign=top rowspan="2">
<div style="padding-top:5px;padding-bottom:5px;" align='center'>
<%If uphoto<>"" Then%><img src="<%=uphoto%>" width="80" Border=0><%else%><img src=../img/face/09.gif><%End If%></div><div style="padding-left:10px;padding-top:5px;"><%call showaud(rs("hx66_name"))%></div></td>
<td colspan='2' valign=top>
<table cellSpacing="10" cellPadding="0" width="100%" align="center" border="0" bgcolor=#FFFFFF style="border-collapse: collapse;table-layout: fixed;">
    <tr>
      <td>
<%
dim rs1,checkbbsadmin
set rs1=server.CreateObject("adodb.recordset")
sqlstr="select * from hx66_admin where hx66_name='"&ckuname&"' and hx66_bid="&hx66_bid&""
rs1.open sqlstr,conn,1,1
if not rs1.eof then
if rs1("hx66_bidadmin")=1 then
if rs1("hx66_bid")=1 then
checkbbsadmin=3
else
checkbbsadmin=2
end if
else
checkbbsadmin=1
end if
else
checkbbsadmin=0
end if
rs1.close
set rs1=nothing
if rs("hx66_html")=1 then
if rs("hx_close")=0 then
response.write ubbb2(rs("hx66_body"))
elseif rs("hx_close")=1 and checkbbsadmin=0 and checkadmin(ckuname)<3 then 
response.write "<center><font color=#FF0000>─────≡ 此主题贴已被屏蔽 ≡─────</font></center>"
elseif rs("hx_close")=1 then
response.write "<center><font color=#1E90FF>─────≡ 此主题贴以下内容已屏蔽 ≡─────</font></center>"
response.write ubbb2(rs("hx66_body"))
end if
else
if rs("hx_close")=0 then
response.write sart(ubbcode(rs("hx66_body")))
elseif rs("hx_close")=1 and checkbbsadmin=0 and checkadmin(ckuname)<3 then 
response.write "<center><font color=#FF0000>─────≡ 此主题贴已被屏蔽 ≡─────</font></center>"
elseif rs("hx_close")=1 then
response.write "<center><font color=#1E90FF>─────≡ 此主题贴以下内容已屏蔽 ≡─────</font></center>"
response.write sart(ubbcode(rs("hx66_body")))
end if
end if
%>
</td>
</tr>
<tr>
<td align="right" height="20"><img src="images/sigline.gif"></td>
</tr>
<tr>
<td valign=bottom>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" bgcolor=#FFFFFF style="border-collapse: collapse;table-layout: fixed;">
<tr>
<td align="right">
<%
if rs("hx_close")=1 then
 response.write "<font color=#FF0000>──≡ 此签名随同贴一起屏蔽 ≡──</font>"
else%>
<%=uqming%>
<%end if%>
</td>
</tr>
</table>
</td>
</tr>
<%if hx66_point<>0 then%>
<tr>
<td style="BORDER-BOTTOM: #000000 1px dotted;BORDER-top: #000000 1px dotted;BORDER-LEFT: #000000 1px dotted ;BORDER-RIGHT: #000000 1px dotted;padding-LEFT:5px;" valign=bottom>
<LI>此贴奖惩：<font color=red><%=hx66_point%></font> 分</LI>
<LI>奖惩评语：<%=hx66_rewbody(0)%></LI>
<LI>奖惩操作：<%=hx66_rewbody(1)%></LI>
</td>
</tr>
<%end if%>
</table>
</td>
</tr>
<%if checkbbsadmin<>0 or checkadmin(ckuname)>=3 then%>
<iframe name="Hx6666" style="display:none"></iframe><form method="post" action="ztdel.asp?bid=<%=hx66_bid%>&action=rewards&id=<%=aid%>" name=FrontPage_Form2 onsubmit="return FrontPage_Form2_Validator(this)">
<script>
<!--
function showimg1(){
if (document.FrontPage_Form2.hx667.checked == true) {
	img1.style.display = "";
	advance1.innerText="关闭操作"
}else{
	img1.style.display = "none";
	advance1.innerText="贴子管理"
}
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>   
<tr>
<td height="25">&nbsp;&nbsp;发贴IP：<%=hx66_ip%>&nbsp;&nbsp;&nbsp;<a href="list.asp?bid=<%=hx66_bid%>">返回列表</a>&nbsp;&nbsp;&nbsp;<a href="#">返回顶部</a>&nbsp;&nbsp;&nbsp;<FONT color=#cc6600><span id=advance1>贴子管理</span></FONT><input type="checkbox" name="hx667" value=1 onClick=showimg1()></TD>
</TR>
<TR id="img1" style="display: none">
<TD colspan='3' height="30">