远程服务器返回错误：（500）内部服务器错误（VB PHP）

Question

通过VB.net将PHP连接到MySQL时出现此连接问题

远程服务器返回错误：（500）Internal Server Error。 die语句以“访问被拒绝”的形式返回

发现此错误

    Stack trace:
#0 {main}
  thrown in /home/example/public_html/load.php on line 6
[27-Oct-2017 22:36:42 UTC] PHP Fatal error:  Uncaught Error: Call to undefined function mysql_pconnect() in /home/example/public_html/load.php:6

Visual Basic：

Function Checkban(AuthenticationPage As String, Username As String, Serial 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(Serial))
    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

PHP：

执行：

If CheckUser("http://example/load.php?=", TextBox9.Text, TextBox10.Text) Then
    MsgBox("Correct", MsgBoxStyle.Information)
Else
    MsgBox("Incorrect", MsgBoxStyle.Critical)
End If

如果有人可以帮助或指导我解决此问题，那就太好了！！ 谢谢！