标题:求助 能否同时连接2个不同数据库
只看楼主
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
结帖率:91.67%
已结贴  问题点数:40 回复次数:15 
求助 能否同时连接2个不同数据库
一个简单的登录验证页面,不知道哪里出错了。麻烦各位帮忙看一下
con.asp
<%
  Dim SqlDataName,SqlUserPassword,SqlUserName,SqlLocalName,ConnStr
  SqlDataName="zpwang"
  SqlUserPassword="sa"
  SqlUserName="sa"
  SqlLocalName="127.0.0.1"
  ConnStr="Provider=Sqloledb;User ID="&SqlUserName&";PassWord="&SqlUserPassword&";Initial Catalog = " & SqlDataName & "; Data Source = " & SqlLocalName & ";"
  Set Conn=server.CreateObject("ADODB.Connection")
  
  Conn.open ConnStr
  
  if Err Then
    err.clear
    set Conn=nothing
    response.Write("数据库连接出错,请检查连接字串")
    response.End
    end if
   
    Dim webflag,rs
    Set rs=server.CreateObject("ADODB.Recordset")
      rs.open "select * from aaaa",Conn,3,2
      if rs.Eof or rs.Bof then
      webflag=rs("webflag")
      end if
      rs.close
%>

conn2.asp
<%
  Dim SqlDataName2,SqlUserPassword2,SqlUserName2,SqlLocalName2,ConnStr2
  SqlDataName2="wywang"
  SqlUserPassword2="wy"
  SqlUserName2="wy"
  SqlLocalName2="127.0.0.1"
  ConnStr2="Provider=Sqloledb;User ID="&SqlUserName2&";PassWord="&SqlUserPassword2&";Initial Catalog = " & SqlDataName2 & "; Data Source = " & SqlLocalName2 & ";"
  Set Conn2=server.CreateObject("ADODB.Connection")
  
  Conn2.open ConnStr2
  
  if Err Then
    err.clear
    set Conn2=nothing
    response.Write("数据库连接出错,请检查连接字串")
    response.End
    end if
   
    Dim webflag2,rs2
    Set rs2=server.CreateObject("ADODB.Recordset")
      rs2.open "select * from bbbb",Conn2,3,2
      if rs2.Eof or rs2.Bof then
      webflag2=rs2("webflag")
      end if
      rs2.close
%>
login.asp 这里代码没写全
<form action="login_check.asp" name="form1" method="post">
用户名:<input type="text" name="user" />
密码:<input type="password" name="pw"/>
<input type="submit" name="submit" value="登陆" />
</form>



login_check.asp
<!--#include file="Conn.asp"-->
<!--#include file="Conn2.asp"-->
<%
  user=replace(request.Form("user"),"'","''")
  pw=replace(request.Form("pw"),"'","''")
  Dim wfg
 if wfg=webflag then
  Set Rs=server.CreateObject("ADODB.Recordset")
  Dim sql
    sql="select * from test where username='"&user&"' and password='"&pw&"'"
    Rs.open sql,Conn,3,2
    if Rs.Eof Then
    response.Write("你好!!!")
    response.Write "你输入的密码错误"
    response.End
    Else
    response.Redirect"a.asp"
    End if
   
   
else
    if wfg=webflag2 then
       Dim sql2
       Set Rs2=server.CreateObject("ADODB.Recordset")
       sql2="select * from test where username='"&user&"' and password='"&pw&"'"
       Rs2.open sql2,Conn2,3,2
       if Rs2.Eof Then
    response.Write("我好")
    response.Write "你输入的密码错误"
    response.End
    Else
    response.Redirect"aaa.asp"
    End if
End if
end if   
%>
这里2个test表都是一样的
test
id   username  password
1      aaaa     bbbb
test
id    username  password
1      aabb    1111
aaaa表
id webflag
1     0
bbbb表
id  webflag
1     1
为什么连接不到第二个表的数据
我用username=aaaa  password=bbbb时能显示跳转的那个页面(登陆成功)  我用 username=aabb password=1111时  提示  “你好!!!
    你输入的密码错误"


[ 本帖最后由 ab382717036 于 2011-3-25 11:38 编辑 ]
搜索更多相关主题的帖子: 数据库 
2011-03-24 15:12
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
又没人回答我的问题
2011-03-25 08:08
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
得分:20 
检查一下自己提问题的方式

代码错了,错哪了,什么样的错误提示?这些基本的东西不说,放一大堆代码,谁这么有空一大早看你的代码?

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-25 08:10
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
没有页面报错的,就是   
输入第一个表正确的用户名和密码 “提示你登陆成功”,输入第二个表正确的用户名和密码,输出的是第一个判断语句的信息  “你好 你输入的密码错误”
2011-03-25 08:19
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
求救求救
2011-03-25 09:12
hams
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:18
帖 子:912
专家分:3670
注 册:2008-7-30
得分:0 
那个不是出错,是你的密码不对,自己检查一下输入的数据与数据库之间对比一下

俺不高手,俺也是来学习的。
俺的意见不一定就对,当你不认同时请点忽视按钮。
当走到十字路口不知该如何走时,可在论坛问下路,但你若希望别人能一路把你送到目的地,显然是不现实的,因为别人也有自己要走的路。
2011-03-25 10:04
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
用户名密码都没错的,我输入的是第二个数据库表里的用户名和密码,但是他验证在第一个数据库(if这里)验证,根本就没跳到第二部(else那里)数据库验证
2011-03-25 10:31
loisangle
Rank: 2
等 级:论坛游民
帖 子:1
专家分:20
注 册:2011-3-24
得分:20 
运行不了,怎么看
2011-03-25 11:18
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
我运行过了能行的
2011-03-25 11:28
ab382717036
Rank: 2
等 级:论坛游民
帖 子:73
专家分:20
注 册:2011-3-19
得分:0 
顶一下
2011-03-25 13:51



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-334637-1-1.html




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

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