[Neoon]

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