www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > addressList.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage=65001
response.Charset=utf-8
%>
<!--#include file="connDB.asp"-->
<!--#include file="include/Function.Common.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>【深度学习(asp)通讯录】 一眼瞬間 一夢千年 如真如幻 如水如煙</title>
<link rel="stylesheet" type="text/css" href="themes/base.css">
<link rel="stylesheet" type="text/css" href="themes/windQzone/theme.css">
</head>
<body>
<div class="container">
<!--#include file="include/include.top.asp" -->
<div class="blank5"></div>
<div class="grid-24 globalMiddle">
<!-- 中部侧栏 -->
<div class="grid-6 sideBar">
<script src="http://un.so.gougou.com/js/SearchView.js" charset="gbk"></script>
<script> xprint(43599,702,210,440); </script>
</div>
<!-- 中部内容 -->
<div class="grid-18 last content">
<br />
<!--addressList start-->
<%
sql_AddressList="select * from tAddressList order by fName asc"
set rsAddressList=server.CreateObject("adodb.recordset")
rsAddressList.open sql_AddressList,conn,3,1
if (rsAddressList.eof and rsAddressList.bof) then
response.Write("<tr><td colspan='7'>没有记录</td></tr>")
else
%>
<table width="99%" align="center">
<tr>
<th>序号</th>
<th>姓名</th>
<th>电话</th>
<th>QQ</th>
<th>E-mail</th>
<th>地址</th>
<th>备注</th>
</tr>
<%
i=0
'--- 1 分页初始化 -----
pSize=10 '每页显示记录数
call pageInit(rsAddressList,pSize ,currentPage,pageSize)
do while (not rsAddressList.eof)
i=i+1
'--- 2 循环处设界 -----
if (pageSize<=0)then exit do end if
pageSize=pageSize-1
%>
<tr>
<td><%=i%></td>
<td><%=rsAddressList("fName")%></td>
<td><%=rsAddressList("fTel")%></td>
<td><%=rsAddressList("fQQ")%></td>
<td><%=rsAddressList("fEmail")%></td>
<td><%=rsAddressList("fAddress")%></td>
<td><div class=" grid-3 ellipsis"><a href="addressListNote.asp?id=<%=rsAddressList("fid")%>"><%=rsAddressList("fNote")%></a></div></td>
</tr>
<%
rsAddressList.moveNext
loop
%>
<!--addressList end-->
</table>
<div align="center">
<%
'--- 3 分页显示 -----
call pagination(rsAddressList ,currentPage)
%>
</div>
<%
end if
rsAddressList.close
set rsAddressList=nothing
%>
<br />
<!--#include file="include/include.searchBar.asp"-->
</div>
</div>
<div class="blank5"></div>
<!--#include file="include/include.foot.asp" -->
</div>
</body>
</html>
<%call closeConnDB()%>