📄 affiche.asp

📁 九酷网络个人主页系统破解版

💻 ASP

字号:

<!--#include file="config.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=site%>——最新公告</title>
<LINK href="css/user.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="js/title.js"></script>
</head>
<body>
<table border=0 width=97% align=center cellspacing=1 cellpadding=4 class=a2>
<tr class=a3>
<td height=25 class="a1">&nbsp; → 
最新公告</td>
</tr>
</table><br>
<%
sql="select * from [affiche] order by posttime Desc"
rs.Open sql,Conn,1
pagesetup=5 '设定每页的显示数量
rs.pagesize=pagesetup
TotalPage=rs.pagecount  '总页数
PageCount = cint(Request.QueryString("ToPage"))
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
if TotalPage>0 then rs.absolutepage=PageCount '跳转到指定页数
i=0
Do While Not RS.EOF and i<pagesetup
i=i+1
%>
<a name="<%=rs("id")%>"></a>
<table width="97%" height="64" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
	<tr>
		<td height="20" align="center" class="a3"><%=rs("title")%></td>
	</tr>
	<tr>
		<td width="100%" class="a4"><%=rs("content")%>
	  </td>
	</tr>
	<tr>
		<td width="100%" height="18" align="right" class="a3">发布时间：<%=rs("posttime")%>	  </td>
	</tr>
</table><br>
<%
rs.movenext
loop
rs.close
set rs=nothing 
%>
[<b>共有
<font color="990000"><%=TotalPage%></font> 页
<script>
ShowPage(<%=TotalPage%>,<%=PageCount%>,"")
</script>
</b>]
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -