📄 boardlist.asp.bak
字号:
<!--#include file="../inc/Constant.inc"-->
<!--#include file="../inc/CheckUser.inc"-->
<html>
<head>
<title><%=App_Title%></title>
</head>
<style>
A:link {color: Black; }
A:visited {color: Black;}
TD{font:11pt;}
</style>
<body BGCOLOR="White" topMarGin="0" leftMargin="1" RightMargin="1">
<%
'Response.Write Session("sql")
'Response.End
Set RootRS=Server.CreateObject("ADODB.RecordSet")
'Response.Write Session("User_Id")
'Response.End
RootRS.open Session("sql"),Session("RiseInfo_ConnectionString"),1,3
cnt=RootRS.recordcount
RootRS.PAGESIZE=10
pagesize=RootRS.PAGESIZE
PgCounter=RootRS.PageCount
Page=request("page")
If Page="" Then
Pageno=1
Else
Page=Cint(Page)
End If
If request("scrollaction1")<>"" Then
If Page = 1 Then
PageNo = 1
Else
PageNo = Page - 1
End If
End If
'response.write request("scrollaction2") & Page & PageNo
If request("scrollaction2")<>"" Then
If Page = PgCounter Then
PageNo = PgCounter
Else
PageNo = Page + 1
End If
End If
'response.write Request("ActionChooseFirst") & Request("ActionChooseEnd")
If Request("ActionChooseFirst")<>"" Then
PageNo = 1
End If
If Request("ActionChooseEnd")<>"" Then
PageNo = PgCounter
End If
If PgCounter>0 Then
RootRS.absolutepage=pageno
End If
%>
<form name="form1" method="post" action="BoardList.asp">
<%
i=(pageno-1)*pagesize+1
do while not(RootRS is nothing)%>
<table CELLSPACING="1" CELLPADDING="1" BORDER="0" WIDTH=100%>
<tr BGCOLOR="#EEEEEE" VALIGN="TOP">
<td ALIGN="Center" width="17%" NOWRAP style="font-size:10pt">时 间</td>
<td ALIGN="Center" width="70%" NOWRAP style="font-size:10pt">标 题</td>
<td ALIGN="Center" width="13%" NOWRAP style="font-size:10pt">发表人</td></tr>
<%rowcount=RootRS.pagesize
do while not RootRS.eof and rowcount>0%>
<tr>
<td NOWRAP Align=center style="font-size:10pt"><%=year(RootRS("Date")) & "年" & month(RootRS("Date")) & "月" & day(RootRS("Date")) & "日"%></td>
<td width="70%" style="font-size:10pt">
<a href="BoardDis.asp?Index=<%=RootRS("ID")%>" target="_top"><font color="blue" onmouseover="this.style.color='darkblue'" onmouseout="this.style.color='blue'"><%=RootRS("Title")%></font></a>
</td style="font-size:10pt">
<td NOWRAP Align=center style="font-size:10pt"><%=RootRS("IssueUser")%></td>
</tr>
<%
rowcount=rowcount-1
RootRS.Movenext
Loop%>
</table>
<%set RootRS=RootRS.nextrecordset
loop
If PgCounter>1 Then%>
<table width="100%">
<tr>
<td>
<input TYPE="SUBMIT" NAME="ScrollAction1" VALUE=" < ">
<input TYPE="SUBMIT" NAME="ScrollAction2" VALUE=" > ">
<input TYPE="SUBMIT" NAME="ActionChooseFirst" VALUE=" << ">
<input TYPE="SUBMIT" NAME="ActionChooseEnd" VALUE=" >> ">
</td>
<td align="center">
<font face="楷体_GB2312" size="3">第<%=pageno%>页共<%=pgcounter%>页<%=cnt%>条
</td>
</tr>
</table>
<%End If%>
<input name="page" type="hidden" value="<%=pageno%>">
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -