📄 f.asp
字号:
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_down.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from review where reviewid="&request("reviewid")&""
rs.open sql,conn,1,3
hits=rs("hits")+1
rs("hits")=hits
rs.update
%>
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:java="http://xml.apache.org/xslt/java">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<!--#include file="../inc/top.asp"-->
<body topmargin="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr><td height="5"></td></tr>
<tr><td width="756"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"><form action="newsadd.asp" method=POST name=form onSubmit="return CheckForm()">
<tr><td> 当前位置: <a href="../">网站首页 - </a><a href="">证券论坛</a></td><td width="50%" align='right'><a class=class href="javascript:window.location.reload()">刷新</a> <a href="guestadd.asp" class=class><img src='images/post.gif' alt='签写留言' border='0' align=absmiddle></a>
<input name="submit" type="image" src="images/reply.gif" alt="回复留言">
<input type="hidden" name="reviewid" value="<%=request("reviewid")%>">
<input type="hidden" name="hitss" value="<%=request("hitss")%>"> </td></tr></form>
</table>
<table width=760 cellspacing=0 bgcolor=ffffff border="0" cellpadding=0 align=center>
<tr><td colspan="2">
<table width=740 cellspacing=1 border="1" bordercolor="7A9FD1" style="border-collapse: collapse" cellpadding=0 align=center>
<tr><td colspan="5">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from review where reviewid="&request("reviewid")
rs.open sql,conn,1,1
homepage=rs("homepage")
%>
<title><%=rs("homepage")%>_证券论坛</title>
<table width=100% bgcolor=7a9fd1 height=26><tr><td> <font color="#FFff00"><b>主题：</font><font color="#ffffFF"><%=rs("homepage")%></font></b></td><td width=10% align=center><font color="#ffff00">[ 楼 主 ]</font></td></tr></table>
</td></tr>
<tr><td width="21%" rowspan="2" align="center" valign=top><br><br><img src="images/<%if trim(rs("face"))<>"" then%><%=rs("face")%><%else%>Image1.gif<%end if%>"><br><br>作者：<%=rs("author")%><br><br>来自：<%if trim(rs("from"))<>"" then%><%=rs("from")%><%else%>中国<%end if%></td>
<td width="32%"><img src=images/email.gif> <%=rs("email")%></td>
<td width="20%" align="center"><img src=images/time.gif> <%=rs("updatetime")%></td>
<td width="20%" align="center">IP：<%=rs("reviewip")%></td>
<td width="7%" align="center"><a href="#top"><img src=images/backtop.gif border=0></a></td></tr>
<tr><td colspan="4" height=150 valign=top class=365ye><br> <%=rs("content")%>
<%if rs("reply")<>"" then %>
<p><font color="#FF0000"><b><img src="IMAGES/base.gif" align="absmiddle"> 站长回复：</b><br>
<%=rs("reply")%> </font></p>
<%end if%></td></tr>
</table>
<table width=740 cellspacing=1 border="1" bordercolor="7A9FD1" style="border-collapse: collapse" cellpadding=0 align=center>
<%
rs.close
set rs=nothing
Dim Totalcount
set rs=server.createobject("adodb.recordset")
sql="select * from review where newsid="&request("reviewid")&" order by reviewid desc;"
rs.Open sql,conn,1,1
Totalcount =INT(RS.recordcount)
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select top 1000 * from review where newsid="&request("reviewid")
rs.Open sql,conn,1,3
do while not(rs.eof)
%>
<tr><td colspan="5">
<table width=100% bgcolor=7a9fd1 height=22><tr><td><b><font color="#ffffFF"> 回复：<%=rs("homepage")%></font></b></td><td width=15% align=center><font color="#ffff00">[ 第 <%=rs("hitss")%> 楼 ]</font></td></tr></table>
</td></tr><tr><td width="21%" rowspan="2" align="center" valign=top><br><br><img src="images/<%if trim(rs("face"))<>"" then%><%=rs("face")%><%else%>Image1.gif<%end if%>"><br><br>作者：<%=rs("author")%></td><td width="32%"><img src=images/email.gif> <%=rs("email")%></td><td width="20%"><img src=images/time.gif> <%=rs("updatetime")%></td><td width="20%" align="center">IP：<%=rs("reviewip")%></td><td width="7%" align="center"><a href="#top"><img src=images/backtop.gif border=0></a></td></tr><tr><td colspan="4" valign=top height=100><img src=images/icon2.gif> <%=rs("content")%><br>
<%if rs("reply")<>"" then %>
<p><font color="#FF0000"><b><img src="IMAGES/base.gif" align="absmiddle"> 站长回复：</b><br>
<%=rs("reply")%> </font></p>
<%end if%></td></tr>
<%
rs.movenext
loop
if totalcount >3 then
%>
<%end if%> </table>
<br>
</td>
</tr>
</table>
<!--#include file="../inc/foot.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -