مشكله dc لسا موجوده :(

[thedeathlist]

انا المشكله دى لسا عندى اول ما الرساله تظهر باخد dc
دى الرساله
http://www.3rbz.com/uploads/21785b114e741.png
ودى تكملتها
http://www.3rbz.com/uploads/f2a5af6d0ea02.png

[Dev.Ri3o]

اتتأكد من ال 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]

هجرب وارود على حضرتك
واستفسار معلشى
اعدل هنا ايه غير ip
<!-- #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
%>


وهنا
<!-- #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
%>
<!-- #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]

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

[thedeathlist]

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

[Dev.Ri3o]

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

[thedeathlist]

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

[Dev.Ri3o]

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

[thedeathlist]

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

[thedeathlist]

مفيش حل ؟

[Dev.Ri3o]

استخدم ده بدل اللى عندك
http://www.mediafire.com/file/jc92fflmcsngay5/DCHOTFIX.rar
واتأكد انك شغال ب AgentNoXtrap

[thedeathlist]

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

[thedeathlist]

up

[Dev.Myth]

استخدم ده بدل اللى عندك
http://www.mediafire.com/file/jc92fflmcsngay5/DCHOTFIX.rar
واتأكد انك شغال ب AgentNoXtrap
وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
https://mega.nz/#!vx1zzDSZ!_FTjV1zLBrod92f1ObxR7vsI_qrkbDS4du61X20 MJqE
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
https://mega.nz/#!Lo1jEYYY!73vp1zGKtfHATeDqf6vQlgOVdUWPHH8BON3xyrf cBMw

[thedeathlist]

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

[thedeathlist]

وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
https://mega.nz/#!vx1zzDSZ!_FTjV1zLBrod92f1ObxR7vsI_qrkbDS4du61X20 MJqE
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
https://mega.nz/#!Lo1jEYYY!73vp1zGKtfHATeDqf6vQlgOVdUWPHH8BON3xyrf cBMw
الف شكرا يا باشا
هجرب ومش عاوز حضرتك تزعل اذا كان حصل سؤء تفاهم دايق حضرتك :)

[MasterioPayBack]

جربت داتابيز غيرها طيب ؟

[Dev.Myth]

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

لآلآ مفيش حاجه وانا عاوزك تفهم اننا بنساعد هنا على قد مانقدر وعلى قد ماوقتنا بيسمح واول ماخبرتك تزيد هتكون زيك زينا
جرب وشوف وأهم حاجه تتأكد من كل التعديلات

[Dev.Ri3o]

##