📄 txl.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%
dim sPageNavigate '分页表格
dim iRecordCount,iMaxPageCount,iPageCount,iCurrentPageIndex,i,sTMP '分页
iMaxPageCount=20 '一页多少行记录
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style3 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body>
<form name="form1" method="post" action="txl.asp">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
<tr align="right">
<td height="25" align="left" bgcolor="#CC0000"><span class="style3">公司通讯录 </span></td>
<td height="25" colspan="4" bgcolor="#CC0000"><input name="Submit2" type="button" class="bon" id="Submit2" value="公司通讯录" onClick="window.location.href='txl.asp'">
<input name="Submit2" type="button" class="bon" id="Submit2" value="个人通讯录" onClick="window.location.href='p_txl.asp'">
<input name="Submit2" type="button" class="bon" id="Submit2" value="增加个人通讯录" onClick="window.location.href='add_ptxl.asp'"></td>
</tr>
<tr bgcolor="#F9F9F9">
<td height="25" colspan="5" align="left" bgcolor="#F2F2F2"><input name="uname" type="text" class="bon">
<input name="Submit" type="submit" class="bon" id="Submit" value="按姓名查找"> </td>
</tr>
<tr bgcolor="#CC6633">
<td width="17%" height="25" align="center"><span class="style1"></span> <span class="style3"> 姓名 </span></td>
<td align="center"><span class="style3"> 电子邮件 </span></td>
<td align="center"><span class="style3"> 手机
</span></td>
<td align="center"> <span class="style3"> 电话 </span></td>
<td align="center"><span class="style1"><strong>操作</strong></span></td>
</tr>
<%
uname=trim(request.Form("uname"))
if uname="" then
Sql="select id,truename,email,mobile,tel from oa_Admin where companyid="&session("companyid")
else
Sql="select id,truename,email,mobile,tel from oa_Admin where companyid="&session("companyid")&" and truename like '%"&uname&"%'"
end if
Call GetCurrentPageIndex() '取得当前页码
set my_rs=server.CreateObject("adodb.recordset")
my_rs.open Sql,conn,1,3
my_rs.PageSize=iMaxPageCount
my_rs.CacheSize =iMaxPageCount
if my_rs.recordCount <> 0 then my_rs.Absolutepage=iCurrentPageIndex
iRecordCount=my_rs.RecordCount '所有查询出来的记录数
iPageCount=my_rs.PageCount '最终多少页
if iCurrentPageIndex>iPageCount then iCurrentPageIndex=iPageCount '控制当前页不得超出范围
sPageNavigate=GetNavigate("txl.asp?uname="&uname&"",iRecordCount,iMaxPageCount,iCurrentPageIndex,true,true,"项") '取得分页表格
if Not my_rs.Eof then
For i = 1 to iMaxPageCount '利用for next 循环依次读出当前页的记录
if my_rs.EOF then Exit For
bgColor="#F8F8F8"
if i mod 2=0 then bgColor="#DFEFFF"
%>
<tr bgcolor="<%=bgColor%>">
<td height="25" align="center"><%=my_rs(1)%></td>
<td width="21%" align="center"><%=my_rs(2)%></td>
<td width="22%" align="center"><%=my_rs(3)%></td>
<td width="24%" align="center"><%=my_rs(4)%></td>
<td width="16%" align="center"><a href="add_notice.asp?sendto=|<%=my_rs(1)%>"> 发送信息</a> <a href="sendmail.asp?email=<%=my_rs(2)%>">发送邮件</a></td>
</tr>
<%
my_rs.MoveNext()
Next
End if
my_rs.close
set my_rs=nothing
%>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td height="20"><%=sPageNavigate%></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -