showtopic.asp

ASP整套的建站源代码

if rs.eof then
conn.execute("update [forum] set replies=0 where id="&id&"")
htmlend
end if
If replies/pagesetup > (replies\pagesetup) then
TotalPage=(replies\pagesetup)+1
else TotalPage=(replies\pagesetup)
End If
PageCount= 0
RS.MoveFirst
if Request.QueryString("ToPage")<>"" then PageCount = cint(Request.QueryString("ToPage"))
if PageCount <=0 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1

if Not Response.IsClientConnected then
responseend
end if


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

%>
<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<%=rs("id")%>);">
<IMG alt=复制这个帖子 src="images/copy.gif" border=0></a>
<a href="retopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("topicid")%>&retopicid=<%=rs("id")%>&quote=1&topic=<%=act%>">
<IMG alt=引用回复这个帖子 src="images/reply.gif" border=0></a>&nbsp;<a href="retopic.asp?forumid=<%=rs("forumid")%>&id=<%=rs("topicid")%>&retopicid=<%=rs("id")%>&topic=<%=act%>"><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<%=rs("id")%>><%=rs("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=<%=id%>&retopicid=<%=rs("id")%>&topic=<%=act%>">
<img src="images/edit.gif" border="0"></a>
<a onclick="checkclick('您确定要删除回贴?')" style="text-decoration: none; color: #000000" href="manage.asp?menu=delretopic&id=<%=id%>&forumid=<%=forumid%>&retopicid=<%=rs("id")%>">
<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=lookreip&id=<%=id%>&forumid=<%=forumid%>&retopicid=<%=rs("id")%>">已记录</a></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
RS1.Close
RS.MoveNext
loop
RS.Close


if i=0 then
replies=conn.execute("Select count(id)from reforum where topicid="&id&"")(0)
conn.execute("update [forum] set replies="&replies&" where id="&id&"")
end if


end if



if TotalPage=0 then
TotalPage=1
PageCount=1
end if
%>
<div align="center">
<center>


<TABLE cellSpacing=4 cellPadding=0 width=750 border=0 style="border-collapse: collapse" bordercolor="#111111">

<TR>
<TD><b>本主题共有
<font color="#990000"><%=TotalPage%></font> 页</TD>
<TD align=right >页：[

<%



ii=PageCount-5
iii=PageCount+5
if ii < 1 then
ii=1
end if
if iii > TotalPage then
iii=TotalPage
end if
if PageCount > 6 then
Response.Write "<a href=?topage=1&id="&id&"&forumid="&forumid&"&page="&Request("page")&">1</a> ... "
end if


for i=ii to iii
If i<>PageCount then
Response.Write " <a href=?topage="& i &"&id="&id&"&forumid="&forumid&"&page="&Request("page")&">" & i & "</a> "
else
Response.Write " <font color=#000000><b>"&i&"</b></font> "
end if
next

if TotalPage > PageCount+5 then
Response.Write " ... <a href=?topage="&TotalPage&"&id="&id&"&forumid="&forumid&"&page="&Request("page")&">"&TotalPage&"</a>"
end if


acturl="showtopic.asp?forumid="&Request("forumid")&"&id="&id&""



%>
]&nbsp;</TD></TR></TABLE>



</center>
</div>



<TABLE cellSpacing=0 width=750 align=center bgColor=a4b6d7 border=0>
<form name="form" method="post" action=retopic.asp onsubmit="return formCheck()">
<input type="hidden" value="<%=id%>" name="id">
<input type="hidden" value="<%=forumid%>" name="forumid">
<input type="hidden" value="<%=act%>" name=topic>
<TBODY>
<TR>
<TD height=1></TD></TR></TBODY></TABLE>



<div align="center">
<center>



<TABLE borderColor=a4b6d7 height=120 cellSpacing=0 cellPadding=5 width=750 border=1 style="border-collapse: collapse">
<TBODY>
<TR>
<TD width="158" height=20 background=images/title_sub.gif><B><FONT color=#333333>&nbsp;快速回复主题</FONT></B></TD>
<TD width="585" background=images/title_sub.gif><B><FONT color=#333333>Re:<%=act%></FONT></B></TD></TR>
<TR>
<TD width="158" bgColor=e8f4ff height=20>&nbsp;输入用户名和密码</TD>
<TD width="585" bgColor=e8f4ff>用户名：
<INPUT size=15 name=username value="<%=Request.Cookies("username")%>" maxLength=20>
<a href="register.asp">没有注册？</a>　密码： <INPUT type=password size=15 name=userpass value="<%=Request.Cookies("userpass")%>">
<a href="modification.asp">忘记密码？</a></TD></TR>
<TR>
<TD width="158" bgColor=e8f4ff>
<INPUT type=checkbox value=1 name=htmlcode> HTML语法<BR>
<INPUT type=checkbox value=1 name=ybbcode> 禁止YBB代码</A><BR>
<INPUT type=checkbox value=1 name=smilies> 禁止表情字符</A><br>
</TD>
<TD vAlign=top align=middle width="585" bgColor=e8f4ff>
<TEXTAREA name=content rows=6 cols=79 onkeydown=presskey()></TEXTAREA> <BR><INPUT tabIndex=4 type=submit value="Ctrl+Enter 回复主题"  name=submit1 onclick="return formCheck()">　　<INPUT onclick=runEx() type=button value=" 调试代码 ">　　<INPUT type=reset value=" 重 写 " name=reset onclick="checkclick('该项操作要清除全部的内容，您确定要清除吗?')"></TD></TR></TBODY></TABLE>
</center>
</div>
</form>
<!-- #include file="inc/line.asp" -->

<%
if membercode>2 then
%>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD align=middle>管理选项:
<%
response.write "<a href=manage.asp?menu=movenew&id="&id&"&forumid="&forumid&">拉前主题</a> | "
if locktopic=1 then
response.write "<a href=manage.asp?menu=dellocktopic&id="&id&"&forumid="&forumid&">开放主题</a>"
else
response.write "<a href=manage.asp?menu=locktopic&id="&id&"&forumid="&forumid&">关闭主题</a>"
end if
response.write " | "
if toptopic=1 then
response.write "<a href=manage.asp?menu=deltoptopic&id="&id&"&forumid="&forumid&">取消置顶</a>"
else
response.write "<a href=manage.asp?menu=toptopic&id="&id&"&forumid="&forumid&">主题置顶</a>"
end if
response.write " | "
if instr(act," <font color=red>(荐)</font>")>0 then
response.write "<a href=manage.asp?menu=unrecommend&id="&id&"&forumid="&forumid&">取消推荐</a>"
else
response.write "<a href=manage.asp?menu=recommend&id="&id&"&forumid="&forumid&">推荐主题</a>"
end if
response.write " | "
if goodtopic=1 then
response.write "<a href=manage.asp?menu=delgoodtopic&id="&id&"&forumid="&forumid&">移出精华区</a>"
else
response.write "<a href=manage.asp?menu=goodtopic&id="&id&"&forumid="&forumid&">添加到精华区</a>"
end if
%>| <a href="move.asp?moveid=3&id=<%=id%>&forumid=<%=forumid%>">移动主题</a> |
<a onclick="checkclick('您确定要删除主题?')" href=manage.asp?menu=deltopic&id=<%=id%>&forumid=<%=forumid%>>删除主题</a>
</TD></TR></TBODY></TABLE>
<%
end if

htmlend
%>