asp中查询按钮代码
假设textbox1里面的内容是数据库（MMIS）中存在的记录，则按“查询”按钮后跳转到另一页面，显示查找的相关信息...
假设textbox1里面的内容是数据库（MMIS）中存在的记录，则按“查询”按钮后跳转到另一页面，显示查找的相关信息
展开
2个回答
展开全部
查询页面 search.htm
<form id="form1" name="form1" method="post" action="search.asp">
<table width="400" border="1">
<tr>
<td width="100">输入查询内容</td>
<td><label>
<input type="text" name="textbox1" id="textbox1" />
</label></td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input type="submit" name="button" id="button" value="查询" />
</label></td>
</tr>
</table>
</form>
查询程序页面 search.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
'前提条件 添加连接数据库代码
if trim(request.Form("textbox1"))<>"" then
sql="select * from 表名 where 字段名 like '%"&trim(request.Form("textbox1"))&"%' order by id desc"'自己用其他方式排序也可以
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
do while not rs.eof
response.Write("输入自己想要的记录<br/>")'这里就是你充分发挥你的想象力 用什么方式输出查询的结果了
rs.movenext
loop
rs.close
set rs=nothing
else
response.Write("没有输入查询条件")
end if
%>
</body>
</html>
<form id="form1" name="form1" method="post" action="search.asp">
<table width="400" border="1">
<tr>
<td width="100">输入查询内容</td>
<td><label>
<input type="text" name="textbox1" id="textbox1" />
</label></td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input type="submit" name="button" id="button" value="查询" />
</label></td>
</tr>
</table>
</form>
查询程序页面 search.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
'前提条件 添加连接数据库代码
if trim(request.Form("textbox1"))<>"" then
sql="select * from 表名 where 字段名 like '%"&trim(request.Form("textbox1"))&"%' order by id desc"'自己用其他方式排序也可以
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有记录")
else
do while not rs.eof
response.Write("输入自己想要的记录<br/>")'这里就是你充分发挥你的想象力 用什么方式输出查询的结果了
rs.movenext
loop
rs.close
set rs=nothing
else
response.Write("没有输入查询条件")
end if
%>
</body>
</html>
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
