Question

请帮我用php改写这段代码，急用，请不要只改格式，我需要的是php语句代码，万分感谢！

Sub JS_Conn
Dim Fy_In,Fy_Inf,Fy_Get,Fy_Xh,Flag
Dim JS_ConnStr
Set conn = Server.CreateObject("ADODB.Connection")
IF G_IS_SQL_User_DB=1 Then
JS_ConnStr="driver={SQL Server};server="&G_SQL_IP&";database="&G_SQL_DATA&";uid="&G_SQL_USER&";pwd="&G_SQL_PASS
Else
JS_ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(G_CONN_STR))
End IF
Conn.Open JS_ConnStr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "网站维护中..."
Response.End
End If

End Sub

Answer 1

<?php
//global $G_IS_SQL_User_DB,$G_SQL_IP,$G_SQL_DATA,$G_SQL_USER,$G_SQL_PASS;

function JS_Conn()
{
global $G_IS_SQL_User_DB, $G_SQL_IP, $G_SQL_DATA, $G_SQL_USER, $G_SQL_PASS, $G_CONN_STR;

try {
$conn = new com("ADODB.Connection");
if ($G_IS_SQL_User_DB == 1) {
$JS_ConnStr = "driver={SQL Server};server=$G_SQL_IP;database=$G_SQL_DATA;uid=$G_SQL_USER;pwd=$G_SQL_PASS";
} else {
$JS_ConnStr = "provider=microsoft.jet.oledb.4.0;data source=" . realpath($G_CONN_STR);
}

$conn->Open($JS_ConnStr);
}
catch (com_exception $e) {
echo "网站维护中...";
die($e->getMessage());
}
}
?>

追问

你好，我想知道asp中
$conn = new com("ADODB.Connection");
if ($G_IS_SQL_User_DB == 1) {
$JS_ConnStr = "driver={SQL Server};server=$G_SQL_IP;database=$G_SQL_DATA;uid=$G_SQL_USER;pwd=$G_SQL_PASS";
} else {
$JS_ConnStr = "provider=microsoft.jet.oledb.4.0;data source=" . realpath($G_CONN_STR);
的功能在php这么写语句可以运行的了吗？

追答

你直接运行下就知道了，从理论上说，COM接口是统一的。

Answer 2

<?php
function JS_Conn($G_SQL_IP,$G_SQL_USER,$G_SQL_PASS){
$conn=@mysql_connect($G_SQL_IP,$G_SQL_USER,$G_SQL_PASS);
If(!$conn){
exit("网站维护中...");
}
}
?>

追问

你好，你写的我大体看懂了，但能不能帮忙注释一下，我想知道
IF G_IS_SQL_User_DB=1 Then
JS_ConnStr="driver={SQL Server};server="&G_SQL_IP&";database="&G_SQL_DATA&";uid="&G_SQL_USER&";pwd="&G_SQL_PASS
Else
JS_ConnStr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(Add_Root_Dir(G_CONN_STR))的进行判断
和Conn.Open JS_ConnStr语句是整合到哪里去了？

追答

哦！你是连接acc数据库或者mssql数据库啊？
那我误会了，以为是连接mysql数据库呢！
不过我建议还是php+mysql，他们的搭配比较合理！
而且mysql开源！