www.gusucode.com > 超文本多用户论坛程序 1.1 > bbs/ShowPost.asp
<!--#include file="conn.asp"-->
<!--#include file="gyhs.asp"-->
<!--#include file = "eWebEditor/Include/DeCode.asp"-->
<head>
<title><%=request.cookies("mc")%></title>
<meta name="keywords" content="<%=request.cookies("gjz")%>">
</head>
<body topmargin=0>
<!--#include file="gyym.asp"-->
<%dbbkxs%>
<%
'主题相关
id=request("ids")
bkid=request("id")
sql="select cndjs,cntitle,cncount,cnfadate,cnuser from zwtizi where id="&id&""
set rs=conn.execute(sql)
if rs.eof or id=empty then
%>
<script language= vbscript>
<!--
window.alert"此主题不存在,可能已经被删除"
window.location="index.asp?ltbh=<%=ltbh%>"
-->
</script>
<%
end if
cndjs=rs("cndjs")
cndjs=cndjs+1
cntitle=rs("cntitle")
cncount=rs("cncount")
cnuser=rs("cnuser")
'增加点击
sqlup="update zwtizi set cndjs="&cndjs&" where id="&id&""
conn.execute(sqlup)
'取得作者数据
sqlzz="select fabtzzs,htzzs,zcsj,cnemail,cnqm,cntop,ltbh from zwuser where cnuser='"&cnuser&"'"
set zzsj=conn.execute(sqlzz)
fabtzzs=zzsj("fabtzzs")
htzzs=zzsj("htzzs")
zcsj=zzsj("zcsj")
cnemail=zzsj("cnemail")
cnqm=zzsj("cnqm")
cntop=zzsj("cntop")
ltbhs=zzsj("ltbh")
zzsj.close
set zzsj=nothing
%>
<table cellSpacing="0" cellPadding="0" width="97%" align="center" border="0">
<tr>
<td vAlign="bottom" height="35">
<a href="newtopic.asp?forumid=<%=request("id")%><bh=<%=ltbh%>">
<img alt="发表一个新主题" src="imgs/skins/<%=request.cookies("fg")%>/post.gif" border="0"></a> <a href="htz.asp?id=<%=id%>&topic=<%=cntitle%><bh=<%=ltbh%>&bk=<%=request("id")%>"><img alt="回复帖子" src="imgs/skins/<%=request.cookies("fg")%>/reply.gif" border="0"></a></td>
<td vAlign="bottom" align="right" height="35"><font color="#333333">
您是本帖第 <b><%=cndjs%></b> 个阅读者</font> <a style="TEXT-DECORATION: none" href="javascript:location.reload()"><img height="12" alt="刷新本主题" src="imgs/refresh.gif" width="38" border="0"></a> </td>
</tr>
</table>
<SCRIPT>valigntop()</SCRIPT>
<table class="a2" height="21" cellSpacing="1" width="97%" align="center" border="0">
<tr class="a1">
<td width="100%" height="18">
<table cellSpacing="0" width="100%" border="0">
<tr class="a1">
<td><b> 主题</b>：<b><%=cntitle%> </b></td>
<td align="right"> <a href="manage.asp?ids=<%=id%>&id=<%=bkid%>&menu=toptopic">置顶</a> <a href="manage.asp?ids=<%=id%>&id=<%=bkid%>&menu=untop">取消置顶</a> <a href="manage.asp?ids=<%=id%>&id=<%=bkid%>&menu=goodtopic">精华</a> <a href="manage.asp?ids=<%=id%>&id=<%=bkid%>&menu=badtopic">取消精华</a>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table class="a2" style="TABLE-LAYOUT: fixed" cellSpacing="1" cellPadding="5" width="97%" align="center" border="0">
<tr class="a4">
<td vAlign="top" align="middle" width="156">
<table width="90%" border="0">
<tr>
<td><font style="FONT-SIZE: 10pt"><b><%=cnuser%></b></font><br>
</td>
</tr>
</table>
<img src="<%=cntop%>" onload="javascript:if(this.width>120)this.width=120;if(this.height>120)this.height=120;"><br>
<br>
<table width="90%" border="0">
<tr>
<td>等 级:<%
if ltbhs=ltbh then
response.write"管理员"
else
if sfbz(bkid,cnuser)=true then
response.write"论坛版主"
else
response.write"普通用户"
end if
end if
%><br>
总发贴数:<%=fabtzzs%><br>回帖总数:<%=htzzs%><br>
注册时间:<%=zcsj%></td>
</tr>
</table>
</td>
<td height="100%">
<table height="100%" cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td width="85%" colSpan="2">
<a href="myziliao.asp?ltbh=<%=ltbh%><user=<%=cnuser%>">
<img alt="查看<%=cnuser%>的个人资料" src="imgs/Profile.gif" border="0" width="45" height="18"></a>
<a style="CURSOR: hand" onclick="javascript:open('writedx.asp?ltbh=<%=ltbh%><user=<%=cnuser%>','','width=320,height=300')">
<img alt="发送短讯息给<%=cnuser%>" src="imgs/pm.gif" border="0" width="48" height="18"></a>
<a href="mytz.asp?ltbh=<%=ltbh%><user=<%=cnuser%>">
<img alt="搜索<%=cnuser%>发表过的所有主题" src="imgs/find.gif" border="0" width="45" height="18"></a>
<a href="mailto:<%=cnemail%>">
<img alt="发送电邮给<%=cnuser%>" src="imgs/email.gif" border="0" width="45" height="18"></a>
</td>
<td align="right">No.<font color="red"><b>1</b></font> </td>
</tr>
<tr vAlign="top">
<td colSpan="3"><hr width="100%" color="#777777" SIZE="1"></td>
</tr>
<tr vAlign="top">
<td style="WORD-BREAK: break-all" colSpan="3" height="100%">
<%Response.Write eWebEditor_DeCode(cncount,"SCRIPT")%></td>
</tr>
<tr vAlign="top">
<td align="right" colSpan="3"><%Response.Write eWebEditor_DeCode(cnqm,"SCRIPT")%></td>
</tr>
<tr vAlign="top">
<td colSpan="3"><hr width="100%" color="#777777" SIZE="1"></td>
</tr>
<tr vAlign="top">
<td width="30%">
<a href="xhnewtopic.asp?menu=tz<bh=<%=ltbh%>&id=<%=id%>&user=<%=cnuser%>">
<img src="imgs/edit.gif" border="0" width="47" height="18"></a>
<a href="tzsccz.asp?ltbh=<%=ltbh%>&id=<%=bkid%>&user=<%=cnuser%>&menu=zt&ids=<%=id%>" onclick="checkclick('您确定要删除该主题?')">
<img src="imgs/del.gif" border="0" width="45" height="18"></a></td>
<td vAlign="bottom" colspan="2">
<img src="imgs/posttime.gif" width="16" height="15">
发表时间：<%=rs("cnfadate")%> </td>
</tr>
</table>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
<%
dim Ym
bkid=request("id")
Ym="ShowPost.asp?ltbh="<bh&"&ids="&id&"&id="&request("id")&"&bt="&cntitle&"&" '设置本程序页的名称
%>
<%
set rs=server.createobject("adodb.recordset")
rs.activeconnection=conn
sql="select * from zwhtz where ltbh='"<bh&"' and tzid='"&id&"' order by id" '设置sql
rs.cursortype=3 '设置静态指针常用与寻找和建立记录
rs.open sql
rs.pagesize=9 '每页记录条数
%>
<%
page=clng(request.QueryString("page")) '接收页码
'判断接受的页码是否小于第一页，是就设置成1
if page<1 then
page=1
end if
'判断接受的页码是否大于总页数，是就为最后一页
if page>rs.pagecount then
page=rs.pagecount
end if
on error resume next
rs.absolutepage=page '将接收的页码当前记录所在页
'循环显示
'第几楼
n=1
for i=1 to rs.pagesize
n=rs.absoluteposition+1
if rs.eof then
exit for
else
cnuser=rs("cnuser")
'回帖人信息
sqlhtr="select fabtzzs,htzzs,zcsj,cnemail,cnqm,cntop,ltbh from zwuser where cnuser='"&cnuser&"'"
set htr=conn.execute(sqlhtr)
fabtzzs=htr("fabtzzs")
htzzs=htr("htzzs")
zcsj=htr("zcsj")
cnemail=htr("cnemail")
cnqm=htr("cnqm")
cntop=htr("cntop")
ltbhs=htr("ltbh")
htr.close
set htr=nothing
%>
<table class="a2" style="TABLE-LAYOUT: fixed" cellSpacing="1" cellPadding="5" width="97%" align="center" border="0">
<tr class="a4">
<td vAlign="top" align="middle" width="156">
<table width="90%" border="0">
<tr>
<td><font style="FONT-SIZE: 10pt"><b><%=cnuser%></b></font><br>
</td>
</tr>
</table>
<img src="<%=cntop%>" onload="javascript:if(this.width>120)this.width=120;if(this.height>120)this.height=120;"><br>
<br>
<table width="90%" border="0">
<tr>
<td>等 级:<%
if ltbhs=ltbh then
response.write"管理员"
else
if sfbz(bkid,cnuser)=true then
response.write"论坛版主"
else
response.write"普通用户"
end if
end if
%><br>
总发贴数:<%=fabtzzs%><br>
回帖贴数:<%=htzzs%><br>
注册时间:<%=zcsj%></td>
</tr>
</table>
</td>
<td height="100%">
<table height="100%" cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr>
<td width="85%" colSpan="2">
<a href="myziliao.asp?ltbh=<%=ltbh%><user=<%=cnuser%>">
<img alt="查看<%=cnuser%>的个人资料" src="imgs/Profile.gif" border="0" width="45" height="18"></a>
<a style="CURSOR: hand" onclick="javascript:open('writedx.asp?ltbh=<%=ltbh%><user=<%=cnuser%>','','width=320,height=300')">
<img alt="发送短讯息给<%=cnuser%>" src="imgs/pm.gif" border="0" width="48" height="18"></a>
<a href="mytz.asp?ltbh=<%=ltbh%><user=<%=cnuser%>">
<img alt="搜索<%=cnuser%>发表过的所有主题" src="imgs/find.gif" border="0" width="45" height="18"></a>
<a href="mailto:<%=cnemail%>">
<img alt="发送电邮给<%=cnuser%>" src="imgs/email.gif" border="0" width="45" height="18"></a>
</td>
<td align="right">No.<font color="red"><b><%=n%></b></font> </td>
</tr>
<tr vAlign="top">
<td colSpan="3"><hr width="100%" color="#777777" SIZE="1"></td>
</tr>
<tr vAlign="top">
<td style="WORD-BREAK: break-all" colSpan="3" height="100%">
<%Response.Write eWebEditor_DeCode(rs("htcount"),"SCRIPT")%></td>
</tr>
<tr vAlign="top">
<td align="right" colSpan="3"><%Response.Write eWebEditor_DeCode(cnqm,"SCRIPT")%></td>
</tr>
<tr vAlign="top">
<td colSpan="3"><hr width="100%" color="#777777" SIZE="1"></td>
</tr>
<tr vAlign="top">
<td width="30%">
<a href="xhnewtopic.asp?menu=htz<bh=<%=ltbh%>&id=<%=rs("id")%>&user=<%=cnuser%>">
<img src="imgs/edit.gif" border="0" width="47" height="18"></a>
<a href="tzsccz.asp?ltbh=<%=ltbh%>&id=<%=bkid%>&user=<%=cnuser%>&menu=ht&ids=<%=rs("id")%>" onclick="checkclick('您确定要删除此回复?')">
<img src="imgs/del.gif" border="0" width="45" height="18"></a></td>
<td vAlign="bottom" colspan="2">
<img src="imgs/posttime.gif" width="16" height="15">
发表时间：<%=rs("htdate")%> </td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.movenext
next
%>
<SCRIPT>valignbottom()</SCRIPT>
<br>
<table style="BORDER-COLLAPSE: collapse" cellSpacing="4" cellPadding="0" width="97%" align="center" border="0">
<tr>
<td width="61%">
<p align="center"><a href="<%=Ym%>page=1"><span style="font-size: 12px"><strong>
<font color="#000000"><span style="text-decoration: none">首页</span></font></strong></span></a><span style="font-size: 12px"><strong>
<%
if page<=1 then
%>
<font color="#C0C0C0">上一页</font>
<%else%>
<a href="<%=Ym%>page=<%=(page-1)%>"><font color="#000000">
<span style="text-decoration: none">上一页</span></font></a>
<%end if%>
<%
if page>=rs.pagecount then
%>
<font color="#C0C0C0">下一页</font>
<%else%>
<a href="<%=Ym%>page=<%=(page+1)%>"><font color="#000000">
<span style="text-decoration: none">下一页</span></font></a> </strong></span>
<%end if%>
<a href="<%=Ym%>page=<%=rs.pagecount%>"><font color="#000000">
<span style="font-size: 12px; text-decoration: none"><strong>尾页</strong></span></font></a>
<%
rs.close
set rs=nothing
%>
</td>
<td align="right" width="39%">
<a href="#">返回顶部</a> </td>
</tr>
</table>
<%if dlhs<>true then%>
<SCRIPT>valigntop()</SCRIPT>
<table class="a2" cellSpacing="1" cellPadding="5" width="97%" align="center" border="0" height="171">
<tr>
<td class="a1" width="98%" height="20"><b> 快速回复主题</b>>><b><%=cntitle%></b></td>
</tr>
<tr>
<td class="a3" width="100%">
<form action="htzcl.asp?act=X<bh=<%=ltbh%>&bkid=<%=request("id")%>&bt=<%=cntitle%>" method=post>
<input type=hidden name="id" value="<%=request("ids")%>">
<table cellpadding="0" cellspacing="0" width="100%" height="100%">
<tr>
<td height="8" width="100%">
<p align="center">
<textarea rows="5" name="htcount" cols="114">快捷回复</textarea></td>
</tr>
<tr>
<td height="7" align="center">
<input type="submit" value="回复主题" name="B1">
<input type="reset" value="重 置" name="B2"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<SCRIPT>valignbottom()</SCRIPT>
<%end if%>
</p>
<%
yhuser=request.cookies("username")
if gly<>true or sfbz(bkid,yhuser)=true then
%>
<table cellSpacing="0" cellPadding="0" width="97%" align="center" border="0">
<tr>
<td align="middle">管理选项: |
<a href="manage.asp?menu=untop&ids=<%=id%>&id=<%=bkid%>" onclick="checkclick('您确定要取消总置顶?')">取消总置顶</a>
| <a href="manage.asp?menu=toptopic&ids=<%=id%>&id=<%=bkid%>" onclick="checkclick('您确定要主题置顶?')">
主题置顶</a> |
<a href="manage.asp?menu=goodtopic&ids=<%=id%>&id=<%=bkid%>" onclick="checkclick('您确定要添加到精华区?')">
添加到精华区</a>| <a href="move.asp?ids=<%=id%>&id=<%=bkid%>" onclick="checkclick('您确定要移动该主题?')">移动主题</a>
| <a href="manage.asp?menu=deltopic&ids=<%=id%>&id=<%=bkid%>" onclick="checkclick('您确定要删除该主题?')">
删除主题</a> </td>
</tr>
</table>
</p>
<%end if%>
<%
call bq
dbjl.close
set dbjl=nothing
%><%dbclose%>