<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include virtual="/share/inc/admin.inc"-->
<!--#include file="conn.asp"-->
<%
key=trim(request.form("key"))
kind=trim(request.form("kind"))
'response.write "kind:"&kind&"key:"&key
set rs=server.CreateObject("adodb.recordset")
sql="select * from client"
if key<>"" then
select case kind
case "company"
sql=sql&" where company like '%"&key&"%'"
case "endtime"
sql=sql&" where endtime like '%"&key&"%'"
case "starttime"
sql=sql&" where starttime like '%"&key&"%'"
end select
end if
sql=sql&" order by id desc"
rs.open sql,Objconn,1,2
if rs.eof or rs.bof then
response.Write("暂无客户信息！")
else
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../share/css/job99.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="770" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><form name="form1" method="post" action="index.asp">
<input name="kind" type="radio" value="company" <%if kind="" or kind="company" then response.write "checked"%>>
公司名
<input type="radio" name="kind" value="endtime" <%if kind="endtime" then response.write "checked"%>>
到期日期
<input type="radio" name="kind" value="starttime" <%if kind="starttime" then response.write "checked"%>>
开始日期
<input name="key" type="text" value="<%=key%>">
<input type="submit" name="Submit" value="搜 索">
</form></td>
<td><a href="client.asp" target="_blank">添加客户</a></td>
</tr>
</table>
<table width="770" border="0" cellspacing="2" cellpadding="2">
<tr bgcolor="#009999">
<td>客户公司名</td>
<td>开始日期</td>
<td>结束日期</td>
<td>金额</td>
<td>业务员</td>
<td>编辑</td>
<td>删除</td>
</tr>
<%
for i=1 to rs.recordcount
if i mod 2=0 then
bg="#f8f8f8"
else
bg="#ffffff"
end if
%>
<tr>
<td bgcolor=<%=bg%>><%=rs("company")%></td>
<td bgcolor=<%=bg%>><%=rs("starttime")%></td>
<td bgcolor=<%=bg%>><%=rs("endtime")%></td>
<td bgcolor=<%=bg%>><%=rs("money")%></td>
<td bgcolor=<%=bg%>><%=rs("yewu")%></td>
<td bgcolor=<%=bg%>><a href="modify.asp?id=<%=rs("id")%>">编辑</a></td>
<td bgcolor=<%=bg%>><a href="#2" onClick=Javascript:window.open("del.asp?id=<%=rs("id")%>","删除单页","width=300,height=200")>删除</a></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
</body>
</html>
现在是用access的，用sql的不通就换掉啦
