📄 mantopiccontent.asp
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=images/font.css rel=stylesheet type=text/css>
<title>轻舞飞扬--BBS</title>
<style type="text/css">
<!--
.style4 {font-family: Georgia, "Times New Roman", Times, serif}
.style9 {color: #0000FF; font-size: 18px; }
body {
background-image: url(images/background.gif);
}
-->
</style>
</head>
<% if session("admin")=0 then
response.redirect "nolog.asp"
end if
%>
<body>
<table width="545" border="3" align="center" cellpadding="1">
<tr>
<td><img src="images/qwfy.png" width="660" height="130"></td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFFFcc">
<%
set conn=server.createobject("adodb.connection")
conn.open session("constr")
sqlstr="select * from t_user where f_id=" & session("admin")
set rs=conn.execute(sqlstr)
response.write rs("f_name")&" |"
response.write " <a href=manlogout.asp>退出</a>"
%></td>
</tr>
<tr>
<td width=100% height=30 bgcolor="#FFCC99">
<%
boardid=request("boardid")
set conn=server.createobject("adodb.connection")
conn.open session("constr")
sqlstr="select * from t_board where f_id=" & boardid
set rs=conn.execute(sqlstr)
%> <a href=mantopic.asp?boardid=<%=boardid%>><%=rs("f_boardname")%></a>→查看主题内容 </td>
</tr>
<%
pageno=request("pageno")
if pageno="" or pageno=0 then
pageno=1
end if
%>
<tr>
<td align=center valign=center bgcolor="#FFFFFF">
<%
set conn=server.createobject("adodb.connection")
conn.open session("constr")
topicid=request("topicid")
sqlstr="select * from t_topic where f_id=" & topicid
set rs=conn.execute(sqlstr)
topictitle=rs("f_title")
%>
<table border=1 width=100% bgcolor=#cedfff>
<tr bgcolor="#FFFFcc">
<td align=center widht=20%>
<%
sqlstr="select * from t_user where f_id=" & rs("f_userid")
set rs1=conn.execute(sqlstr)
%>
<p>用户名：<%=rs1("f_name")%></p> </td>
<td width=80% bgcolor="#FFFFcc">
<p align=left><%=rs("f_title")%></p>
<hr> <p align=left><%=rs("f_content")%></p>
<p align=right>[发布时间：<%=rs("f_releasetime")%>]</p> </td>
</tr>
</table>
<%
set rs=server.createobject("adodb.recordset")
sqlstr="select * from t_reply where f_topicid=" & topicid
rs.open sqlstr,conn,1,1
if not(rs.eof and rs.bof) then
rs.pagesize=4
rs.absolutepage=pageno
pagenum=rs.pagecount
rownum=rs.pagesize
pageno=cint(pageno)
%>
<table border=1 width=100%>
<% while not rs.eof and rownum>0%>
<tr bgcolor="#FFFFcc">
<td align=center widht=20% >
<%
sqlstr="select * from t_user where f_id=" & rs("f_userid")
set rs1=conn.execute(sqlstr)
%>
<p>用户名：<%=rs1("f_name")%></p> </td>
<td width=80%>
<p align=left><%=rs("f_title")%></p>
<hr>
<p align=left><%=rs("f_content")%></p>
<p align=right>[发布时间：<%=rs("f_releasetime")%>]</p>
<p align=right><a href=mandelreply.asp?pageno=<%=pageno%>&boardid=<%=boardid%>&topicid=<%=topicid%>&replyid=<%=rs("f_id")%>>删除</a>
</td>
</tr>
<% rownum=rownum-1
rs.movenext
wend
%>
</table>
共<%=pagenum%>页，跳转到第：[ <strong>
<%for i=1 to pagenum%>
<%if pageno=i then%>
<%=i%>
<%else%>
<a href="mantopiccontent.asp?pageno=<%=i%>&boardid=<%=boardid%>&topicid=<%=topicid%>"><font color=#0000FF><%=i%></font></a><%=" "%>
<%end if%>
<%next%>
</strong>]页
<% end if%> </td>
</tr>
<tr>
<td height="30" align="center" valign="middle" bgcolor="#CC6633">
<span class="style9">版权所有@<span class="style4">corner</span></span></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -