Question

求ASP查询数据库ACCESS代码

我的数据库连接是 conn.asp 数据库hegezheng.mdb 表名是lbj 字段有零件编号 零件名称 零件图号 订单货号 合同号 材料牌号 单件重量 台份
我建了一个查询页面ljhgzbiao.asp 和查询结果页面ljhgzresult.asp
我想在查询页面中输入任意一个字段值.怎么在查询结果页面中显示符合要求的一项数据 我是新手对代码不懂 自己搞了好长时间还是不行 那为大哥能按照我的要求给个完整的代码 我QQ344299699 刚申请的只有怎么多分了XX了

Answer 1

页面ljhgzbiao.asp :

<form action="ljhgzresult.asp" method="post" name="form1">
输入关键词：<input name="key" type="text" id="key">
<input type="submit" value="搜索">
</form>

查询结果页面ljhgzresult.asp :

<!--#include file="conn.asp" -->
<%
Dim skey
skey=Request.Form("key")
Dim rs,sql
set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * FROM [lbj] WHERE 零件编号="&skey&" or 零件名称=‘"&skey&"’ or 零件图号="&skey&" or 订单货号="&skey&" or 合同号="&skey&" or 材料牌号="&skey&" or 单件重量="&skey&" or 台份="&skey&" or order by 零件编号 desc"
rs.open sql,conn,1,1
if rs.eof Then
response.write "没有查询到纪录!"
Else
%>
<TABLE style="BORDER-COLLAPSE: collapse" height= cellSpacing=1 cellPadding=0 width=500 border=1 align="center" bordercolor="#666666">
<TR><TD height=25><B>零件编号</B></TD>
<TD><B>零件名称</B></TD>
<TD><B>零件图号</B></TD>
<TD><B>订单货号</B></TD>
<TD><B>合同号</B></TD>
<TD><B>单件重量</B></TD>
<TD><B>台份</B></TD></TR>
<%
do while not rs.eof
%>
<TR><TD height=25><%=rs("零件编号")%></TD>
<TD height=25><%=rs("零件名称")%></TD>
<TD height=25><%=rs("零件图号")%></TD>
<TD height=25><%=rs("订单货号")%></TD>
<TD height=25><%=rs("合同号")%></TD>
<TD height=25><%=rs("材料牌号")%></TD>
<TD height=25><%=rs("单件重量")%></TD>
<TD height=25><%=rs("台份")%></TD></TR>
<%
rs.movenext
Loop
%>
</TABLE>
<%
End If
rs.close
set rs=Nothing
%>