بطئ عند شراء او استخدام scroll

[Marcus1337]

لما باجي اشتري حاجه من الnpc بيقعد فتره عقبال ما اعرف اشتريها
http://i.epvpimg.com/bDZUeab.png
وبرضو لما باجي اضرب السكرول بياخد وقت برضو وادي سكرينه للي بيتكتب في ال gs
http://i.epvpimg.com/RDuebab.png

[Scrox]

هات صورة من db_connect.asp و GetTotalSilk.asp.

[Marcus1337]

get total silk
<!-- #include file = "DBConnect.asp" -->
<!-- #include file = "Function.asp" -->
<!-- #include file = "Class_MD5.asp" -->
<%

On Error Resume Next

' Error
If Err.Number <> 0 Then
Response.Write "-1"
Response.End
End If

'''''''''' Check ACL only Call from Billing Server
Dim IP
Dim BillingServer
BillingServer = "136.243.227.247"
IP = Request.ServerVariables("REMOTE_ADDR")
'If(IP <> BillingServer) Then
' Response.Write "ACCESSDENY"
' Response.End
'End If
''''''''''
Dim sdSQL
Dim sdRS
Dim ReturnValue

sdSQL = "SET NOCOUNT ON EXEC CGI.CGI_WebGetTotalSilk "
'Response.Write sdSQL
'Response.End

Set sdRS = DBConnA.Execute(sdSQL)
ReturnValue = sdRS(0)

sdRS.Close
Set sdRS = Nothing
DBConnA.Close
Set DBConnA = Nothing

' Error
If Err.Number <> 0 Then
Response.Write "-1"
Response.End
End If
Response.Write ReturnValue
Response.End
%>



db connect
<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=SQLOLEDB;Data Source=WIN-I4GRUA34A2Q\SQLEXPRESS;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=SaViServiceBe50;"
DBConnA.Open strConnectA

%>

[Marcus1337]

up

[Neoon]

C:\inetpub\wwwroot\ folder and edit the db_connect.asp and the GetTotalSilk.asp. to your sql server

<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=GSINC-PC\SQLEXPRESS;Data Source=5.20.34.16x;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=1234;"
DBConnA.Open strConnectA

%>

'''''''''' Check ACL only Call from Billing Server
Dim IP
Dim BillingServer
BillingServer = "5.20.34.16x"
IP = Request.ServerVariables("REMOTE_ADDR")
'If(IP <> BillingServer) Then
' Response.Write "ACCESSDENY"
' Response.End
'End If

[Hamza FiGo]

دا تقل من ال vps ياباشا + الفلتر اللي انت بتستخدمه لو مستخدم فلتر اساسا

[Marcus1337]

C:\inetpub\wwwroot\ folder and edit the db_connect.asp and the GetTotalSilk.asp. to your sql server

<%
Dim DBConnA, strConnectA
Set DBConnA = Server.CreateObject("ADODB.Connection")
strConnectA = "Provider=GSINC-PC\SQLEXPRESS;Data Source=5.20.34.16x;Initial Catalog=SRO_VT_ACCOUNT;user ID=sa;password=1234;"
DBConnA.Open strConnectA

%>

'''''''''' Check ACL only Call from Billing Server
Dim IP
Dim BillingServer
BillingServer = "5.20.34.16x"
IP = Request.ServerVariables("REMOTE_ADDR")
'If(IP <> BillingServer) Then
' Response.Write "ACCESSDENY"
' Response.End
'End If

تمام تسلم

دا تقل من ال vps ياباشا + الفلتر اللي انت بتستخدمه لو مستخدم فلتر اساسا
هي فعلا تقل من الفلتر

[افندينا ™Hamboka™]

##