我需要小的帮助,因为即时通讯卡和IM不是PHP和vB.net连接好...... 所以这里的问题是,我管理可以连接到数据库,并PHP脚本显示我是否即时连接或不,如果用户/ PW是正确的抓住一切正常,但现在我不知道如何抓住,在新的形式显示,该用户的数据,并显示在标签中,如在数据库它有注册日期,最后一次登录和电子邮件,我想他们我的第二个形式..所以,如果有人可以帮助我那些东西分类和管理来完成目标,我会很心存感激!抓住MySQL的信息在PHP与vb.net
Usercheck.php
<?php
if($_POST)
{
if(isset($_POST["username"]) && isset($_POST["password"]))
{
$connect = mysql_pconnect("localhost","username","password");
if($connect)
{
$select = mysql_select_db("mydatabase",$connect);
if($select)
{
$user = mysql_escape_string($_POST["username"]);
$pwd = mysql_escape_string($_POST["password"]);
$GetRows = mysql_query("SELECT * FROM MyTableHere WHERE username='$user' AND password='$pwd'");
$RowCount=mysql_num_rows($GetRows);
if($RowCount>0)
{
die("Correct !");
}
else
{
die("Incorrect !");
}
}
else
{
die("Unable to select database." . mysql_error());
}
}
else
{
die("Unable connect to database." . mysql_error());
}
}
else
{
die("Access Denied!");
}
}
else
{
die("Access Denied!");
}
?>
片段从Form1.vb的
Function AuthUser(ByVal AuthenticationPage As String, ByVal Username As String, ByVal Password As String) As Boolean
Dim wc As New WebClient()
wc.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
Dim Data As String = String.Format("username={0}&password={1}", HttpUtility.UrlEncode(Username), HttpUtility.UrlEncode(Password))
Dim ResponseBytes() As Byte = wc.UploadData(AuthenticationPage, "POST", Encoding.ASCII.GetBytes(Data))
Dim Response As String = Encoding.ASCII.GetString(ResponseBytes)
If Response.Contains("Correct") Then
Return True
Else
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If AuthUser("http://127.0.0.1/Usercheck.php", TextBox1.Text, TextBox2.Text) Then
Me.Hide()
Form2.Show()
Else
MsgBox("You have provided invalid username or password. Unable to login.")
End If
End Sub