اتتأكد من ال DB Connect ان اسامى ال Database اللى مكتوبة فى ال DB Connect هى نفس الاسامى بتاعة ال SQL يعنى لو SRO_VT_SHARD فى ال SQL يبقى تخليها فى ال DB Connect تبقى SRO_VT_SHARD برضو لو حاجة تانية فى ال SQL تغيرها للاسم الجديد فى DB Connect ونفس الكلام فى ال ODBC
وكمان تتاكد من ال txt اللى جنب ال DB Connect اللى هى GetTotalSilk و كل حاجة فيها كلمة Silk
التعديل الأخير تم بواسطة Dev.Ri3o ; 10-01-2017 الساعة 05:10 PM
' 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
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
' 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
' 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
تتأكد وتكتب ال IP فى باقى ال Files وتعمل Restart لل Server Files وتجرب واتأكد من ملفات ال ini برضو ان اسماء ال Database هى نفس الاسماء الموجودة فى ال SQL مش اسماء تانية وال ODBC برضو
المشاركة الأصلية كتبت بواسطة Dev.Ri3o
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
استخدم ده بدل اللى عندك
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
واتأكد انك شغال ب AgentNoXtrap
وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
التعديل الأخير تم بواسطة Dev.Myth ; 10-01-2017 الساعة 10:49 PM
المشاركة الأصلية كتبت بواسطة Dev.Myth
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وده كمان ملف wwwroot شغال بيه 100% ومتنساش تتأكد من اعدادات ال iis والبورت بتاعه اللى بيتكتب فى Server.Cfg
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
وديه كمان ملفات سيرفر كامله ومفهاش اى مشاكل عدل على البيانات فيها واستخدمها بدل اللى عندك ومتنساش تنقل فيها ال Data :)
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
الف شكرا يا باشا
هجرب ومش عاوز حضرتك تزعل اذا كان حصل سؤء تفاهم دايق حضرتك :)