| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 997 人关注过本帖
标题:[求助]VB网络验证问题
只看楼主 加入收藏
遥远的梦
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2006-3-13
收藏
 问题点数:0 回复次数:6 
[求助]VB网络验证问题
<%
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
%>



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

有问题,吧里有人做过的,但是数据库那边怎么建呢?
有谁建好发一份给我!

就是这张帖子

http://post.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=1719620116&z=184800185&pn=0&rn=50&lm=0&word=vb#1719620116
搜索更多相关主题的帖子: 网络 quot Microsoft 数据库 Set 
2007-09-01 16:52
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
是,遵命
2007-09-01 17:56
遥远的梦
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2006-3-13
收藏
得分:0 
楼上能把我建下数据库吗?谢谢了!

刻苦学习编程中。。。。。。。。。。。 先掌握基础语言C语言。。。。。。。。。。。。
2007-09-01 18:05
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
"select * form data where name='" & name & "' and word='" & word & "'",

不习惯SQL语句建表
用Access或者类似工具,表:data,字段包括但不限于name 文本or备注,word 文本or备注
2007-09-01 18:55
遥远的梦
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2006-3-13
收藏
得分:0 
斑竹表按你格式建了,还是不行啊,对了,你是江苏的吗?

你帮我建下,可以吗? 老师显示不了改页!我本机测试的!


无法显示网页

您要访问的网页有问题,无法显示。

请尝试以下操作:


HTTP 500 - 内部服务器错误
Internet Explorer



刻苦学习编程中。。。。。。。。。。。 先掌握基础语言C语言。。。。。。。。。。。。
2007-09-01 19:57
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
以下内容被隐藏,在这里快速单击鼠标多次以显示内容
您已在上方快速单击鼠标多次,下面是隐藏的内容:
作为一个技巧,你光说HTTP500出错是没用的,能知道具体出错情况是最好。操作如下:
1. 在IIS的站点属性里开启显示出错详细信息
2. Internet属性|高级|取消“显示友好HTTP Error Msg”
2007-09-01 21:13
coachard
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:1251
专家分:0
注 册:2007-8-12
收藏
得分:0 
晕,回答得这么隐蔽!

偶学编程,也许本身就是一个错。。。
2007-09-01 21:15
快速回复:[求助]VB网络验证问题
数据加载中...
 
   



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

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