高考问答斗破苍穹漫画有多少章:asp程序无法查询，大家帮我看下。。
来源：百度文库 编辑：高考问答 时间：2024/04/28 05:23:53
键： id(自动编号) name名称 mobile手机 hometele宅电
想做到输入id自动列表。。
以下是代码
find.asp (主程序)
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>>> 电子通讯录 登陆成功</title>
</head>
<body>
<p><b><font color="#FF0000" face="幼圆"><i>电子通讯录 </i></font>
<font color="#FF0000" face="Lucida Sans" size="2">Version 3.1 <br>
<br>
</font></b><font size="2"><b>-------------------------------------------</b></font><b><font face="Verdana" size="2"><br>
>>管理平台登陆成功<br>
<br>
请输入 唯一学生编号(OA-pID) 进行通讯内容查询!</font></b><form method="POST" action="findending.asp">
<p><input type="text" name="id" size="20">
<input type="submit" value="start" name="start" style="font-family: Verdana; font-size: 8pt"></p>
</form>
<p><font size="2"><b>【<a href="webhlp.asp">帮助文档</a>】【<a href="cleared.asp?Num=Clear">退出登陆</a>】<br>
<br>
-------------------------------------------<br>
<br>
<font color="#0000FF"><font face="Verdana">Powered by Blackangel (Q:68078307)<br>
Source URL: <a href="http://web.llsh.org/~dztxl">http://web.llsh.org/~dztxl</a></font><br>
</font></b></font>
</body>
</html>
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下是findending.asp
<%
dim Conn
Set conn= Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft access driver (*.mdb)};dbq="&server.mappath("findtxl.mdb")
if request.form("sumbit")="start" then
whatzip=request.form("id")
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from findtxl where id '%"&whatzip&"%' "
'在from后的数据表名查询像whatzip的ID
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write ("未能查到该学生资料")
else
Do Until rs.EOF
response.write("该学生名称为:"& rs.Fields("name") &)
response.write("该学生手机为:"& rs.Fields("mobile") &)
response.write("该学生宅电为:"& rs.Fields("hometele") &)
rs.MoveNext
Loop
end if
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
end if
%>
两种改法都不行……
http://www.ns0.it/lg 测试页面～
findending.asp修改:
<%
dim Conn
Set conn= Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft access driver (*.mdb)};dbq="&server.mappath("findtxl.mdb")
if request.form("sumbit")="start" then '这个好像多余的,如下面改后还不能运行,你试删掉,注意把后面的end if也删除
whatzip=request.form("id")
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from findtxl where id ='%"&whatzip&"%' " 'SQL语句错误,少"="号
'在from后的数据表名查询像whatzip的ID
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write ("未能查到该学生资料")
else
Do Until rs.EOF
response.write("该学生名称为:"& rs.Fields("name") &) '后面的&符号你用来做什么呀?如你想换行,可以在&后加上"<br>",有双引号.
response.write("该学生手机为:"& rs.Fields("mobile") &)
response.write("该学生宅电为:"& rs.Fields("hometele") &)
rs.MoveNext
Loop
end if
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
end if '就是这里
%>
sql = "Select * from findtxl where id like '%"&whatzip&"%' "
'在from后的数据表名查询像whatzip的ID
'少了like
sql = "Select * from findtxl where id '%"&whatzip&"%' "
问题也出现在这里