<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<%
set conn = server.CreateObject("adodb.connection")
conn.open "ytdb"
Name = request.Form("Name")
Name1= request.Form("Name1")
SqlStr = "select * form 会员资料列表 where 1=1"
SqlStr="select * from 会员资料列表 where Name1 Like '%"&Name&"%'"
Set Rs = Conn.Execute(SqlStr)
%>
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>会员资料列表</title>
</head>
<body background="/图片/子文件背景图片2.jpg">
<Form method="post"action="sh3.asp">
<p>请选择查询条件：
<label>
<select name="Name1">
<option value="" selected>----请选择----</option>
<option value="姓名">姓名</option>
<option value="现居住地">现居住地</option>
<option value="卡号">卡号</option>
<option value="生日">生日</option>
<option value="手机">手机</option>
</select>
</label>
<label>
<input type="text" name="Name" />
<input type="submit" name="bt2" value="查询" />
</label>
</p>
</Form>
<center>
<p align="center"></center><b>会员资料总列表</b>
<table border="1" borderColorDark="#ffffff" borderColorLight="#848284" cellSpacing="0" width="100%">
<tbody>
<tr>
<td align="center" width="10%" bgcolor="#D6D3CE">卡号</td>
<td align="center" width="10%" bgcolor="#D6D3CE">姓名</td>
<td align="center" width="10%" bgcolor="#D6D3CE">性别</td>
<td align="center" width="10%" bgcolor="#D6D3CE">生日</td>
<td align="center" width="10%" bgcolor="#D6D3CE">工作单位</td>
<td align="center" width="10%" bgcolor="#D6D3CE">现居住地</td>
<td align="center" width="10%" bgcolor="#D6D3CE">手机</td>
<td align="center" width="10%" bgcolor="#D6D3CE">婚否</td>
<td align="center" width="10%" bgcolor="#D6D3CE">修改</td>
</tr>
<%do while not rs.eof%>
<tr>
<td align="center" bgcolor="#ffffff" width="10%">
<ahref = "modify.asp? id=<%=rs("序列号")%>" title="修改"><%=rs("卡号")%></a>
</td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("姓名")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("性别")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("生日")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("工作单位")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("现居住地")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("手机")%></td>
<td align="center" bgcolor="#ffffff" width="10%"><%=rs("婚否")%></td>
<td align="center" bgcolor="#ffffff" width="10%">
<a href="modify.asp id = <%=rs("序列号")%>">修改</a>
</td>
</tr>
<%
rs.movenext
loop%>
<%
Rs.close
Set Rs = Nothing
Conn.Close
Set Conn =Nothing
%>
</tbody>
</table>
<div>
<center><input name="bt1" onclick="document.location.href='add3.asp';"style="cursor:hand;"type="button" value="添加会员名单"></center>
</div>
</body>
</html>
这是我写的代码，高手帮忙指点错在哪儿了？
显示错误信息是
Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e10'
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。
/serch/sh3.asp，行 9
2008-02-20 10:38
