الـجـروب الـخـاص بـالـمـنـتـدي Silkroad4arab Facebook | Official Group

**thedeathlist** · 10-01-2017, 04:27 PM

انا المشكله دى لسا عندى اول ما الرساله تظهر باخد dc
دى الرساله

ودى تكملتها

**Dev.Ri3o** · 10-01-2017, 05:07 PM

اتتأكد من ال DB Connect ان اسامى ال Database اللى مكتوبة فى ال DB Connect هى نفس الاسامى بتاعة ال SQL يعنى لو SRO_VT_SHARD فى ال SQL يبقى تخليها فى ال DB Connect تبقى SRO_VT_SHARD برضو لو حاجة تانية فى ال SQL تغيرها للاسم الجديد فى DB Connect ونفس الكلام فى ال ODBC
وكمان تتاكد من ال txt اللى جنب ال DB Connect اللى هى GetTotalSilk و كل حاجة فيها كلمة Silk

**thedeathlist** · 10-01-2017, 05:14 PM

هجرب وارود على حضرتك
واستفسار معلشى
اعدل هنا ايه غير ip

كود PHP:


			
<!-- #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 = "10.0.1.42"

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

%>

وهنا

كود PHP:


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







'''''''''' Req

Dim UserJID

Dim Silk_Offset_Own

Dim Silk_Offset_Gift

Dim Mileage_Offset

Dim ShardID

Dim CharID

Dim ItemID

Dim IP

Dim Valid_Key



UserJID = Trim(Request("JID"))

Silk_Offset_Own = Trim(Request("so"))

Silk_Offset_Gift = Trim(Request("sg"))

Mileage_Offset = Trim(Request("sp"))

ShardID = Trim(Request("sid"))

CharID = Trim(Request("cid"))

ItemID = Trim(Request("iid"))

IP = Trim(Request("ip"))

Valid_Key = Trim(Request("vk"))



UserJID = FilterReqXSS(UserJID)

Silk_Offset_Own = FilterReqXSS(Silk_Offset_Own)

Silk_Offset_Gift = FilterReqXSS(Silk_Offset_Gift)

Mileage_Offset = FilterReqXSS(Mileage_Offset)

ShardID = FilterReqXSS(ShardID)

CharID = FilterReqXSS(CharID)

ItemID = FilterReqXSS(ItemID)

IP = FilterReqXSS(IP)

Valid_Key = FilterReqXSS(Valid_Key)





' Error - Parameter

Dim ParaResult



ParaResult = 1



If Valid_Key = "" OR IsNull(Valid_Key) OR IsEmpty(Valid_Key) Then

    ParaResult = -10

End If

If IP = "" OR IsNull(IP) OR IsEmpty(IP) Then

    ParaResult = -9

End If

If ItemID = "" OR IsNull(ItemID) OR IsEmpty(ItemID) Then

    ParaResult = -8

End If

If CharID = "" OR IsNull(CharID) OR IsEmpty(CharID) Then

    ParaResult = -7

End If

If ShardID = "" OR IsNull(ShardID) OR IsEmpty(ShardID) Then

    ParaResult = -6

End If

If Mileage_Offset = "" OR IsNull(Mileage_Offset) OR IsEmpty(Mileage_Offset) Then

    ParaResult = -5

End If

If Silk_Offset_Gift = "" OR IsNull(Silk_Offset_Gift) OR IsEmpty(Silk_Offset_Gift) Then

    ParaResult = -4

End If

If Silk_Offset_Own = "" OR IsNull(Silk_Offset_Own) OR IsEmpty(Silk_Offset_Own) Then

    ParaResult = -3

End If

If UserJID = "" OR IsNull(UserJID) OR IsEmpty(UserJID) Then

    ParaResult = -2

End If



If ParaResult <> 1 Then

    DBConnA.Close

    Set DBConnA = Nothing



    Response.Write ParaResult

    Response.End

End If







''''''''''

Dim KeyString

Dim objMD5

Dim Confirm_Valid_Key



KeyString = "SROG8Z_CDE1210598DK_AKD3HW1K04DL2-"



Set objMD5 = New MD5

objMD5.Text = UserJID & "." & Silk_Offset_Own & "." & Silk_Offset_Gift & "." & Mileage_Offset & "." & ShardID & "." & CharID & "." & ItemID & "." & IP & "." & KeyString

Confirm_Valid_Key = objMD5.HEXMD5



' Error

If Err.Number <> 0 Then

    DBConnA.Close

    Set DBConnA = Nothing



    Response.Write "-11"

    Response.End

End If



If Trim(Valid_Key) <> Trim(Confirm_Valid_Key) Then

    DBConnA.Close

    Set DBConnA = Nothing



    Response.Write "-12"

    Response.End

End If







''''''''''

Dim sdSQL

Dim sdRS

Dim ReturnValue



sdSQL = "DEClARE @ReturnValue int "

sdSQL = sdSQL & "DECLARE @Silk_Offset_Own int "

sdSQL = sdSQL & "DEClARE @Silk_Offset_Gift int "

sdSQL = sdSQL & "DECLARE @Mileage_Offset int "

sdSQL = sdSQL & "DECLARE @ShardID int "

sdSQL = sdSQL & "DECLARE @CharID int "

sdSQL = sdSQL & "DECLARE @ItemID int "

sdSQL = sdSQL & "DECLARE @IP int "

sdSQL = sdSQL & "SET @Silk_Offset_Own = "& Silk_Offset_Own &" "

sdSQL = sdSQL & "SET @Silk_Offset_Gift = "& Silk_Offset_Gift &" "

sdSQL = sdSQL & "SET @Mileage_Offset = "& Mileage_Offset &" "

sdSQL = sdSQL & "SET @ShardID = "& ShardID &" "

sdSQL = sdSQL & "SET @CharID = "& CharID &" "

sdSQL = sdSQL & "SET @ItemID = "& ItemID &" "

sdSQL = sdSQL & "SET @IP = "& IP &" "

sdSQL = sdSQL & "EXEC @ReturnValue = _ConsumeSilkByGameServer2 "& UserJID &", @Silk_Offset_Own OUTPUT, @Silk_Offset_Gift OUTPUT, @Mileage_Offset OUTPUT, @ShardID, @CharID, @ItemID, @IP "

sdSQL = sdSQL & "SELECT @ReturnValue, @Silk_Offset_Own, @Silk_Offset_Gift, @Mileage_Offset "

Set sdRS = DBConnA.Execute(sdSQL)



ReturnValue = sdRS(0)

Silk_Offset_Own = sdRS(1)

Silk_Offset_Gift = sdRS(2)

Mileage_Offset = sdRS(3)



sdRS.Close

Set sdRS = Nothing

DBConnA.Close

Set DBConnA = Nothing



' Error

If Err.Number <> 0 Then

    Response.Write "-13"

    Response.End

End If







' return

If Cint(ReturnValue) = 1 Then

    Response.Write "1:"& Silk_Offset_Own &","& Silk_Offset_Gift &","& Mileage_Offset

Else

    Response.Write "-14:"& ReturnValue

End If

Response.End

%>

كود PHP:


			
<!-- #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 = "10.0.1.42"

IP = Request.ServerVariables("REMOTE_ADDR")

If(IP <> BillingServer) Then

    Response.Write "ACCESSDENY"

    Response.End

End If



'''''''''''''''' Check MD5 secretstring 

Dim RefundNo

Dim Username

Dim Password

Dim Package

Dim NumSilk

Dim ECash

Dim Secret



RefundNo = Trim(Request("RefundNo"))

RefundNo = FilterReqXSS(RefundNo)



Username = Trim(Request("Username"))

Username = FilterReqXSS(Username)



Password = Trim(Request("Password"))

Password = FilterReqXSS(Password)



Package = Trim(Request("Package"))

Package = FilterReqXSS(Package)



NumSilk = Trim(Request("NumSilk"))

NumSilk = FilterReqXSS(NumSilk)



ECash = Trim(Request("ECash"))

ECash = FilterReqXSS(ECash)



SecretStr = Trim(Request("SecretStr"))

SecretStr = FilterReqXSS(SecretStr)



' Error - Parameter

Dim ParaResult

ParaResult = "OK"



If RefundNo = "" OR IsNull(RefundNo) OR IsEmpty(RefundNo) Then

    ParaResult = "PARA01"

End If

If Username = "" OR IsNull(Username) OR IsEmpty(Username) Then

    ParaResult = "PARA02"

End If

If Password = "" OR IsNull(Password) OR IsEmpty(Password) Then

    ParaResult = "PARA03"

End If

If Package = "" OR IsNull(Package) OR IsEmpty(Package) Then

    ParaResult = "PARA04"

End If

If NumSilk = "" OR IsNull(NumSilk) OR IsEmpty(NumSilk) Then

    ParaResult = "PARA05"

End If

If ECash = "" OR IsNull(ECash) OR IsEmpty(ECash) Then

    ParaResult = "PARA06"

End If

If SecretStr = "" OR IsNull(SecretStr) OR IsEmpty(SecretStr) Then

    ParaResult = "PARA07"

End If



If ParaResult <> "OK" Then

    DBConnA.Close

    Set DBConnA = Nothing

    Response.Write ParaResult

    Response.End

End If



''''''''''CHECK MD5 Valid key String

''''''''''

Dim KeyString

Dim objMD5

Dim Confirm_Valid_Key



KeyString = "VDC-Net2E-CGI"



Set objMD5 = New MD5

objMD5.Text = RefundNo & Username & Password & Package & NumSilk & ECash & IP & KeyString

Confirm_Valid_Key = objMD5.HEXMD5

' Error

If Err.Number <> 0 Then

    DBConnA.Close

    Set DBConnA = Nothing

    Response.Write "ERROR"

    Response.End

End If



If Trim(SecretStr) <> Trim(Confirm_Valid_Key) Then

    DBConnA.Close

    Set DBConnA = Nothing

    Response.Write "INVALID"

    Response.End

End If



''''''''''Execute Refund stored procedure

Dim sdSQL

Dim sdRS

Dim ReturnValue

sdSQL = "SET NOCOUNT ON  EXEC CGI.CGI_WebRefundSilk '" & RefundNo & "'," & Username & ",'" & Password & "'," & Package & "," & NumSilk & "," & ECash & " "

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

    Response.End

End If

Response.Write ReturnValue

Response.End

%>

**Dev.Ri3o** · 10-01-2017, 05:27 PM

اللى انت رافعهم فوق دول تعدل لل IP بتاعك عشان ميعملوش مشاكل فى ال Silk

**thedeathlist** · 10-01-2017, 05:34 PM

يعنى افهمن من حضرتك ان بقيت الملفات الى فيها كلمه silk مع db conect
هيتعدل فى ip بس
تمام كدا ؟

**Dev.Ri3o** · 10-01-2017, 05:49 PM

كل الملفات هتعدل عليها فى ال IP وبالنسبة لل DB Connect هتتأكد من البيانات ومن ان اسماء ال Database هى هى نفس الاسماء اللى فى SQL

**thedeathlist** · 10-01-2017, 06:14 PM

للاسف المشكله لسا موجوده بعد التاكد من البيانات

**Dev.Ri3o** · 10-01-2017, 06:32 PM

تتأكد وتكتب ال IP فى باقى ال Files وتعمل Restart لل Server Files وتجرب واتأكد من ملفات ال ini برضو ان اسماء ال Database هى نفس الاسماء الموجودة فى ال SQL مش اسماء تانية وال ODBC برضو

**thedeathlist** · 10-01-2017, 06:40 PM

يا باشا كل دا تمام وعملت زى محضرتك بتؤل وراجعت على بيناتى وعملت ريستارت للجهاز كلو مش للسيرفر بس ونفس المشكله

**thedeathlist** · 10-01-2017, 07:18 PM

مفيش حل ؟

**Dev.Ri3o** · 10-01-2017, 07:18 PM

استخدم ده بدل اللى عندك
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
واتأكد انك شغال ب AgentNoXtrap

**thedeathlist** · 10-01-2017, 07:39 PM

هيا دى نفس الملفات الى عندى
حضرتك المشكله مش ممكن تكون فى db نفسها
فى ملف المسؤل عن السيلك ؟؟

**thedeathlist** · 10-01-2017, 10:34 PM

**Dev.Myth** · 10-01-2017, 10:46 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة Dev.Ri3o عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

استخدم ده بدل اللى عندك
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
واتأكد انك شغال ب AgentNoXtrap

وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

**thedeathlist** · 10-01-2017, 10:54 PM

اقتباس:

المشاركة الأصلية كتبت بواسطة Dev.Myth عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

الف شكرا يا باشا
هجرب ومش عاوز حضرتك تزعل اذا كان حصل سؤء تفاهم دايق حضرتك :)

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	الردود	آخر مشاركة
الوحوش مش موجوده	medomessi2	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	4	29-11-2012 11:17 AM
مشكله كانت موجود فى فيرجن 56a و لسه موجوده فى فيرجن 57	zerospider1	قـسـم الـ Sbot	7	17-09-2012 02:13 PM

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

	البقاء مسجل دائمآ