全分奉送，求一段asp+access代码！

<body><formid="form1"name="form1"method="post"action="seach.asp"><p><inputname="m1"ty... <body>
<form id="form1" name="form1" method="post" action="seach.asp">
<p>
<input name="m1" type="text" />
<input name="m2" type="text" />
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</p>

</form>
</body>

access数据库中只有一个字段，是一组无序的数字。
要求从表单获得m1和m2中的数字并在数据库中查询，当第n个数为“m1”，第n+1个数为“m2”，显示第n+2个数，若有多组符合条件，请按照第n+2个数的出现次数为规则排序显示
举个例子吧，假设当前数据库中有10个数，31、29、10、31、29、6、31、29、6、17，我在m1输入框中填入31，在m2中填入29，按照要求应该显示结果为：6、6/10

To arvy momo，第n+2个数的出现次数为显示规则，就是说以显示次数降序排列所有的第n+2个数，查询规则上面我已经说了哦~~~

To baoyongxu，数字会在0到36之间，整数，不会超出这个范围展开

 我来答

4个回答

#热议# 上班途中天气原因受伤算工伤吗？

候昂雄rP
2010-11-24 · TA获得超过7469个赞

知道大有可为答主

回答量：1342

采纳率：0%

帮助的人：954万

我也去答题访问个人页

关注

展开全部

来我这看看吧，比较便宜，我是代理新网万网的

本回答由提问者推荐

已赞过 已踩过<

评论收起

AiPPT
2024-09-19 广告

作为北京饼干科技有限公司的工作人员，关于AIPPT免费生成PPT的功能，我可以简要介绍如下：AIPPT是一款基于人工智能技术的PPT制作工具，它为用户提供了免费生成PPT的便捷服务。用户只需简单输入PPT的主题或内容大纲，AIPPT便能智能... 点击进入详情页

本回答由AiPPT提供

arvy_momo
2010-11-20 · TA获得超过2350个赞

知道大有可为答主

回答量：1552

采纳率：50%

帮助的人：994万

我也去答题访问个人页

关注

展开全部

access数据库中只有一个字段，是一组无序的数字。
楼主，你能在“无序”的数字中确定“第n+2个数的出现次数为规则”？？？

——总之就是一句话，说了半天不知道你想干什么。。。
------------------------------------------------------------------------------------
补充：
举个例子吧，假设当前数据库中有10个数，31、29、10、31、29、6、31、29、6、17，我在m1输入框中填入31，在m2中填入29，按照要求应该显示结果为：6、6/10……
可是，如果数据库中的数是：
5、26、8、12、5、19、18、6、20、30、19、5、27、15、21、29、5、3、31、7、8、28、29……你填入31、29之后，又如何显示？？？
-----------------------------------------------------------------------------
你的问题其实根本没说明白，或者说你知道你想问什么，但朋友们都不知道……

本回答被网友采纳

已赞过已踩过<

你对这个回答的评价是？
评论收起

百度网友f0b9d15
2010-11-10 · 超过44用户采纳过TA的回答

知道小有建树答主

回答量：174

采纳率：0%

帮助的人：123万

我也去答题访问个人页

关注

展开全部

m1和m2是有用户输入所得，数据库里是否有这两个数据还不得知，更何况位置是n和n+1呢？你再补充吧。

已赞过 已踩过<

评论收起

fhjv97
2010-11-10 · TA获得超过176个赞

知道小有建树答主

回答量：348

采纳率：0%

帮助的人：187万

我也去答题访问个人页

关注

展开全部

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "">
<html xmlns="">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>关键字查询</title>
<script language="javascript">
function button2_onclick()
{
var key=document.getElementById("text1").value;
var num=key.split(" ");
var knum=num.length;
alert(knum);
document.getElementById("keynumber").value=knum;
form2.submit();
}
</script>

</head>

<body>
<table width=800 border="0" cellpadding="1" cellspacing="1" class="link">

<tr>
<td colspan="3"><div align="center">产品版本型号查询</div></td>
</tr>
<form id="form2" name="form2" method="post" action="show.asp">
<tr>

<td width="53">
请输入：</td>
<td width="283">
<input name="text1" type="text" id="text1" value="" size="40" />
<input type="hidden" id="keynumber" name="keynumber" value="" />
<td width="4"> </td>
<td width="85"><div align="left">
<select name="t">
<option value="and">精准搜索</option>
<option value="or">模糊搜索</option>
</select>

</div></td>
<td width="10"><div align="left"></div></td>
<td width="84"><div align="left">
<select name="mc">
<option value="z2">版本内容</option>
<option value="z1">版本名称</option>
</select>

</div></td>
<td width="259"><div align="left">
<input name="button2" type="submit" class="button" onclick="button2_onclick();" value="点击搜索" />
</div></td>
</form>
</tr>
</table>
</body>
</html>
<%
t=request.Form("t")
mc=request.Form("mc")
text1=request.Form("text1")
kg=replace(text1," ","")
kg=replace(kg,",","")
if text1="" then
response.Write("<p>")
response.Write("你要查询的关键词请用空格分开！")
response.Write("<p>")
response.Write("<font color=red>直接按Enter键搜索的结果等同于Ctrl+F的查找功能</font>")
response.Write("<p>")
response.Write("?精准搜索：符合所有查询的关键词才给予显示，但关键词的顺序允许变动。")
response.Write("<p>")
response.Write("?模糊搜索：显示包涵任意一个关键词的所有项目")
elseif kg="" then
response.Write("请输入有效的关键字")
else
key=split(text1," ")
dim keynum
keynum=request.Form("keynumber")
if keynum="" then
keynum=1
else
keynum=request.Form("keynumber")
end if
if keynum=1 then
MyString=" "&mc&" like '%"&text1&"%' "
else
j=keynum-1
dim keyword()
redim keyword(keynum)
for i=0 to j 'keynum-1
if i<>j then
keyword(i)=" "&mc&" like '%"&key(i)&"%' "&t
else
keyword(i)=" "&mc&" like '%"&key(i)&"%' "
end if
next
MyString = Join(keyword)
end if
' response.Write(mystring)

sql = "SELECT * FROM [data] WHERE"&mystring
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

Response.Write "<BR><B> 你搜索的是: </B> " & text1
' Print the Results
Response.Write "<BR><B> 搜索的结果 : </B> <UL>"
if rs.eof then
response.Write "<font color=red>没有查到相同的结果！</font>"
else

On Error Resume Next
rs.MoveFirst
Do While Not rs.eof
keys=rs.Fields("z2")
For i = LBound( key ) to UBound( key )
keys=replace(keys,key(i),"<font color=red>"& key(i) &"</font>")
Next

keyc=rs.Fields("z1")
For i = LBound( key ) to UBound( key )
keyc=replace(keyc,key(i),"<font color=red>"& key(i) &"</font>")
Next

dim idd
idd=idd+1
Response.Write "<font color=green>"&idd&"."&keyc&"版："&rs("z3")&"</font>"&" 说明："&rs("z5")&"<p>"
Response.Write "["&keys&"]<p>"
Response.Write "<A HREF='img/"& rs("z1") &".jpg ' target='_blank' ><img width='250' src='img/"&rs("z1")&".jpg'></A>"
Response.Write "<p></p>"
rs.MoveNext
Loop
Response.Write "</UL>"

end if

end if
%>

================================
上面是我自己写给公司的代码，用来来查询产品版本型号的，完全可用，无错误。发给你，具体表名你修改一下就可以用了，不懂的百度HI我吧。
请参考

已赞过 已踩过<

评论收起

更多回答（2）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

全分奉送，求一段asp+access代码！

其他类似问题

为你推荐：