tid=request("tid")
if tid"" and tid"0" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Linkman where LinkmanClient="&tid&" order by id desc"
rs.open sql,conn,1,1
else
set rs=server.CreateObject("adodb.recordset")
sql="select * from tb_Linkman order by id desc"
rs.open sql,conn,1,1
end if
set rsk=server.CreateObject("adodb.recordset")
sqlk="select * from tb_Client order by id desc"
rsk.open sqlk,conn,1,1
%>
无标题文档
body,td,th {
font-size: 12px;
}
body {
background-color: #DFEEFF;
}
.style3 {color: #FFFFFF}
-->
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
function HLItem(obj){
obj.oldClassName=obj.className;
obj.className="List";
}
function Re(obj){
obj.className=obj.oldClassName
}
Email管理
发件人管理
所属客户：
请选择客户名称
if not rsk.eof then
for i=1 to rsk.recordcount
%>
rsk.movenext
next
else
response.Write("没有联系人信息，请添加")
end if
%>
联系人姓名
部门
职务
手机
E-mail
if not rs.eof then
tol=rs.recordcount
rs.pagesize=15
maxpage=rs.pagecount
requestpage=clng(request("p"))
if requestpage="" or requestpage=0 then
requestpage=1
end if
if requestpage>maxpage then
requestpage=maxpage
end if
if requestpage1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
if i mod 2=1 then
bg="#FFFFFF"
else
bg="#efefef"
end if
%>
rs.movenext
if rs.eof then exit for
next
else
response.Write("没有客户信息，请添加")
end if
%>
首页 上一页 下一页 最后一页
else
%>
首页 上一 下一 最后一页
当前页： 总页数： 总条数：
每页显示15条信息
