📄 d_linkmanbrow.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
username=Getuser()
userclass=TableVisitor("D_LinkMan",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！"
response.end
end if
%>
<%
dim mails()
khmc=request("khmc")
set rslxr=server.createobject("adodb.recordset")
str="select * from D_viewlinkMan where DepartID like '"&Session("DepartID")&"%'"
if khmc<>"" then
str=str&" and ClientName like '%"&khmc&"%'"
end if
rslxr.open str&"order by id desc",pubconn,1
'response.write str
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<script language="vbscript">
sub GoPage()
page1=document.form1.page1.value
khmc=document.myform.khmc.value
a="D_linkManbrow.asp?page="+page1+"&khmc="+khmc
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif" width="34" height="15"></font>
<font size="2">联系人明细查询</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="D_linkManbrow.asp" name="myform">
<table border="0" cellspacing="0" width="100%" align="center" >
<tr>
<td width="254" align="right" width="151" width="150" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<font size="2">客户名称 </font><input type="text" size="25" name="khmc">
</td>
<td width="172" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
</td>
</tr>
</table>
</form>
<%
if rslxr.eof then%>
<font size="2">无任何记录！
<p align="left">
<input type="button" value="新增" onclick="location.href='D_linkMan.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%
response.end
else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
rslxr.pagesize=10
'//重新定义电子邮件大小
redim mails(rslxr.pagesize)
if page>=rslxr.pagecount then
page=rslxr.pagecount
else
if page<1 then
page=1
end if
end if
rslxr.absolutepage=page
line=0
%>
<center>
<div align="center">
<center>
<table border="1" cellspacing="0" width="100%" height="30" width="100%" width="100%">
<form action="D_LinkMandel.asp" name="form1" method="post">
<tr>
<td width="2%" height="24" align="center" bgcolor="#DDD2C4">
</td>
<td width="20%" height="24" align="center" bgcolor="#DDD2C4">
客户名称
</td>
<td width="8%" height="24" align="center" bgcolor="#DDD2C4">
姓名
</td>
<td width="15%" height="24" align="center" bgcolor="#DDD2C4">
职务
</td>
<td width="12%" height="24" align="center" bgcolor="#DDD2C4">
电子邮件
</td>
<td width="10%" height="24" align="center" bgcolor="#DDD2C4">
采购关注点
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -