📄 infoindex.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<!--#include file="inc/css.asp"-->
<title><%=WebSiteName%></title>
</head>
<body topmargin="0" background="images/bg.gif">
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" width="755" cellspacing="0" cellpadding="0">
<tr>
<td width="189" style="background-color: #FFFFFF; border-left: 1 solid #000000; border-top: 1 solid #000000; border-bottom: 1 solid #000000" valign="top">
<!--#include file="left.asp"-->
</td>
<td width="562" style="background-color: #FFFFFF; border: 1 solid #000000" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<!--#include file="navigation.asp"-->
<tr>
<td width="27%" valign="top">
<img border="0" src="images/infoissue.gif" width="150" height="112">
</td>
<td width="73%" valign="top">
<p style="line-height: 150%; margin-left: 50"><br>
<font color="#990000">曾经多少风风雨雨我陪你走过，如今多少快快乐乐我陪你笑过；<br>
不能忘记的，我永远记在心中，只怕在有雨的夜里，因景思情的<br>
泪如潮涌；心中只有一个信念：愿远方的你幸福！<br>
</font>[ <a href="infosend.asp">发布新的信息</a> ] [ <%IF Request("active")="myself" Then%><a href="infoindex.asp">查看所有人发表的信息</a><%Else%><a href="infoindex.asp?active=myself">查看我已发表的信息</a><%End IF%>
]
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2" height="10">
<div align="right">
<table border="0" width="38%" cellspacing="0" cellpadding="0">
<%
IF Request("Active")="myself" Then
SQL="Select * From 信息发布 Where 发布者='" & Session("User") &"'Order by ID desc"
Else
SQL="Select * From 信息发布 Order by ID desc"
End IF
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Connstr,1,1
dim currentpage '定义当前页的变量
dim totalput,n '定义变量
CurrentPage=0
TotalPut=0:N=0
IF Not RS.EOF Then
'const maxperpage=10 '定义每一页显示的数据记录的常量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
rs.move(currentpage-1)*maxperpage
i=0
End IF
IF Not RS.EOF Then
%>
<tr>
<td width="100%">
<p style="margin-bottom: 4"><%k=currentpage
if k<>1 then%><a href="infoindex.asp?pageid=1<%IF Request("active")="myself" Then%>&active=myself<%End IF%>">第一页</a><font color="#990000">｜</font><a href="infoindex.asp?pageid=<%=k-1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">上一页</a><%else%>第一页<font color="#990000">｜</font>上一页<%end if%><font color="#990000">｜</font><%if k<>n then%><a href="infoindex.asp?pageid=<%=k+1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">下一页</a><font color="#990000">｜</font><a href="infoindex.asp?pageid=<%=n%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">尾 页</a><%else%>下一页<font color="#990000">｜</font>尾 页<%End IF%></td>
</tr>
<%End IF%>
</table>
</div>
</td>
</tr>
<%
IF Not RS.EOF Then
do while i< maxperpage and not rs.eof
'Do While Not RS.EOF
%>
<tr>
<td width="100%" valign="top" colspan="2">
<div align="center">
<table border="0" width="90%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" height="25" bgcolor="#EDEDED" style="border-top: 1 solid #764831;">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="6%">
<p align="right"><img border="0" src="images/face/<%=RS("心情符")%>.gif" width="20" height="20"></td>
<center>
<td width="94%" valign="bottom"> 标题：『 <a href="infodisplay.asp?id=<%=RS("ID")%>"><%=RS("主题")%></a> 』</td>
</tr>
</table>
</center>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="70%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p style="line-height: 150%; margin-left: 5; margin-top: 5; margin-bottom: 2"><font color="#545454"><%=RS("前言")%></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="22" style="border-bottom: 1 solid #764831;">
<div align="right">
<table border="0" width="60%" cellspacing="0" cellpadding="0">
<tr>
<td width="32%">作者：<%=RS("发布者")%>
</td>
<td width="18%">人气：<font color="#990000"><%=RS("人气")%></font>
</td>
<td width="50%">发布时间：<%=RS("发布日期")%>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td width="100%" valign="top" colspan="2" height="10">
</td>
</tr>
<%
RS.MoveNext
I=I+1
Loop%>
<tr>
<td width="100%" valign="top" colspan="2">
<div align="right">
<table border="0" width="38%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p style="margin-top: 5">
<%k=currentpage
if k<>1 then%><a href="infoindex.asp?pageid=1<%IF Request("active")="myself" Then%>&active=myself<%End IF%>">第一页</a><font color="#990000">｜</font><a href="infoindex.asp?pageid=<%=k-1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">上一页</a><%else%>第一页<font color="#990000">｜</font>上一页<%end if%><font color="#990000">｜</font><%if k<>n then%><a href="infoindex.asp?pageid=<%=k+1%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">下一页</a><font color="#990000">｜</font><a href="infoindex.asp?pageid=<%=n%><%IF Request("active")="myself" Then%>&active=myself<%End IF%>">尾 页</a><%else%>下一页<font color="#990000">｜</font>尾 页<%End IF%></td>
</tr>
</table>
</div>
</td>
</tr>
<%'End IF%>
<%'IF RS.EOF Then
Else%>
<tr>
<td width="100%" valign="top" colspan="2">
<p style="margin-left: 200; margin-top: 5; margin-bottom: 5"><font color="#FF0000">你还没有发布信息！</font>
</td>
</tr>
<%ENd IF%>
<tr>
<td width="100%" valign="top" colspan="2">
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="bottom.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -