我正在寻找一些东西来将我的asp.net代码转换为php的mysql。将ASP.net代码转换为PHP和mysql
我用了一个网站,声称能够转换,但它似乎不是很好,当涉及到性能。
我不知道做转换有多么容易或者很难,因为我没有任何知识,但是我通过w3schools学到了一点PHP,并得到了一个从php文档引用来做一些例子我从.net转换为php。
事情是,有一些代码,我无法想到从那里开始。
如果有人可以帮我这个吗?正确的答复可能对任何其他人提及从asp.net到php和mysql的转换有用。没有其他职位,我发现我的问题堆栈溢出。
<WebMethod()> _
Public Function saveBeerPot(ByVal Potdata As XmlElement) As String
Dim PotXml As New XmlDocument
PotXml.LoadXml(Server.HtmlDecode(Potdata.OuterXml))
Dim m_nodelist As XmlNodeList
m_nodelist = PotXml.SelectNodes("/DocumentElement/Table")
Dim status As String = "no data"
Dim _connectionString As String
Dim strSQL As String
Try
_connectionString = ConfigurationManager.ConnectionStrings("AESSYSTEM_DB").ConnectionString
Dim sqldb As New SqlDatabase(_connectionString)
Dim XmlNode = PotXml.FirstChild
Dim xmlNodeT = XmlNode.FirstChild
m_nodelist = xmlNodeT.ChildNodes
If m_nodelist.Count > 0 Then
Dim _pot_id = m_nodelist.Item(0).InnerText
Dim _pot_name = m_nodelist.Item(1).InnerText
Dim _owner_user_id = m_nodelist.Item(2).InnerText
Dim _language_id = m_nodelist.Item(3).InnerText
Dim _currency_id = m_nodelist.Item(4).InnerText
Dim _skin_id = m_nodelist.Item(5).InnerText
Dim _minimum_check = m_nodelist.Item(6).InnerText
Dim _minimum_amount = m_nodelist.Item(7).InnerText.Replace(",", ".")
Dim _pot_fund = m_nodelist.Item(8).InnerText.Replace(",", ".")
Dim _password = m_nodelist.Item(9).InnerText
status += _password
If _minimum_amount.Length = 0 Then
_minimum_amount = "0"
End If
If _pot_id.Length = 0 Then
Dim _pot_guid = generateGuid()
strSQL = "INSERT INTO POT (pot_name, owner_user_id, language_id, currency_id, skin_id, minimum_check, minimum_amount, pot_fund,pot_guid,password,checkout,lastcheckout,autoupdate,created_date,nextautoupdatedate)"
strSQL += " values('" + _pot_name + "', '" +
_owner_user_id + "', '" + _language_id + "', '" + _currency_id + "', '" + _skin_id + "', '" + _minimum_check + "', '" + _minimum_amount + "', '" + _pot_fund + "', '" + _pot_guid + "', '" + _password + "','0','0','8','" + System.DateTime.Today.ToString + "','" + System.DateTime.Today.ToString + "')"
strSQL += "SELECT IDENT_CURRENT('POT');"
_pot_id = sqldb.ExecuteScalar(strSQL, CommandType.Text).ToString()
strSQL = "INSERT INTO PotUsers (pot_id,user_id,current_amount)"
strSQL += "values('" + _pot_id + "','" +
_owner_user_id + "', '0')"
Else
strSQL = "UPDATE POT SET pot_name = '" + _pot_name
+ "', language_id = '" + _language_id + "', currency_id = '" +
_currency_id + "', skin_id = '" + _skin_id + "', minimum_check = '" +
_minimum_check + "', minimum_amount = '" + _minimum_amount + "'"
strSQL += " WHERE pot_id = '" + _pot_id + "'"
status += strSQL
End If
sqldb.ExecuteNonQuery(strSQL, CommandType.Text)
status = "inserted"
End If
Return status
Catch ex As Exception
status += ex.Message
Return status
End Try
End Function
为什么要转换为首先不理解的语言? – Quamis
唯一可以在两种编程语言之间进行可靠转换的东西(或者是对于这个问题的口头或书面的)是人类。 – 2011-08-17 08:10:38
没办法。没有理由转换。你最好学习.NET,至少你可以节省很多时间来转换现有的代码。 – J0HN