📄 browse.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="conn/conn.asp" -->
<%
if Request.QueryString("ID")<>"" then
session("TopicID")=Request.QueryString("ID")
end if
set rstopic = Server.CreateObject("ADODB.Recordset")
sql_T = "SELECT * FROM Topic WHERE ID = "&Request.QueryString("ID")
rstopic.open sql_T,conn,1,3
set rsreply = Server.CreateObject("ADODB.Recordset")
sql_R= "SELECT * FROM Reply WHERE TopicID = "&Request.QueryString("ID")&" ORDER BY CreateTime DESC"
rsreply.open sql_R,conn,1,3
'自动计算人气指数
Hit= "UPDATE Topic SET Hit=hit+1 WHERE ID="&Request.QueryString("ID")& " "
conn.Execute(Hit)
set rsstatus = Server.CreateObject("ADODB.Recordset")
sql_S= "SELECT UserName, Flag FROM DB_User WHERE userName = '"&session("UserName")&"'"
rsstatus.open sql_S,conn,1,3
session("topic")=rstopic("title")
%>
<html>
<head>
<title>查看帖子信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
td { font-size: 9pt;font_name:宋体;; line-height: 16pt}
a:hover { color: #ff0000; text-decoration: underline; font-size: 9pt }
a { font-size: 9pt; color: #FFFFFF; text-decoration: none }
p { font-size: 9pt; font-family: "宋体"; line-height: 11pt}
.l { font-size: 9pt; color: #0000FF}
.style1 {
font-size: 18pt;
color: #33CCFF;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="777" height="274" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td height="40" valign="top">
<table width="770" border="0" cellspacing="-2" cellpadding="-2">
<tr>
<td><table width="770" height="89" border="0" align="center" cellpadding="-2" cellspacing="-2" background="images/banner/bbs_1.gif">
<tr>
<td background="images/11back.gif"> <pre class="style1"> 欢迎登录小组论坛！</pre></td>
</tr>
</table></td>
</tr>
</table>
<table width="777" height="35" cellpadding="-2" cellspacing="-2">
<tr>
<td width="570" background="images/banner/bbs_2.gif"><table width="568" border="0" cellspacing="-2" cellpadding="-2" height="27">
<tr>
<td width="142"><font color="#666699">
<script language="JavaScript">
var today=new Date();
var month=today.getMonth()+1
if (today.getDay()==1)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期一");}
if (today.getDay()==2)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期二");}
if (today.getDay()==3)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期三");}
if (today.getDay()==4)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期四");}
if (today.getDay()==5)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期五");}
if (today.getDay()==6)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期六");}
if (today.getDay()==0)
{document.write(" "+today.getYear()+"年"+month+"月"+today.getDate()+"日 星期日");}
</script>
</font></td>
<td width="92"><font color="#666699">
<div id="bgclock"></div>
</font></td>
<td width="32" align="center" valign="top"><img src="images/Face/icon_smile.gif" width="15" height="15"></td>
<td height="27" valign="top" width="186"> <a href="./post.asp"><font size="2"></font></a> [ <%=session("UserName")%> ]
<script language="JavaScript">
var today=new Date()
if (today.getHours()>=7&&today.getHours()<13)
{document.write ("上午好！")}
else
{if (today.getHours()>=13 &&today.getHours()<18)
{document.write("下午好！")}
else
{document.write("晚上好！")}
}
</script>
</td>
<td valign="top" width="116"><%if session("username")="游客" then %>
<a href="#" onClick="window.open('register.asp','','width=550,height=280')" class="l">[用户注册]</a>
<a href="#" onClick="window.open('login.asp','','width=400,height=226')" class="l">[登录]</a>
<%end if%>
</td>
</tr>
</table></td>
<td width="205"><img src="images/banner/bbs_3.gif" width="200" height="35" border="0" usemap="#Map" href="./newtopic.asp"></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="56,7,155,26" href="newtopic.asp">
</map> <table width="712" border="0" cellspacing="-2" cellpadding="-2" align="center">
<tr>
<td width="246">
<div align="right"></div>
</td>
<td width="71">
</td>
<td width="107">
<div align="right"></div>
</td>
</tr>
</table>
<table width="770" border=1 bordercolor=#ffffff bordercolordark=#ffffff
bordercolorlight=#0099ff cellpadding=-1 cellspacing=0 height="54" align="center">
<tr bgcolor="#DDEEFF">
<td width="74"><font color="#336699"><b> </b></font>发起人</td>
<td width="333"><font color="#336699"><%=(rstopic("Author"))%></font>
<% session.timeout=120 %>
<% session("topicid")=rstopic("ID")%>
<% session("topic")=rstopic("Title")%> </td>
<td width="355"><a href="mailto:<%=(rstopic("Email"))%>"><img src="images/Mail.gif" width="20" height="13" border="0" alt="Email"></a>
<a href="<%=(rstopic("HomePage"))%>" target="_blank"><img src="images/Home.gif" width="14" height="14" border="0" alt="HomePage"></a>
<img src="images/Oicq.gif" width="22" height="16" alt="OICQ号码为：<%=(rstopic("Oicq"))%>">
</td>
</tr>
<tr>
<td width="74" rowspan="2" align="center" bgcolor="#F0F8FF"><img src="images/face/<%=(rstopic("Face"))%>"></td>
<td colspan="2" height="49" bgcolor="#F0F8FF"><font color="#336699"><%=(rstopic("Content"))%></font></td>
</tr>
<tr>
<td width="333" bgcolor="#DDEEFF"><font color="#336699">发表时间：<%=(rstopic("CreateTime"))%></font></td>
<td width="355" bgcolor="#DDEEFF"> <a href="newtopic.asp" class="l">新话题</a>
<A HREF="reply.asp?ID=<%=rstopic("ID") %>" class="l">回复主题</A>
<%
manager=rsstatus("flag")
if (manager <>"版主") then %>
<font color="#336699">删除主题</font>
<% else %>
<a href="deltopic.asp" class="l">删除主题</a>
<% end if %>
<a href="index.asp" class="l"> 回首页</a></td>
</tr>
</table>
<%if rsreply.eof then%>
<table align="center"><tr><td>无回复信息！</td></tr></table>
<%else%>
<table width="770" border=1 bordercolor=#ffffff bordercolordark=#ffffff
bordercolorlight=#0099ff cellpadding=-1 cellspacing=0 height="54" align="center">
<%'分页'
rsreply.pagesize=3
page=CLng(Request("page"))
if page<1 then page=1
rsreply.absolutepage=page
flag=0
for i=1 to rsreply.pagesize %>
<tr bgcolor="#DDEEFF">
<td width="74"><font color="#336699"><b>
</b></font>回复人</td>
<td width="333"><font color="#336699"><%=(rsreply("Author"))%></font></td>
<td width="355"><a href="mailto:<%=(rsreply("Email"))%>"><img src="images/Mail.gif" width="20" height="13" border="0" alt="Email"></a>
<a href="<%=(rsreply("HomePage"))%>" target="_blank"><img src="images/Home.gif" width="14" height="14" border="0" alt="HomePage"></a>
<img src="images/Oicq.gif" width="22" height="16" alt="OICQ号码为：<%=(rsreply("Oicq"))%>">
</td>
</tr>
<tr>
<td width="74" rowspan="2" align="center" bgcolor="#d9ecff"><img src="images/face/<%=(rsreply("Face"))%>"></td>
<td colspan="2" height="49" bgcolor="#F0F8FF"><font color="#336699"><%= (Replace(server.HTMLEncode(rsreply("content")),Chr(13),"<BR>"))%></font></td>
</tr>
<tr>
<td width="333" bgcolor="#DDEEFF" height="17"><font color="#336699">发表时间：<%=(rsreply("CreateTime"))%></font></td>
<td width="355" bgcolor="#DDEEFF" height="17" class="l">
<a href="./newtopic.asp" class="l">新话题</a>
<% manager=rsstatus("flag")
if (manager <>"版主") then %>
<font color="#336699">删除回复</font>
<% else %>
<A HREF="delreply.asp?ID=<%=rsreply("ID") %>" class="l">删除回复</A>
<% end if %> <a href="index.asp" class="l">回首页</a> </td>
</tr>
<% rsreply.movenext
flag=flag+1
if rsreply.eof then exit for
next %>
</table>
<table width="770" border="0" cellspacing="-2" cellpadding="-2" height="10" align="center">
<tr>
<td bgcolor="#DDEEFF"></td>
</tr>
</table>
<table width="770" border="0" cellspacing="-2" cellpadding="-2" align="center">
<tr>
<td width="67%" height="26"><div align="left">
<font color="#660000">当前显示第 <%=((page-1)*rsreply.pagesize+1)
%> 到 <%=((page-1)*rsreply.pagesize+flag)%> 个回复，共有 <%=(rsreply.recordcount)%> 个回复</font></div>
</td>
<td height="26" width="32%">
<div align="right"><font color="#000000">
<% if page<>1 then %><a href=<%=path%>?page=1 class="l">第一页</a>
<a href=<%=path%>?page=<%=(page-1)%> class="l">上一页</a>
<%end if
if page<>rsreply.pagecount then %>
<a href=<%=path%>?page=<%=(page+1)%> class="l">下一页</a>
<a href=<%=path%>?page=<%=rsreply.pagecount%> class="l">最后一页</a>
<%end if %>
</font></div>
</td>
<td height="26" width="1%"> </td>
</tr>
</table> </td>
</tr>
</table>
<%end if %>
<table width="777" border="0" align="center" cellpadding="-2" cellspacing="-2">
<tr>
<td background="images/BACK.GIF"> <div align="center">本站请用IE5.0或以上版本浏览，800*600为最佳效果 </div> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -