www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > admin/addressList/addressList_manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
session.CodePage=65001
response.Charset=utf-8
projectRootPath = "../../" '相对当前应用程序根的位置
%>
<!-- #include file ="../include/checkPurview.asp"-->
<!--#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>通讯录</title>
<link rel="stylesheet" type="text/css" href="../themes/base.css">
<link href="../themes/frmRight/frameRight.css" rel="stylesheet" type="text/css" />
</head>
<body id="bodyBg1">
<br />
<a href="addressList_manage.asp">通讯录管理</a> | <a href="addressList_add.asp">添加</a>
<hr color="#0099FF" size="1" />
<br />
<dl class="manageContent">
<dt>通讯录管理</dt>
<dd>
<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="95%" class="tableBoder01">
<tr>
<th>序号</th>
<th>姓名</th>
<th>电话</th>
<th>QQ</th>
<th>E-mail</th>
<th>地址</th>
<th>备注</th>
<th style="width:80px;">管理</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>
<td><a href="addressList_update.asp?id=<%=rsAddressList("fid")%>">修改</a> | <a href="addressList_del.asp?id=<%=rsAddressList("fid")%>" onclick="return confirm('你确定删除么?');">删除</a></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 />
</dd>
</dl>
<br />
</body>
</html>
<%call closeConnDB()%>