showtopic.asp

ASP整套的建站源代码

<!-- #include file="setup.asp" -->
<%

forumid=Request("forumid")
if isnumeric(""&forumid&"") = flase then
error("<li>非法操作")
end if




sql="select * from bbsconfig where id="&forumid&""
rs.Open sql,Conn
if rs.eof then
message=message&"<li>数据库不存在ID为 <font color=red>"&forumid&"</font> 的论坛数据"
error(""&message&"")
end if

''''''''''加密论坛验证'''''''
if rs("pass")<>Request.Cookies("pass") and rs("pass")<>"" then
%>
<SCRIPT>var id=prompt("此论坛为加密论坛，请输入通行密码！","");if(id){document.location='login.asp?menu=pass&forumid=<%=forumid%>&pass='+id+'';}</SCRIPT>
<%
message=message&"<li>您的通行密码没有输入"
error(""&message&"")
end if
'''''''''''''''''''''''''''''
bbsname=rs("bbsname")
rs.close
page=Request("page")
if page="" then
page=0
end if


if Request("ID")<>empty then
if isnumeric(""&Request("ID")&"") = flase then
error("<li>非法操作")
end if
sql="select * from forum where ID="&Request("ID")&" and forumid="&forumid&""
rs.Open sql,Conn,1,3
else
if isnumeric(""&page&"") = flase then
error("<li>非法操作")
end if
sql="select * from forum where forumid="&forumid&" and deltopic<>1 order by toptopic Desc,lasttime Desc"
rs.Open sql,Conn,1,3
RS.Move page
end if
if rs.eof or rs.bof then
error"<li>系统不存在该帖子的资料"
end if
if rs("deltopic")=1 then
error"<li>该主题已经被删除<li>该主题在回收站中"
end if

top

%>
<title><%=replace(rs("topic")," <font color=red>(荐)</font>","")%></title>
<script>
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
function copyText(obj) {var rng = document.body.createTextRange();rng.moveToElementText(obj);rng.select();rng.execCommand('Copy');}
var i=0;
function formCheck(){i++;if (i>1) {document.form.submit1.disabled = true;}return true;}
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在发出，请耐心等待！');return false;}this.document.form.submit();}}
function runEx(){
if (event.srcElement.parentElement.children[0].value.length<1) {alert("请输入代码后按调试代码");return true;}
var winEx = window.open('', '', 'resizable,scrollbars');winEx.document.write(unescape(event.srcElement.parentElement.children[0].value));
}
</script>


<style>TABLE{BORDER-TOP:0px;BORDER-LEFT:0px;BORDER-BOTTOM:1px}TD{BORDER-RIGHT:0px;BORDER-TOP:0px}</style>
<center>
<table width=750 align="center" border="0">
<tr>
<td vAlign="top" width="30%"><img src="images/logo.gif" border="0"></td>
<td vAlign="center" align="top">　<img src="images/closedfold.gif" border="0">　<a href="index.asp"><%=clubname%></a><br>
　<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">　<a href="forumdisplay.asp?forumid=<%=forumid%>"><%=bbsname%></a><br>
　　&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">　<%=rs("topic")%></td>
</tr>
</table>
<br>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD width=254 height=35>
<a href="newtopic.asp?forumid=<%=rs("forumid")%>">
<img alt="发表一个新主题" src="images/sbutton-post2.gif" border="0"></a>　<a href="retopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("id")%>&topic=<%=rs("topic")%>"><img alt="回复帖子" src="images/newreply.gif" border="0"></a></TD>
<TD align=right width=496 height=35 valign="bottom"><font color="#333333">您是本帖第 <b><%=rs("views")%></b>
个阅读者</font>　
<img src="images/sendmail.gif" width="17" height="12">
<a target="_blank" href="sendfriend.asp?title=<%=rs("topic")%>">
<font color="#000000">将此页发给您的朋友</font></a>　
<a href="?forumid=<%=rs("forumid")%>&page=<%=page-1%>"><img height="12" alt="浏览上一篇主题" src="images/prethread.gif" width="52" border="0"></a>　<a style="text-decoration: none" href="javascript:location.reload()"><img height="12" alt="刷新本主题" src="images/refresh.gif" width="40" border="0"></a>　<a href="?forumid=<%=rs("forumid")%>&page=<%=page+1%>"><img height="12" alt="浏览下一篇主题" src="images/nextthread.gif" width="52" border="0"></a></font></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7><TR><TD></TD></TR></TABLE>

<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width=750 align=center border=1>
<TBODY>
<TR bgColor=c4d4e5>
<TD width=532 height=25 background=images/title_sub.gif>
<table width="140%">
<tr>
<td>　<b>主题</B>：<%=rs("topic")%></td>
<td align="right">

<a href="favorites.asp?menu=add&name=<%=rs("topic")%>">

<img alt="把本帖加入论坛收藏夹" src="images/fav.gif" border="0"></a>&nbsp;
<a href="javascript:window.print()">
<img alt="显示可打印的版本" src="images/printpage.gif" border="0"></a>&nbsp;
<a href="javascript:window.external.AddFavorite(location.href,document.title)">
<img alt="把本帖加入IE收藏夹" src="images/fav_add.gif" border="0"></a>&nbsp;
</td>
</tr>
</table>
</TD></TR></TBODY></TABLE>
<%
if Request("topage")<2 then
sql="select * from user where username='"&rs("username")&"'"
rs1.Open sql,Conn
sign=rs1("sign")
if sign<>"" then
sign="<table style=TABLE-LAYOUT:fixed><tr><td style=HEIGHT:100px align=right valign=bottom>——————————<br>"&sign&"</td></tr></table>"
end if
if DateDiff("s",rs1("landtime"),Now())<1200 then
onlineestate="<img src=images/online1.gif alt=在线>"
else
onlineestate="<img src=images/offline1.gif alt=离线>"
end if

if rs1("userhome")<>"" and rs1("userhome")<>"http://" then
userhome="<a target=_blank href="&rs1("userhome")&"><img alt=访问"&rs("username")&"的主页 src=images/homepage.gif border=0></a>"
else
userhome=""
end if

content=rs("content")

'''''''投票''''''''
if rs("polltopic")<>"" then
if rs("multiplicity")=1 then
multiplicity="checkbox"
else
multiplicity="radio"
end if
content=""&content&"<form action=postvote.asp?id="&rs("id")&" method=POST><input type=hidden value="&forumid&" name=forumid><table><tr><td><table width=220>"
vote=split(rs("polltopic"),"|")
for i = 0 to ubound(vote)
if not vote(i)="" then
content=""&content&"<tr><td height=22>"&i+1&".<input type="&multiplicity&" value="&i&" name=postvote>"&vote(i)&"</td></tr>"
end if
next
content=""&content&"</table></td><td><table width=100>"
allticket=0
vote=split(rs("pollresult"),"|")
for i = 0 to ubound(vote)
if not vote(i)="" then
content=""&content&"<tr><td height=22 valign=bottom>票数："&vote(i)&"</td></tr>"
allticket=vote(i)+allticket
end if
next
content=""&content&"</table></td><td><table width=200>"
vote=split(rs("pollresult"),"|")
for i = 0 to ubound(vote)
if not vote(i)="" and allticket<>0 then
content=""&content&"<tr><td height=22 valign=bottom><img src=images/red.gif width="&vote(i)/allticket*100&" height=10> ["&formatnumber(vote(i)/allticket*100)&"%]</td></tr>"
end if
next
content=""&content&"</table></td></tr><TR><TD align=center><INPUT type=submit value=' 投 票 '></TD><TD></TD><TD></TD></TR></table></form>"
end if
'''''''结束投票''''''''
%>
<TABLE borderColor=a4b6d7 cellSpacing=0 cellPadding=0 width=750 align=center border=1>
<TBODY>
<TR>
<TD vAlign=top align=left height=78>
<TABLE cellSpacing=0 cellPadding=3 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=top width=150 bgColor=f2f8ff height=106>
<TABLE cellSpacing=0 cellPadding=0 width="77%" align=center border=0>
<TBODY>
<TR>
<TD align=left>
<table style="FILTER:glow(color=a4b6d7)">
<caption><b><font color=ffffff style=font-size:10pt><%=rs("username")%></font></b></caption>
</table><%=rs1("honor")%></TD>
<TD align=left width=35>
<b><font color=008080><%=rs1("sex")%> <font face=Wingdings><%=rs1("constellation")%></font></b></TD></TR>
<TR>
<TD align=left height=42 colspan="2"><IMG height=32
src="images/face/<%=rs1("userface")%>.gif" width=32></TD></TR>
<TR>
<TD align=left height=17 colspan="2"><%=rs1("levelimage")%></TD></TR>
<TR>
<TD align=left height=54 colspan="2">等　　级:<%=rs1("levelname")%><BR>门　　派:<%
if ""&rs1("faction")&""="" then
response.write "无"
else
response.write rs1("faction")
end if
%><BR>经 验 值:<%=rs1("experience")%>
<BR>社区银两:<%=rs1("money")%><BR>总发贴数:<%=rs1("posttopic")+rs1("postrevert")%> <BR>注册日期:<%=rs1("regtime")%><BR>体 力 值:<img border="0" src="images/red.gif" width="<%=rs1("userlife")/2%>" height="9" alt="<%=rs1("userlife")%>">
<BR>当前状态:<%=onlineestate%></TD></TR></TBODY></TABLE></TD>
<TD vAlign=bottom align=middle width=9 bgColor=f2f8ff height=106>
<TABLE height="100%" cellSpacing=0 cellPadding=0 width=1 bgColor=a4b6d7>
<TBODY>
<TR>
<TD width=1></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top align=left width=575 bgColor=f2f8ff height=106>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD colspan="3">
<a href=profile.asp?username=<%=rs("username")%>><IMG alt=查看<%=rs("username")%>的个人资料 src="images/profile.gif" border=0></a>
<a href=# onclick="javascript:open('friend.asp?menu=post&incept=<%=rs("username")%>','','width=320,height=170')">
<img src="images/pm.gif" border="0" alt="发送短讯息给<%=rs("username")%>"></a>&nbsp;
<a href=friend.asp?menu=add&username=<%=rs("username")%>>
<IMG alt=把<%=rs("username")%>加入好友 src="images/friend.gif" border=0></a>&nbsp;<a href="forumdisplay.asp?forumid=<%=rs("forumid")%>&search=author&key=<%=rs("username")%>"><IMG alt="搜索<%=rs("username")%>在『<%=bbsname%> 』的所有主题" src="images/find.gif" border=0 ></a> <a href="mailto:<%=rs1("usermail")%>">
<IMG alt=发送电邮给<%=rs("username")%> src="images/email.gif" border=0></a> <%=userhome%>
<a href="javascript:copyText(document.all.yu);">
<IMG alt=复制这个帖子 src="images/copy.gif" border=0></a>
<a href="retopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("id")%>&quote=1&topic=<%=rs("topic")%>">
<IMG alt=引用回复这个帖子 src="images/reply.gif" border=0></a>&nbsp;<a href="retopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("id")%>&topic=<%=rs("topic")%>"><img src="images/replynow.gif" border="0" alt="回复这个帖子"></a></TD></TR>
<TR>
<TD colspan="3">
<HR width="100%" color=#777777 SIZE=1>
</TD></TR>
<TR vAlign=top height=140>
<TD colspan="3" style=WIDTH:580;WORD-WRAP:break-word><span id=yu>
<%=content%></span><%=sign%></TD></TR>
<TR vAlign=top>
<TD height=7 colspan="3">
<HR width="100%" color=#777777 SIZE=1>
</TD></TR>
<TR vAlign=top>
<TD>
<a href="edittopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("id")%>&topic=<%=rs("topic")%>">
<img src="images/edit.gif" border="0"></a>
<a onclick="checkclick('您确定要删除主题?')" style="text-decoration: none; color: #000000" href="manage.asp?menu=deltopic&id=<%=rs("id")%>&forumid=<%=forumid%>">
<img src="images/del.gif" border="0"></a></TD>
<TD>
<img src=images/posttime.gif></font> 发表时间：<%=rs("posttime")%>　</TD>
<TD>
<img src=images/ip.gif> IP：<a href="manage.asp?menu=lookip&id=<%=rs("id")%>&forumid=<%=forumid%>">已记录</a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
rs1.close

rs("views")=rs("views")+1
rs.update

end if


id=rs("id")
act=rs("topic")
replies=rs("replies")
locktopic=rs("locktopic")
goodtopic=rs("goodtopic")
toptopic=rs("toptopic")

rs.close



if replies > 0 then
pagesetup=15   '设定帖子每页的显示数量
sql="select * from reforum where topicid="&id&" order by id"
rs.Open sql,Conn