📄 js.asp
字号:
<html>
<head>
<title>情人留言机深情表白</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
//-->
</script>
<style type="text/css">
<!--
.unnamed1 { border: FF64a0 dotted}
.style1 {color: #000000}
.style2 {color: #3399FF}
.style4 {color: #990000}
.style5 {color: #FF9900}
.style6 {color: #FF33CC}
.style7 {color: #408080}
.style9 {color: #BC79FF}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#ffffff" text="#FF33FF">
<table width="566" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><p>
<!--#include file="bkconn.asp"-->
<%
const MaxPerPage=8 '分页显示的纪录个数
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
%>
<%sql="select * from book order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 留 言</p>"
else
totalPut=rs.recordcount
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
response.write "<div align='center'>"
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
response.write "<div align='center'>"
showpages
showContent
showpages
else
currentPage=1
showContent
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
</p>
<div align="center">
<table width="600" height="0" border="0" align="left" cellpadding="1" cellspacing="0" bordercolor="#FF99FF" bordercolorlight="#FF33FF" bordercolordark="#FF66fF">
<%
do while not (rs.eof or err)
%>
<tr>
</tr>
<tr>
<td height="24" colspan="3" bordercolor="#000000" background="425.gif"><span class="style1">·</span><font size="2"><a href="http://qq778.com/love/love/hao.asp" target="_blank"><span class="style2"><%=left(rs("xingming"),2)%><span class="style7">对</span><span class="style6"><%=left(rs("wangyou"),2)%></span><span class="style4">说</span><span class="style5">：</span><span class="style9"><font size="2"><%=left(rs("content"),4)%>.</font></span></span></a></font></td>
<td width="1" align="right"><div align="left"></div></td>
</tr>
<tr> </tr>
<%if rs("answer")<>"" then%>
<tr> </tr>
<%end if%>
<tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</tr>
</table>
<%
end sub
%>
<br>
</div></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -