我想写一个VB的客户端,输入帐号密码后将数据发送到空间的asp文件,用asp与数据库连接进行对比客户端输入的帐号密码是否正确,但VB还是初级阶段,不能自己独立写代码,向各位求助有关的方法。如果可以的话希望能帮我写一下这些代码,感激不尽!!!谢谢谢谢谢谢
-----------------------------------------------
,QQ:是邮箱@之前的号码,希望能和我联系。。!
--------------------------------------------
这是我写的asp端的代码(地址在:127.0.0.1\asp\index.asp),也不知道是否正确,能不能通过修改获取vb客户端的数据。。帮忙指正<%@language="vbscript"%>
<%
dim conn,rs,uname,upass
uname=request.querystring("userid")
upass=request.querystring("password")
set conn=server.createobject("adodb.connection")
conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/command.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user_info] where [user_id]='" & uname & "' and [user_pass]='" & upass & "'",conn,1,3
if rs.recordcount=0 then'没有记录
response.write "密码有误"
else
response.write "登陆成功!"
end if
%>
-------------------------------------------------------------------
有关客户端,设计也非常简单,text1是用户名输入框,text2是密码输入框,command1是确定登录按钮
希望您能帮我写一下客户端vb的代码。。非常感谢。。!!
-----------------------------------------------
,QQ:是邮箱@之前的号码,希望能和我联系。。!
--------------------------------------------
这是我写的asp端的代码(地址在:127.0.0.1\asp\index.asp),也不知道是否正确,能不能通过修改获取vb客户端的数据。。帮忙指正<%@language="vbscript"%>
<%
dim conn,rs,uname,upass
uname=request.querystring("userid")
upass=request.querystring("password")
set conn=server.createobject("adodb.connection")
conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/command.mdb")
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user_info] where [user_id]='" & uname & "' and [user_pass]='" & upass & "'",conn,1,3
if rs.recordcount=0 then'没有记录
response.write "密码有误"
else
response.write "登陆成功!"
end if
%>
-------------------------------------------------------------------
有关客户端,设计也非常简单,text1是用户名输入框,text2是密码输入框,command1是确定登录按钮
希望您能帮我写一下客户端vb的代码。。非常感谢。。!!
解决方案 »
- 请问这个程序为什么当点击过保存之后如果再要打开新的文件时候只能打开.CSV文件啊。急在线等答案。谢谢
- 所谓全屏幕显示,是不是就是让客户区占据在全屏幕的范围?如果不是,那么是怎么做到的?
- 用户定义类型未定义!什么错误啊/。
- 简单问题,超级超级简单。给50分。调试成功,马上给分
- 请问高手不用记录集如何用代码实现在datagrid中新增行,并且加入数据???
- 怎样执行一个指定的程序,不用shell,用api怎么实现 ?
- VB反编辑的软件都有什么???
- 请教VB中的发送邮件
- 通用对话框的showprinter方法打印时为什么按“取消”键仍然打印?
- 用VB开发的TCP通讯,除了可以用Winsock控件来接收数据外,还可以用其它方法来接收数据吗?
- 这个模块代码哪里错了
- ado recordset.updateBatch 只更新多表中的一个表
Dim strResult As String
Dim XmlHttp As Object
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "POST", "http://127.0.0.1/asp/index.asp?userid=" & text1.Text & "&password=" & text2.Text, False
XmlHttp.send
strResult = StrConv(XmlHttp.ResponseBody, vbUnicode)
Set XmlHttp = Nothing
MsgBox strResult
End Sub