📄 index.asp
字号:
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_down.asp"-->
<!--#include file="char.inc"-->
<%
const MaxPerPage=30
dim totalPut
dim CurrentPage
dim TotalPages
dim a,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<html>
<head>
<title>证券论坛</title>
<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 valign="top">
<td width="756"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td> 当前位置: <a href="../">网站首页 - </a><a href="">证券论坛</a></td><td><div 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> </div></td></tr>
</table>
<table width="748" align="center" cellpadding="0" cellspacing="0">
<tr><td colspan="2"><table width=740 cellspacing=1 border="1" bordercolor="7A9FD1" style="border-collapse: collapse" cellpadding=0 align=center>
<tr height=25 bgcolor=7a9fd1><td width=400 align=center><font color=ffffff>【帖子标题】</font></td><td width=100 align=center><font color=ffffff>【发贴人】</font></td><td align=center width=50><font color=ffffff>【浏览】</font></td><td align=center width=50><font color=ffffff>【回复】</font></td><td align=center width=150><font color=ffffff>【发贴日期】</font></td></tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from review where hf=1 order by reviewid desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align=center>还 没 有 任 何 留 言</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage=totalPut \ MaxPerPage
else
currentpage=totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"index.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
do while not rs.eof
updatetime=rs("updatetime")
shicha=DateDiff("n",updatetime,date)
%>
<tr height=25><td width=400> <img src=images/icon.gif><a href=F.asp?reviewid=<%=rs("reviewid")%> class=p1> <b><%=rs("homepage")%></b></a><%if shicha<=1 then %> <img src=images/new.gif><%end if%><%if rs("hits")>=50 then%> <img src=images/icon4.gif><%end if%><%if rs("hitss")>=10 then%> <img src=images/icon3.gif><%end if%></td><td width=100 align=center><%=rs("author")%></td><td align=center width=50><font color=#0000FF><%=rs("hits")%></font></td><td align=center width=50><font color=#FF0000><%=rs("hitss")%></font></td><td align=center width=150><%=rs("updatetime")%></td></tr>
<%
a=a+1
if a>=MaxPerPage then exit do
rs.movenext
loop%>
</table></td></tr></table>
<%
end sub
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
<tr> <td> <font color="#FF0000">说明:</font>【今日新帖】<img src=images/new.gif> 【点击超过50】<img src=images/icon4.gif> 【回复超过10】<img src=images/icon3.gif></td>
<td align="center">
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber \ maxperpage
else
n=totalnumber \ maxperpage + 1
end if
response.write "<form method=post action="&filename&">"
response.write "<p> "
if CurrentPage<2 then
response.write "<font color='#b9b9b9' style='font-family: 宋体; font-size: 9pt'>首页 上一页</font> "
else
response.write "<a class=class href="&filename&"?page=1>首页</a> "
response.write "<a class=class href="&filename&"?page="&CurrentPage-1&">上一页</a> "
end if
if n-currentpage<1 then
response.write "<font color='#b9b9b9' style='font-family: 宋体; font-size: 9pt'>下一页 尾页</font>"
else
response.write "<a class=class href="&filename&"?page="&(CurrentPage+1)&">下一页</a> "
response.write "<a class=class href="&filename&"?page="&n&">尾页</a>"
end if
response.write "<font color='#000080' style='font-family: 宋体; font-size: 9pt'> 共<b>"&totalnumber&"</b>条留言 <b>"&maxperpage&"</b> 条留言/页</font> "
response.write "<font color='#000080' style='font-family: 宋体; font-size: 9pt'>转到：</font><input class=smallInput type='text' name='page' size=4 maxlength=10 value="&Currentpage&">"
response.write "<input class=buttonface type='submit' value='Go' name='cndok'></p></form>"
end function
%><form action=search.asp method=post><input name=k size=28 value=帖子关键字 onFocus=this.select();> <input type=submit value= 开始搜索 ></td></form>
</tr>
</table><br>
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_down.asp"-->
<table width=740 cellspacing=1 border="1" bordercolor="7A9FD1" style="border-collapse: collapse" cellpadding=0 align=center><tr height=25 bgcolor=7a9fd1><td width=400 align=center><font color=ffffff>【帖子标题】</font></td><td align=center width=50><font color=ffffff>【浏览】</font></td><td align=center width=50><font color=ffffff>【回复】</font></td><td align=center width=150><font color=ffffff>【发贴日期】</font></td><td width=100 align=center><font color=ffffff>【版主】</font></td></tr>
<%
dim topsql,toprs
topsql="select top 3 * from review where hf=0 order by reviewid desc; "
set toprs=server.createobject("adodb.recordset")
toprs.open topsql,conn,1,1
do while not toprs.EOF
Response.Write "<tr height=25><td width=400> <img src=images/icon.gif><a href=f.asp?reviewid="&toprs("reviewid")&" class=p1> <b>"&toprs("homepage")&"</b></a><br><br> 『 <a href=f.asp?reviewid="&toprs("reviewid")&">发贴</a> 精华 热帖 』 </td><td align=center width=50><font color=#0000FF>"&toprs("hits")&"</font></td><td align=center width=50><font color=#FF0000>"&toprs("hitss")&"</font></td><td align=center width=150>"&toprs("updatetime")&"</td><td width=100 align=center>"&toprs("author")&"</td></tr>"
toprs.MoveNext
loop
toprs.Close
set toprs=nothing
%>
</table>
<!--#include file="../inc/foot.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -