| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 833 人关注过本帖
标题:[求助]查询无法显示????????
只看楼主 加入收藏
knter
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-24
收藏
 问题点数:0 回复次数:17 
[求助]查询无法显示????????

想做一个像车票查询一样的系统,研究了半天,变量这一关就过不了(入门学习级菜鸟),哪位好心人教教我该怎么做?


access里表为:


ID 站点 里程 A B C ...
1 北京 1000 12 13 14 ...


HTML页里源码如下:

<form name="form1" id="form1" method="post" action="xxx.asp">
<p>
<select name="cx">
<option value="选择" selected="selected">选择</option>
<option value="A">A</option>
</select>
</p>
<p>
<select name="zd">
<option value="选择" selected="selected">选择</option>
<option value="北京">北京</option>
</select>
</p>
<p>
<input type="submit" name="chaxun" value="查询" />
</p>
</form>


xxx.asp源码为:

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0

Dim xing,zhan,conn,Strcon,StrSQL,rs

xing=request.form("cx")
zhan=request.form("zd")

Set conn=server.createobject("adodb.connection")
Strcon="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xxx.mdb")

conn.open Strcon
StrSQL="select 'xing' from 收费查询 where 站点='zhan'"
Set rs= conn.Execute(StrSQL)
%>

<html><head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

<%
do while not rs.eof
Response.Write rs("xing")

rs.movenext
loop

conn.close
Set rs=Nothing:Set conn=Nothing
%></body>
</html>

提交后,数据显示不出来。请问大虾是哪儿的错误?另外,如果想把它们放在一个文件里,那提交action=""应该填什么?

搜索更多相关主题的帖子: 查询 
2006-03-24 10:30
water123456
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:3208
专家分:5
注 册:2006-2-21
收藏
得分:0 
你可以自写字段,然后,再从一个循环不就行了吗?

让我们风风火火的过一生,别平平淡淡过一年。
2006-03-24 13:34
fz_slt
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-3-16
收藏
得分:0 
将:StrSQL="select 'xing' from 收费查询 where 站点='zhan'"

改为:StrSQL="select * from 收费查询 where 站点='zhan'"

将:Response.Write rs("xing")

改为:Response.Write rs("收费查询表中的具体字段名")


我很傻,但我很努力,可总是不如意......
2006-03-24 13:57
knter
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-24
收藏
得分:0 

定义变量xing的意思就是只选择一种,
对应HTML里的cx,
对应access里的A B C...好多呢!
现在只想选择其中的一个或A或B或....

改为:Response.Write rs("收费查询表中的具体字段名")

后,就不能按照访客的要求指定哪种了,那就成了死的了。


一只用心学习asp的入门级菜鸟
2006-03-24 14:08
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
StrSQL="select 站点 from 收费查询 where 站点=''&zhan&"'"

中国人的财富网:http://www..cn/
2006-03-24 14:14
knter
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-24
收藏
得分:0 
版主,这不行呀!这是显示站点,显示不了A或B或C的列表值呀!

一只用心学习asp的入门级菜鸟
2006-03-24 14:28
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
怎么样的提示错误

中国人的财富网:http://www..cn/
2006-03-24 14:38
knter
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-24
收藏
得分:0 
白屏一张,什么都没有,我觉得问题还是出在这变量上,如果显示全部,可以。

一只用心学习asp的入门级菜鸟
2006-03-24 14:40
caiyakang
Rank: 2
等 级:新手上路
威 望:5
帖 子:2111
专家分:0
注 册:2005-3-24
收藏
得分:0 
xxx.asp源码为:

<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0

Dim xing,zhan,conn,Strcon,StrSQL,rs

xing=request.form("cx")
zhan=request.form("zd")

Set conn=server.createobject("adodb.connection")
Strcon="driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xxx.mdb")

conn.open Strcon
StrSQL="select * from 收费查询 where 站点='"&zhan&"'"
Set rs= conn.Execute(StrSQL)
%>

<html><head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>

<%
do while not rs.eof
Response.Write rs("A")&rs("B")&rs("C"):
rs.movenext
loop

conn.close
Set rs=Nothing:Set conn=Nothing
%></body>
</html>

[此贴子已经被作者于2006-3-24 14:43:22编辑过]


中国人的财富网:http://www..cn/
2006-03-24 14:40
knter
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2006-3-24
收藏
得分:0 
StrSQL="select * from 收费查询 where 站点=''&zhan&"'"(这是不是有问题?)

这个当然可以,可是就全部显示了。

现在的目的是,从表单中获取访客选的A还是B,通过查询,只显示一个数值。

一只用心学习asp的入门级菜鸟
2006-03-24 14:43
快速回复:[求助]查询无法显示????????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023796 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved