关于数据库检验的问题,不知是不是这样写,请指教???/

[folder]

1.set newconn=server.createobject("adodb.connection")
2.dbpath=server.mappath("mydata.mdb")
3.constr="driver={microsoft access driver(*.mdb)};dbq="&dbpath
4.newconn.open constr
5.sqlstr="select * from stock where aid='"&id&"' and apass="&pass&""
6.set rs=server.createobject("adodb.recordset")
7.rs.open sqlstr
8.if rs.eof then
9.response.redirect shangyi.htm
10.response.write "<script> alert('不存在的用户,你不本站会员');</script>"
11.response.end
12.else
13.response.redirect huang.htm
14.end if
第一个问题:到这之后,我想再在这个数据库中再提取其它条件的数据库,
那么需不需要重写1--7句呢, 或者是不需要重写1--7句,直接接着15.16句改变一下条件就可以呢???
15.sqlstr2="select * from stock where aid='"&id&"' and apass<>"&pass&""
16.rs.open sqlstr2
17.if not rs.eof then
18 response.redirect shangyi,htm
19.response.write"<script>alert('该账号存在,但密码错误');</script>"
20.response.end
21.end if
第二个题:这段程序是说当用户名和密码都对的时候,就进入会员区,当用户名对,密码不对的时候,提示用户存在,密码不对,(至于还有其它的情况,暂进先不说,就说这两个)我想问我这样的检验合理吗?? 如果不合理,希望把好一点的方法指教给我一下,不盛感激!!

[zhang_luo]

连接数据库你只需要一次就可以了
也就是你的1--7
只是你你最好只用1--4句，不会那么容易搞错
然后rst区别开来，用完一次就关闭一个

[wofeiwofei]

up

[folder]

但是你的代码好像有误... 应该是rs.open sqlstr , newconn , 3 , 1

你说的这句rs.open sqlstr后面的newconn ,3,1是什么意思，能说说吗？？

[folder]

另外，运行时，
它总是说找不到数据源码，还有没指定默认的驱动
但我看了控制面板里面的，明明有啊，
但总是出错是什么原因。

[folder]

頂一下撒幫幫忙

[DeltaCat]

写法基本不合理，先吃饭，回来再说

[ricky460]

不需要重写..只需要改变查询条件就可以了...
就可以了....
但是在重新改写查询条件,重新查询之前,你必须先关闭rs..
用rs.close
set rs = nothing 来关闭此次查询的rs,然后直接用
sqlstr2="select * from stock where aid='"&id&"' and apass<>"&pass&""
rs.open sqlstr2
来打开另一个表就可..
但是你的代码好像有误... 应该是rs.open sqlstr , newconn , 3 , 1
另外打开的rs一定要关闭...