关于二联菜单实现站内查询!

feixuejian881 2003-08-24 04:58:06
我在主页上做了一个二联菜单,第一个下拉菜单有文字、图片、音像、科学家四个选项,第二个则分别对应十个先项。FORM的action="seach.asp",然后我做了一个seach.asp,可以从数据库查出一些数据,但是对应一个简单的TEXT做的,(我初学)。现在的问题是:我在主页上下拉菜单中选择后点搜索,毫无反应,根本不进入HTTP//seach.asp.action没起作用?
...全文
66 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
feixuejian881 2003-08-25
  • 打赏
  • 举报
回复
可以查询了,但查出的结果不对。如果加%匹配,它就把全部内容给我查出来了。我想SQL这一句肯定有问题。那个级动菜单怎么查呀?&request.form后写什么呀?谁帮帮忙吧!
feixuejian881 2003-08-24
  • 打赏
  • 举报
回复
没人能帮忙吗?把adovbs.inc改成这样,还是不行。
<%set objconn=server.createobject("adodb.connection")
objconn.open "dsn=ADB;database=sour;uid=;pwd=;"
set objrs=server.createobject("adodb.recordset")
sql="select word,URL From sour where leibie='"&request.form("biglocation")&"'"
objrs.Open sql,objconn,3,2
%>
feixuejian881 2003-08-24
  • 打赏
  • 举报
回复
二联菜单代码如下: <script LANGUAGE="javascript">
<!--
var onecount;
onecount=0;

subcat = new Array();
subcat[0] = new Array("攻击","01","001");
subcat[1] = new Array("防御","01","002");
subcat[2] = new Array("觅食","01","003");
subcat[3] = new Array("贮食","01","004");
subcat[4] = new Array("繁殖","01","005");
subcat[5] = new Array("社群","01","006");
subcat[6] = new Array("通信","01","007");
subcat[7] = new Array("节律","01","008");
subcat[8] = new Array("本能","01","009");
subcat[9] = new Array("巴浦洛夫","02","010");
subcat[10] = new Array("珍妮特","02","011");
subcat[11] = new Array("hj","02","012");
onecount=12;

function changelocation(locationid)
{
document.myform.smalllocation.length = 0;

var locationid=locationid;
var i;
document.myform.smalllocation.options[0] = new Option('==所有==','');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.smalllocation.options[document.myform.smalllocation.length] = new Option(subcat[i][0], subcat[i][2]);
}
}

}

//-->
</script>
<form  action="seach.asp" method="post">
<p>
<select name="biglocation" onChange="changelocation(document.myform.biglocation.options[document.myform.biglocation.selectedIndex].value)">
<option value="01">文字</option>
<option value="01">图片</option>
<option value="01">音像</option>
<option value="02">科学家
<option>
</select>

<select name="smalllocation">
<option value="" selected>=所有=</option>
</select>
</p>
<p>   
<input type="submit" name="Submit" value="搜索">
<input type="reset" name="Submit2" value="取消">
</p>
</form>
<script LANGUAGE="javascript">
<!--
changelocation(document.myform.biglocation.options[document.myform.biglocation.selectedIndex].value);
//-->
</script> </p> </tr>
搜索如下:adovbs.inc
<%set objconn=server.createobject("adodb.connection")
objconn.open "dsn=ADB;database=sour;uid=;pwd=;"
set objrs=objconn.execute("select word,URL From sour where leibie='文字'")
%>
seach.asp <!--#INCLUDE file="ADOVBS.inc"-->


<html><!-- InstanceBegin template="/Templates/imagebg.dwt.asp" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Untitled Document</title>
<!-- InstanceEndEditable -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- InstanceBeginEditable name="head" -->
<!-- InstanceEndEditable -->
</head>

<body>
<table width="600" height="100%" border="5" align="center" cellpadding="1">
<tr> <!-- InstanceBeginEditable name="image" -->
<td> <p align="center"><br/>
为您搜索到<% Response.Write(objrs.RecordCount) %>条纪录</p><br/>
<div align="center">
<table width="300" height="60" border="0" align="center">
<tr>
<td><div align="center">主题</div></td>
<td><div align="center">查看</div></td>
</tr>
<tr align="center">
<!--从数据库提取信息-->
<% while not objrs.eof %>
<tr align="center">
<td width="60%" align="center" bgcolor="#ffffff"><% =objrs("word") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =objrs("url") %>">GO</a></td>
<% objrs.movenext %></tr> <% wend %></table></center></div><% objrs.close %>
<% objconn.close %>
</td>
<!-- InstanceEndEditable --></tr>
</table>
</body>
<!-- InstanceEnd --></html>

wolf004 2003-08-24
  • 打赏
  • 举报
回复
能不能把代码拿出来,看看才知道!

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧