الموقع العربي الاول للعبة Silkroad Online - بطئ عند شراء او استخدام scroll

- - بطئ عند شراء او استخدام scroll (https://silkroad4arab.com/vb/showthread.php?t=620433)

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

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

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

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

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

get total silk

كود بلغة HTML:

<!-- #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

كود بلغة HTML:

<%

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



%>

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

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

كود PHP:

<% 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 %>

كود PHP:

'''''''''' 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

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

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

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

اقتباس:

المشاركة الأصلية كتبت بواسطة Neoon (المشاركة 5332770)

تمام تسلم

اقتباس:

المشاركة الأصلية كتبت بواسطة Hamza FiGo (المشاركة 5332781)

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

هي فعلا تقل من الفلتر

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