首页
社区
课程
招聘
[旧帖] [求助]VB网络验证问题 0.00雪花
发表于: 2008-2-24 18:52 3787

[旧帖] [求助]VB网络验证问题 0.00雪花

2008-2-24 18:52
3787
<%   
Dim   name,word   
name   =   Request("name")   
word   =   Request("word")   
DBPath   =   "data/data.mdb"   
Set   conn   =   Server.CreateObject("ADODB.Connection")   
Set   rs   =   Server.CreateObject("ADODB.RecordSet")   
    On   Error   Resusme   Next   
    conn.open   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   Server.MapPath(DBPath)   
If   Err.Number   <>   0   Then   
      Err.Clear   
      Set   conn   =   Nothing   
      Response.Write("数据库连接错误")   
End   If   
      rs.open   "select   *   form   data   where   name='"   &   name   &   "'   and   word='"   &   word   &   "'",conn,1,1   
      If   Not   rs.EOF   Then   
            Response.Write("True")   
      Else   
            Response.Write("False")   
      End   If   
        rs.Close   
        set   rs   =   Nothing   
%>   

VB代码如下:   

Private   Sub   Command1_Click()   
str1   =   Inet1.OpenURL("http://218.62.29.201/data.asp?name="   &   Text1.Text   &   "&word="   &   Text2.Text)   
      Select   Case   str1   
  Case   "True"   
          MsgBox   "登陆成功"   
          Form2.Show   
          Unload   Me   
          Case   "False"   
            MsgBox   "登陆失败:用户名/密码错误,或已到期!"   
          Case   Else   
          MsgBox   "网络错误"   
End   Select   
End   Sub   
请问一下data/data.mdb如何建立啊
用什么软件建立啊  
请问一下我该如何写这个access的data.mdb呢   请高手帮我一下   谢谢了   

能帮我写一下吗   我看看例子

[招生]科锐逆向工程师培训(2024年11月15日实地,远程教学同时开班, 第51期)

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回
//