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

**Marcus1337** · 30-10-2017, 02:28 AM

لما باجي اشتري حاجه من الnpc بيقعد فتره عقبال ما اعرف اشتريها

وبرضو لما باجي اضرب السكرول بياخد وقت برضو وادي سكرينه للي بيتكتب في ال gs

**Scrox** · 30-10-2017, 02:56 AM

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

**Marcus1337** · 30-10-2017, 03:02 AM

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** · 30-10-2017, 03:31 PM

**Neoon** · 30-10-2017, 03:41 PM

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** · 30-10-2017, 05:53 PM

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

**Marcus1337** · 30-10-2017, 06:56 PM

المشاركة الأصلية كتبت بواسطة 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 ياباشا + الفلتر اللي انت بتستخدمه لو مستخدم فلتر اساسا

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

**افندينا ™Hamboka™** · 31-10-2017, 02:02 AM

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	الردود	آخر مشاركة
New Devil Scroll Switch Gander With Return Scroll	محمد منتصر	قسم الشروحات و البرامج المستخدمة في عمل السيرفرات الخاصة	0	24-12-2022 06:59 PM
مشكلة في استخدام Scroll	xEslam	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	9	20-01-2020 10:16 AM
New Scroll Hero Wanted Scroll By [GM] Samo	GM.Samo	قسم الشروحات و البرامج المستخدمة في عمل السيرفرات الخاصة	18	03-12-2017 03:22 AM
مشكلة في شراء speed drug & special return scroll	kokoyanni	قسم الاستفسارات ومشاكل وحلول ال Sbot	2	01-12-2015 07:40 AM
Retrun Scroll =Special Return Scroll :D	_ShicO_	قـسـم الـبـرامـج الـمـسـاعـدة	12	09-03-2008 07:19 PM

يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)