Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

42 lines
2.1 KiB

  1. <SCRIPT LANGUAGE=VBScript RUNAT=Server>
  2. 'You can add special event handlers in this file that will get run automatically when
  3. 'special Active Server Pages events occur. To create these handlers, just create a
  4. 'subroutine with a name from the list below that corresponds to the event you want to
  5. 'use. For example, to create an event handler for Session_OnStart, you would put the
  6. 'following code into this file (without the comments):
  7. 'Sub Session_OnStart
  8. '**Put your code here **
  9. 'End Sub
  10. 'EventName Description
  11. 'Session_OnStart Runs the first time a user runs any page in your application
  12. 'Session_OnEnd Runs when a user's session times out or quits your application
  13. 'Application_OnStart Runs once when the first page of your application is run for the first time by any user
  14. 'Application_OnEnd Runs once when the web server shuts down
  15. Application("Customer_ConnectionString") = "Driver={SQL Server};Server=tkwucdsqla02;Database=KaCustomer;UID=PublicUse;PWD=GoWin;"
  16. '------------------------------ XXX000XXX000 Change Code Before Production------------------------------
  17. Application("OCA2_ConnectionString") = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=OCA2;Data Source=TIMRAGAIN\TIMR"
  18. Application("OCA2_ConnectionStringA") = "Driver={SQL Server};Server=TIMRAGAIN\TIMR;Database=OCA2;UID=PublicUse;PWD=GoWin;"
  19. '-----------------------------------------------------------------------------------------
  20. Application("KnownIssue_ConnectionString") = "Driver={SQL Server};Server=tkwucdsqla01;Database=KaKnownIssue;UID=PublicUse;PWD=GoWin;"
  21. Sub Session_OnStart
  22. Set Session("FSO") = CreateObject("Scripting.FileSystemObject")
  23. Session("n") = 0
  24. Session.Timeout = 1
  25. 'Session.CodePage = "932"
  26. End Sub
  27. Sub Session_OnEnd
  28. dim x
  29. For x = 0 to Session("n")-1
  30. Session("FSO").DeleteFile Session("sTempFile" & x), True
  31. Next
  32. End Sub
  33. </SCRIPT>
  34. <object runat=server scope=application id="oFactory" progid="Passport.Factory"></object>
  35. <object runat=server scope=application id="oCracker" progid="CRACKER.crackerMain"></object>