<%
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

楼上能把我建下数据库吗？谢谢了！

斑竹表按你格式建了，还是不行啊，对了，你是江苏的吗？

你帮我建下，可以吗？ 老师显示不了改页！我本机测试的！

	无法显示网页
您要访问的网页有问题，无法显示。
请尝试以下操作: 打开 192.168.1.254 主页，然后查找指向您感兴趣信息的链接。 单击刷新按钮，或以后再试。 单击搜索，寻找 Internet 上的信息。 也可查看相关站点列表。 HTTP 500 - 内部服务器错误 Internet Explorer