[求助]为什么我总提示错误呢？
<DIV align=center><TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD><IMG height=50 src="../img/logo2.gif" width=780></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=780 border=0>
<TBODY>
<TR>
<TD bgColor=#5a9ade> </TD></TR></TBODY></TABLE>
<TABLE width=780 bgColor=#ffffff border=1>
<TBODY>
<TR align=middle bgColor=#b7b7b7>
<TD class=style1 noWrap width="7%"><STRONG>编号</STRONG></TD>
<TD class=style1 noWrap width="27%">姓名</TD>
<TD class=style1 noWrap width="22%">所属部门</TD>
<TD class=style1 noWrap width="23%">电话</TD></TR><%
'下面的代码执行第二步：
dim sql,rs,conn,db
'建立recordset记录集
db="/mdb/login.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
select case c1
case "name"
sql="select * from shengao1 where name='"&c2&"' order by user DESC"
case "user"
sql="select * from shengao1 where user like '%"&c2&"%' order by user DESC"
case "phone"
sql="select * from shengao1 where phone='"&c2&"' order by user DESC"
end select
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
'用循环显示记录
if not rs.bof and not rs.eof then
'设置一页显示20条
rs.pagesize=50
'设置当前页面
rs.absolutepage=page_no
'循环显示当前面的所有记录
'------------------
dim i,j
i=rs.pagesize
j=0
do while not rs.eof and i>0
j=j+1
i=i-1
'每显示一条，i减1，当变成0时，表示本页结束
%>
<TR align=middle bgColor=#f2f2f2>
<TD class=style1 noWrap><%=j%></TD>
<TD class=style1 noWrap><%=rs("name")%></TD>
<TD class=style1 noWrap><%=rs("user")%></TD>
<TD class=style1 noWrap><%=rs("phone")%></TD></TR><%
rs.movenext '记录指针向下移一条
loop
%><%
else
response.write("没有记录")
end if
%></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
<TBODY>
<TR>
<TD>
<DIV align=right><SPAN class=style1><%
'输出页面信息
' rs.pagecount表示总页数
Response.Write ("<p>共有"&rs.RecordCount&"条记录,")
response.write("分"&rs.pagecount&"页,")
response.write("当前是第"&page_no&"页,")
'输出第一页，上一页，下一页，最后一页的链接
'定义两个变量，分别显示上一页和下一页的页码
dim numpre,numnext
numpre=page_no-1
'当前页减1，是上一页
numnext=page_no+1
'当前页加1，是下一页
'先输出第一页的链接
response.write("<a href='listadm.asp?page_no=1'>第一页</a>")
'输出上一页的链接，如果numpre=0,表示当前已经是第一页了，不加链接
if numpre=0 then
response.write(" 上一页 ")
else
response.write(" <a href='listadm.asp?page_no="&numpre&"'>上一页</a> ")
end if
'输出下一页链接，如果numnext>rs.pagecount,表示已经是最后一页了，不能加链接
if numnext>rs.pagecount then
response.write(" 下一页 ")
else
response.write("<a href='listadm.asp?page_no="&numnext&"'>下一页</a>")
end if
'输出最后一页的链接
response.write(" <a href='listadm.asp?page_no="&rs.pagecount&"'>最后页</a>")
%><%
'用数字显示分页
response.write("<br>转至")
'用循环显示
for i=1 to rs.pagecount
%><A href="listadm.asp?page_no=<%=i%>"><%=i%></A><%
response.write("页")
next
%></SPAN></DIV></TD></TR></TBODY></TABLE><SPAN class=style1></SPAN></DIV>
错误提示：
Microsoft JET Database Engine 错误 '80040e10'
至少一个参数没有被指定值。
/tongxun/cgengxin.asp，行 73
我怀疑是不是红字那里的错误阿？？
73行为蓝字行....
[此贴子已经被作者于2005-11-30 17:39:22编辑过]
