📄 find.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file ="date.asp"-->
<title>库存</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 18px}
.STYLE3 {
font-size: 18px;
font-weight: bold;
color: #FFFFFF;
}
a:link {
color: #003366;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #003366;
}
a:hover {
text-decoration: none;
color: #003366;
}
a:active {
text-decoration: none;
color: #003366;
}
body {
background-color: #ECF2FF;
margin-left: 0px;
margin-right: 0px;
}
.STYLE5 {
font-size: 12px;
color: #000055;
}
.STYLE12 {font-size: 12px}
.STYLE13 {font-size: 14px; }
.STYLE14 {font-size: 16px}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftmargin="10" topmargin="0">
<p align="center" class="STYLE2">
<table width="100%" height="35" border="0" background="image/top.gif" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"><span class="STYLE3">搜索</span></div></td>
</tr>
</table>
<p align="center">
<%
if request("action")="save" then
user=request.form("name")
fdate=request.Form("date1")
tdate=request.Form("date2")
exec="select * from follow where seller='"&user&"' order by date"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
response.Write user&" 在 "&fdate&" 至 "&tdate&" 之间客户的拜访情况"
i=1%>
</p>
<table width="661" height="82" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#CEDEFB">
<tr>
<td width="36" height="32" background="image/headerbg.gif"><div align="center" class="STYLE14">编号</div></td>
<td width="160" background="image/headerbg.gif"><div align="center" class="STYLE14">单位名称</div></td>
<td width="81" background="image/headerbg.gif"><div align="center" class="STYLE14">拜访人</div></td>
<td width="112" background="image/headerbg.gif"><div align="center" class="STYLE14">客户类别</div></td>
<td width="81" background="image/headerbg.gif"><div align="center" class="STYLE14">拜访日期</div> </td>
<td width="177" background="image/headerbg.gif"><div align="center" class="STYLE14">拜访时间</div></td>
</tr>
<%
do while not rs.eof
ndate=rs("date")
if datediff("d",fdate,ndate)>=0 and datediff("d",tdate,ndate)<=0 then
idd=rs("company_id")
exe="select * from company where id="&idd
set rr=server.createobject("adodb.recordset")
rr.open exe,conn,1,1
%>
<tr>
<td height="28" bgcolor="#FFFFFF"><div align="center"><%=i%> </div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="detail.asp?id=<%=rs("id")%>"><%=rr("short")%> </a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("customer")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rr("cate")%> </div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("date")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("time1")%>－<%=rs("time2")%></div></td>
</tr>
<%
rr.close
i=i+1
end if
rs.movenext
loop
%>
</table>
<p>
<%else if request("action")="sav" then
user=request.Form("kehu")
exec="select * from company where name='"&user&"' order by id"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
response.Write rs("name")
else %>
</p>
<form name="form1" method="post" action="find.asp?action=sav">
<p align="center">销售人员:<select name="name">
<option value="">姓 名</option>
<% branch="营销部"
ddStr = "Select cname From che Where branch='"&branch&"'"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
if session("cname")=dd(0) then
Response.Write "<option value="& dd(0) &" selected>"& dd(0) & "</option>"
else
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
end if
dd.MoveNext
Loop
%>
</select>
</p>
<p align="center">时 间:
<input name="date1" type="text" onClick="popUpCalendar(this, form1.date1, 'yyyy-mm-dd')" value="<%=date()%>" size="10" readonly="">
-
<input name="date2" type="text" onClick="popUpCalendar(this, form1.date2, 'yyyy-mm-dd')" value="<%=date()%>" size="10" readonly="">
</p>
<p align="center">
<input type="submit" name="Submit" value="搜索">
</p>
</form>
<form name="form1" method="post" action="find.asp?action=save">
<div align="center">
<p>客户名称：
<input type="kehu" name="textfield">
</p>
<p>
<input type="submit" name="Submit2" value="搜索">
</p>
</div>
</form>
<p> </p>
<%end if%>
<table width="100%" height="18" border="0" background="image/bottom.gif" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="bottom"><div align="center"><span class="STYLE5">版权所有 杰尔康</span><br />
</div></td>
</tr>
</table>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -