📄 bz.asp
字号:
<!--#include file="nt80.inc"--><html>
<head>
<title><%=name%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="style.css" rel=Stylesheet type=text/css>
</head>
<body bgcolor="#F3F3F3" text="#000000">
<!--#include file="top.asp"-->
<table width="759" border="0" cellspacing="0" cellpadding="0" align="center" height="680" bgcolor="#FFFFFF">
<tr>
<td height="34" colspan="3">
<!--#include file="gun.asp"--></td>
</tr>
<tr>
<td width="1" bgcolor="#CCCCCC"></td>
<td width="749">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="565">
<tr>
<td width="27%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="56%">
<tr>
<td> <!--#include file="indexuse.asp"-->
<!--#include file="indexbz.asp"--><!--#include file="textencode.ini"--></td>
</tr>
</table>
</td>
<td width="73%">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="420">
<tr>
<td bgcolor="#EBEBEB" height="2"></td>
</tr>
<tr>
<td bgcolor="#F9F9F9">
<div align="center"> 帮助中心</div>
</td>
</tr>
<tr>
<td bgcolor="#EBEBEB" height="2"></td>
</tr>
<tr>
<td>
<%
'可洛的分页
Dim PageSizer '// 每页显示数量
Dim TotalNumber '// 记录总数
Dim TotalPage '// 总页数
Dim CurrentPage '// 当前页码
Dim LName '// lname
Dim SQL '// SQL 语句
LName = Replace(Request("lname"),"'","''")
PageSizer = 6 '// 每页显示5个记录
if Request("Page")<1 Or Not IsNumeric(Request("Page")) Then
CurrentPage = 1
Else
CurrentPage = Cint(Request("Page"))
End if
TotalNumber = Conn.Execute("Select Count(id) From [news] Where lei=1 ")(0)
if TotalNumber Mod PageSizer = 0 then
TotalPage = TotalNumber \ PageSizer
Else
TotalPage = TotalNumber \ PageSizer + 1
End if
if CurrentPage=1 Then
SQL = "Select top "&PageSizer&" * From [news] Where lei=1 Order By ntime desc"
Else
SQL = "Select * From [news] Where lei=1 And id In (Select Top "&CurrentPage * PageSizer&" id From [news] Where lei=1 Order By ntime desc) And id Not In (Select Top "&CurrentPage * PageSizer - PageSizer&" id From [news] Where lei=1 Order By ntime desc) Order By ntime desc"
End if
Set rs = Conn.Execute(SQL)
if Not rs.Eof Then
Do Until rs.Eof
%>
<table width="95%" border="1" cellspacing="0" cellpadding="0" height="75" bordercolor="#F3F3F3" align="center">
<tr>
<td width="71%" bgcolor="#F9F9F9">■<font color="#000099"><%=rs("nname")%>
</font> </td>
<td width="29%"><%=rs("ntime")%></td>
</tr>
<tr>
<td colspan="2"><br>
<%=textencode(rs("nneirong"))%> </td>
</tr>
<tr>
<td colspan="2">
<div align="right">作者：[<%=rs("zuozhe")%>]</div>
</td>
</tr>
</table>
<br>
<%rs.movenext
Loop
End if%>
</td>
</tr>
<tr>
<td>
<div align="right">
<%if request("page")>1 then%>
<a href="list.asp?Page=<% = 1%>&lname=<%=LName%>">首页</a> <a href="list.asp?lname=<%=LName%>&Page=<% =CurrentPage -1 %>">上一页</a>
<%end if %>
<%if CurrentPage<>TotalPage then %>
<a href="list.asp?lname=<%=LName%>&Page=<% =CurrentPage + 1%>">下一页</a>
<a href="list.asp?Page=<% = TotalPage%>&lname=<%=LName%>">尾页</a>
<% end if %>
<% rs.close %>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="7" background="img/b2.jpg"></td>
</tr>
</table><!--#include file="di.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -