求助服务器端asp文件接收客户端VB6编写的登陆数据代码

Question

我想写一个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的代码。。非常感谢。。！！

Answer 1

Private Sub Command1_Click()
    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