我想实现这个功能:本地POST数据至网站PHP页面,PHP页面收到数据后保存至数据库。
现在的问题是:我能顺利POST出数据,但PHP页面不能保存我发出的数据。
下面是我用到的vb代码和PHP页面代码,请各位帮忙分析下哪里有问题。 Dim XMLObj As Object
Dim UrlStr As String
UrlStr = "http://127.0.0.1/post.php"
Set XMLObj = CreateObject("MSXML2.XMLHTTP")
XMLObj.Open "post", UrlStr, False
XMLObj.SetRequestHeader "If-Modified-Since", "0"
XMLObj.send "username=111111&password=111111&[email protected]"
While XMLObj.readyState <> 4
DoEvents
Wend
If XMLObj.readyState = 4 Then
WebString = UTF8ToGB2312(XMLObj.responseBody)
End If<?php
$username = $_POST['username'];
$password = $_POST['password'];
$email = $_POST['email'];
//数据库连接
$conn = @mysql_connect("localhost","root","");
if (!$conn){
die("连接数据库失败:" . mysql_error());
}
mysql_select_db("test", $conn);
//写入数据
$postdate = date("Ymd");
$sql = "INSERT INTO user(username,password,email,regdate)VALUES('$username','$password','$email','$postdate')";
if(mysql_query($sql,$conn)){
exit('ok');
} else {
echo 'error',mysql_error(),'<br />';
}
?>
现在的问题是:我能顺利POST出数据,但PHP页面不能保存我发出的数据。
下面是我用到的vb代码和PHP页面代码,请各位帮忙分析下哪里有问题。 Dim XMLObj As Object
Dim UrlStr As String
UrlStr = "http://127.0.0.1/post.php"
Set XMLObj = CreateObject("MSXML2.XMLHTTP")
XMLObj.Open "post", UrlStr, False
XMLObj.SetRequestHeader "If-Modified-Since", "0"
XMLObj.send "username=111111&password=111111&[email protected]"
While XMLObj.readyState <> 4
DoEvents
Wend
If XMLObj.readyState = 4 Then
WebString = UTF8ToGB2312(XMLObj.responseBody)
End If<?php
$username = $_POST['username'];
$password = $_POST['password'];
$email = $_POST['email'];
//数据库连接
$conn = @mysql_connect("localhost","root","");
if (!$conn){
die("连接数据库失败:" . mysql_error());
}
mysql_select_db("test", $conn);
//写入数据
$postdate = date("Ymd");
$sql = "INSERT INTO user(username,password,email,regdate)VALUES('$username','$password','$email','$postdate')";
if(mysql_query($sql,$conn)){
exit('ok');
} else {
echo 'error',mysql_error(),'<br />';
}
?>
$password = $_POST['password'];
这两个变量能收的到值么?
XMLObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
到底是要用VB还是PHP解决?