这是一个书上的实例
<! --#Include File=conn.asp-->
<%
Name=request.form("Name")
SqlStr="select * from userlist where 1=1 "
if Name<>""then
SqlStr=SqlStr & "AND 姓名 LIKE '%"& Name &"%'"
end if
SqlStr=SqlStr & "Order by Id"
Set Rs = Conn.Execute(SqlStr)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>通讯录列表</title>
</head>
<body>
<center>
<p align ="center"></center><b>通讯录名单</b>
<table border="1" borderColorDark="#ffffff" borderColorLight="#848284" cellSpacing="0" width="100%" vAlign="top">
<tbody>
<tr>
<td align="middle" width="12%" bgcolor="#D6D3CE">姓名</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">性别</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">出生日期</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">电话</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">地址</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">Email</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">修改</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">删除</td>
</tr>
<%do while not rs.eof %>
<tr>
<td align="middle" bgColor="#ffffff" width="12%">
<a href="modify.asp?id=<%=rs("ID")%>"title="修改"><%=rs("姓名")%></a>
</td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("性别")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("出生日期")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("电话")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("地址")%></td>
<td align="middle" bgColor="#ffffff" width ="13%"><%=rs("Email")%></td>
<td align="middle" bgColor="#ffffff" width ="13%">
<a href="modify.asp?id=<%=rs("ID")%>">修改</a>
</td>
<td ailgn="middle"bgColor="#ffffff" width="13%">
<a href="modify.asp?id=<%=rs("ID")%>">删除</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='write.asp':"style="cursor:hand;"type="button"value="增加通讯名单">
<input name="bt2"onclick="document.location.href='show.asp';"style="cursor:hand;"type="button"value="显示所有名单"></center>
</div>
<! --以下是查询表单-->
<form method="post" action="show.asp">
<p>按[姓名]模糊查询:
<input type="text" name="Name"size="20">
<input type="submit" value="查询" name="B1">
<input type="reset" value="清除" name="B2"></p>
</form>
</body>
</html>
我查了很多遍,跟书上的没有问题,可老说缺少对象,在“Set Rs = Conn.Execute(SqlStr)” 缺少‘CONN’,很急,通宵等回复,谢谢您了
联系QQ:21376338