📄 index.asp
字号:
<!--#Include file="connection.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>浪雨留言版</title>
<style type="text/css">
<!--
.style1 {
font-size: 12px;
color: #009900;
font-weight: bold;
}
.style2 {
font-size: 12px;
color: #0000FF;
}
.style3 {
font-size: 12px;
color: #333333;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {color: #009900}
-->
</style>
</head>
<body>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="57" align="left" valign="top"><img src="images/top.jpg" width="698" height="57"></td>
</tr>
</table>
<table width="760" height="229" border="1" align="center" cellpadding="4" cellspacing="0" bordercolor="#0099FF" style="border-collapse:collapse ">
<tr>
<td height="30" colspan="2" background="images/bei.jpg" class="style3">
<%dim rs1,sql1
sql1="select count(*) as total from user"
set rs1=db.execute(sql1)%>
<img src="images/userlist.gif" width="16" height="16">留言者信息 <img src="images/ly.gif" width="15" height="15">留言内容 当前总共有 <span class="style5"><%=rs1("total")%></span> 条留言 <img src="images/pl.gif" width="16" height="16"><a href="main.asp">给我留言</a></td>
</tr>
<% Dim Sql,rs
Sql="Select * from user order by userdate desc"
set rs=server.CreateObject("ADODB.Recordset")
rs.open sql,db,1
%>
<% If Not rs.Bof And Not rs.Eof Then
Dim page_size
Dim page_no
Dim page_total
page_size=5
If Request("page_no")="" Then
page_no=1
Else
page_no=cint(Request("page_no"))
End If
Session("page_no")=page_no
rs.PageSize=page_size
page_total=rs.PageCount
rs.AbsolutePage=page_no
'下面一段显示当前页的所有记录
Dim J
I=0
J=page_size
Do While Not rs.Eof And J>0
I=I+1
J=J-1%>
<tr>
<td width="127" height="167" align="center" valign="middle">
<img src="images/<%=rs("sex")%>.gif" width="100" height="100">
<br>
<span class="style1"><%=rs("user")%></span>
</td>
<td width="611" align="left" valign="top"><table width="575" height="157" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="575" height="16"><table width="574" height="22" border="0" cellpadding="2" cellspacing="0">
<tr class="style3">
<td width="104" height="22">OICQ：<span class="style2"><%=rs("qq")%></span></td>
<td width="38"> <a href="<%=rs("url")%>">主页</a></td>
<td width="36"> <a href="mailto:<%=rs("email")%>">邮箱</a></td>
<td width="140">电话：<span class="style2"><%=rs("tel")%></span></td>
<td width="104">时间：<span class="style2"><%=rs("userdate")%></span></td>
<td width="61"><a href="../login.asp?id=<%=rs("id")%>" target="_blank">站长管理</a></td>
<td width="53"><a href="main.asp" class="style2">给我留言</a></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10"><hr size="1"></td>
</tr>
<tr>
<td height="66"><img src="images/<%=rs("bb")%>.gif" width="15" height="15"><span class="style3"> <%=rs("message")%></span></td>
</tr>
<tr>
<td><hr size="1"></td>
</tr>
<tr>
<td height="27" class="style3"><img src="images/ip.gif" width="16" height="15"> <span class="style5"><%=rs("remessage")%></span></td>
</tr>
</table></td>
</tr>
<%rs.movenext
loop
end if%>
<tr>
<td height="30" colspan="2" background="images/bei.jpg" class="style3">
<%Response.Write "留言页码："
Dim I
for I=1 to rs.PageCount
If I=page_no Then
Response.Write "[第" & I & "页] "
Else
Response.Write "<a href='index.asp?page_no=" & I & "'>[第" & I & "页]</a> "
End If
next
%></td>
</tr>
</table>
<table width="760" height="49" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13"> </td>
</tr>
<tr>
<td height="36" align="center" class="style3">浪 雨 制 作 桂电计网034101班 2005.04.13 </td>
</tr>
</table>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -