<%@ Language=VBScript%>
<%
mes=""
IsSuccess = false
sServer = Trim(Request.Form("txtServer"))
sPort = Trim(Request.Form("txtPort"))
sUser = Trim(Request.Form("txtUser"))
sPassword = Trim(Request.Form("txtPassword"))
if Request("__action")="TestDB" then
TestDB()
end if
Sub TestDB()
Err.Clear()
on error resume next
Set objConn = Server.CreateObject("ADODB.Connection")
if len(Err.Description)<>0 then
mes = " " & Err.Description & " MySQL connection cannot be established."
else
objConn.ConnectionString = _
"DRIVER={MySQL ODBC 3.51 Driver};PORT=" & sPort & _
";SERVER=" & sServer & _
";UID=" & sUser & _
";PWD=" & sPassword
objConn.Open
if len(Err.Description)<>0 then
mes = " " & Err.Description & " MySQL connection cannot be established."
else
mes = " MySQL connection was successfully established."
IsSuccess = true
end if
end if
Set objConn = Nothing
End sub
Sub Alert(html)
if IsSuccess then
Response.Write "