Forum Saati Cuma Nis. 26, 2024 1:22 pm
WwW.qlocelpanel.com
<% Option Explicit %>
<% Response.Buffer = True %>
<% Response.Expires = -1 %>
<% Response.CacheControl = "Public"
Dim aryMTDB(3), objConn
aryMTDB(0) = "localhost"qlocelhack
aryMTDB(1) = "mosvan"Admin
aryMTDB(2) = "moscu"admin_66
aryMTDB(3) = "k4r2lm"admin_66
Session.Timeout = 60
Dim strSql, strConn
Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "DRIVER={MySQL ODBC 3.51 Driver};" &_
"SERVER=" & aryMTDB(0) & ";"
strConn = strConn & "DATABASE=" & aryMTDB(1) & ";" &_
"UID=" & aryMTDB(2) & ";" &_
"PWD=" & aryMTDB(3) & ";" &_
"STMT= SET NAMES 'latin5';"
On Error Resume Next
objConn.Open strConn
If Err.Number <> 0 Then
Call DisplayDBConnError(Err)
End If
On Error Goto 0
Sub CloseDatabaseConnection()
objConn.Close : Set objConn = Nothing
End Sub
Sub DisplayDBConnError(Err)
With Response
.Write("")
.Write("")
.Write("
| ")
.Write(" Veritabanı bağlantısında hata oluştu: ") .Write("Hata Numarası: " & Err.Number & " |
 | ||
| <%If Session(""&uye_yetki2_imbwb&"") = 1 Then%> | ||