RUN_PC連載_10_.doc

Size: px

Start display at page:

Download "RUN_PC連載_10_.doc"

层褚
6 years ago
Views:

1 PowerBuilder 8 (10) Jaguar CTS ASP Jaguar CTS PowerDynamo Jaguar CTS Microsoft ASP (Active Server Pages) ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar CTS ASP Jaguar Server ASP Jaguar CTS Jaguar Server Jaguar 1 18

CTS ASP IIS PowerDynamo Jaguar CTS ASP ActiveX Proxy ActiveX Proxy Jaguar CTS CORBA IIOP (Internet Inter-ORB Protocol) ASP DCOM Sybase ASP Jaguar CTS Microsoft ActiveX client ActiveX Proxy Jaguar

2 CTS ASP IIS PowerDynamo Jaguar CTS ASP ActiveX Proxy ActiveX Proxy Jaguar CTS CORBA IIOP (Internet Inter-ORB Protocol) ASP DCOM Sybase ASP Jaguar CTS Microsoft ActiveX client ActiveX Proxy Jaguar Server Jaguar CTS Jaguar CTS ActiveX Proxy 1. ActiveX Proxy Automation Server (Jagclient.exe) 2. Jaguar Manager REG TLB ActiveX Proxy ActiveX Proxy Stub ORB IIOP Jaguar Server Jaguar CTS ActiveX Proxy ActiveX Proxy ActiveX Proxy 2 18

3 ActiveX Proxy ActiveX Proxy IIS ASP IIS Jaguar Server IIS ASP ActiveX Proxy Jaguar CTS ActiveX Proxy EAServer Jaguar CTS Client Runtime ActiveX JagClient.exe ActiveX Proxy (Full install) EAServer Jaguar CTS Jaguar client JagClient.exe C:\Program Files\Sybase\Jaguar CTS 3.5\client\JagClient.exe IIS ActiveX Runtime ASP Jaguar ASP Jaguar Jaguar ASP ASP ASP ASP IIS Microsoft Windows 2000 Professional IIS 5.0 IIS 3 18

4 IIS IIS 1. IIS 2. Internet web asptest web asptest asptest 3. asptest C:/Inetpub/asptest/ ASP HTML (C:/Inetpub IIS ) /asptest/ ASP Jaguar 4 18

5 ASP Jaguar 1. ActiveX Proxy 2. Jaguar 3. REG TLB 4. Jaguar ASP ASP + Jaguar CTS ASP + Jaguar CTS Jaguar Jaguar Server ASP 8% asp.pbl library pbl workspace 1. EAServer Component Target Application Name Interface Option PowerBuilder Object Name EAServer Component Name Choose EAServer Profile Specify Package Name Component Type Instance Pooling Option Component Timeout Transaction Support Option asp Implement New Interface n_asp n_asp localhost Jaguar Server Package ( Jaguar Server) Package Standard Component Supported Requires Transaction 5 18

6 Auto Demarcation/Deactivation Interface Options Other Options Project Object Dynamic Library Options Include unreferenced objects in Consolidated PBD n_asp 2. n_asp function calculate double amount months double 3. calculate function 1. double ld_payment 2. ld_payment=amount*(1+(months/12*0.08))/months 3. return ld_payment 4. project n_asp Jaguar Server asp package Jaguar REG TLB Jaguar REG TLB ASP IIOP Jaguar Jaguar Jaguar.reg.tlb ASP Jaguar REG TLB Jaguar Manager Jaguar Manager Microsoft Midl.exe REG TLB REG TLB MSDN Midl.exe Microsoft Visual Studio REG TLB 1. Jaguar Manager Jaguar Server Installed Package ASP Package ( n_asp Package) Generate 6 18

7 TLB/REG Jaguar Manager REG/TLB 2. Output Directory REG TLB Jaguar Server client dll REG TLB Proxy Server Location ActiveX Proxy ActiveX Proxy Output Directory Jaguar CTS \client\dll REG/TLB 7 18

8 3. IIS Jaguar Server Register Jaguar Manager IIS Jaguar Server REG TLB IIS ActiveX Proxy.reg Jaguar IIS ASP Jaguar ASP Jaguar Jaguar REG TLB ASP Jaguar ASP 1. calculate.htm 1. <html> 2. <head> 3. <title>calculate Page</title> 4. </head> 5. <body bgcolor="#ccffff"> 6. <p align="left"><br> 7. </p> 8. <p align="center"><font size="+7"><b> </b></font><br> 9. <br> 10. </p> 11. <hr align="left"> 12. <p align="center"><font size="+2"> </font></p> 13. <p align="center"> </p> 14. <form name="form1" method="post" action="cal.asp"> 15. <p> </p> 16. <div align="center"></div> 17. <table width="35%" border="0" align="center"> 18. <tr> 19. <td width="25%" height="38"> 8 18

9 20. <div align="center"> :</div> 21. </td> 22. <td width="75%" height="38"> 23. <div align="center"> 24. <input type="text" name="amount" size="30"> 25. </div> 26. </td> 27. </tr> 28. <tr> 29. <td width="25%" height="41"> 30. <div align="center"> :</div> 31. </td> 32. <td width="75%" height="41"> 33. <div align="center"> 34. <input type="text" name="months" size="30"> 35. </div> 36. </td> 37. </tr> 38. </table> 39. <p align="center"> 40. <input type="submit" name="submit" value=" "> 41. </p> 42. </form> 43. </body> 44. </html> form ASP Jaguar ASP calculate.htm asptest

2. cal.asp ASP ASP calaulate.htm form (amount) (months) n_asp Jaguar n_asp cal.asp n_asp 1. <% 2. Dim amt,mon,result 3. Dim pay 4. Dim jagobj 5. amt=trim(request.form("amount")) calculate.htm form 6.

10 2. cal.asp ASP ASP calaulate.htm form (amount) (months) n_asp Jaguar n_asp cal.asp n_asp 1. <% 2. Dim amt,mon,result 3. Dim pay 4. Dim jagobj 5. amt=trim(request.form("amount")) calculate.htm form 6. mon=trim(request.form("months")) calculate.htm form 7. Set jagobj=createobject("asp.n_asp") Jaguar Instance Proxy 8. jagobj.host=" :9000" Jaguar Server port number 9. jagobj.username="jagadmin" 10. jagobj.password="" 11. jagobj.initialize() proxy Initilize() server 10 18

11 component 12. pay=jagobj.calculate(amt,mon) jaguar calculate() 13. result="<html>"&_ 14. "<head>"&_ 15. " <title> ASP 3.0 with EAServer! </title>"&_ 16. "</head>"&_ 17. "<center><h2> </h2></center>"&_ 18. "<center> : " &pay&" </cemter><br>"&_ 19. "</body>"&_ 20. "</html>" 21. Response.Write result Jaguar 22. %> cal.asp CreateObject( ) ASP Jaguar Server ActiveX Proxy ASP ActiveX Proxy Jaguar Server ASP Jaguar Server Jaguar 8 jagobj.host=" :9000" ASP Jaguar Server IP Port Number Jaguar Server 11 Initialize ( ) ActiveX Proxy Jaguar n_asp Jaguar Jaguar ASP Jaguar 12 pay=jagobj.calculate(amt,mon) calculate( ) pay Response.Write 3. ASP Jaguar Server IIS cal.asp IIS asptest 11 18

12 URL ( ) Jaguar ASP Web DataWindow Web DataWindow PowerDynamo ASP Web DataWindow Web DataWindow ASP ASP + Web DataWindow Web DataWindow Web DataWindow DataWindow PowerBuilder 8 DataWindow Web DataWindow DataWindow d_emp PowerBuilder Action Web DataWindow 12 18

13 DataWindow d_emp ASP DataWindow ASP IIS asptest ASP webdw.asp ASP Web DataWindow d_emp DataWindow ASP webdw.asp 1. LANGUAGE=VBScript %> 2. <HTML> 3. <HEAD><TITLE>ASP with Web DataWindow</TITLE></HEAD> 4. <BODY> 5. ASP Web DataWindow 6. <% 7. dim retval 8. dim browser 9. dim selflink 10. dim selflinkargs 11. dim dwmine_action 12. dim dwmine_context 13. dim dwmine 14. dim srgtrans 13 18

14 15. HTMLGenerator WebDataWindow component 16. set dwmine = Server.CreateObject("DataWindow.HTMLGenerator80") 17. dwmine.host="localhost:9000" 18. dwmine.username="jagadmin" 19. dwmine.password="" 20. dwmine.initialize() 21. retval = dwmine.setdwobject ("c:\my Document\Asp\asp.pbl", "d_emp") 22. if (retval = 1) Then 23. retval = dwmine.sethtmlobjectname("dwmine") 24. browser = Request.ServerVariables("HTTP_USER_AGENT") 25. dwmine.setbrowser(browser) 26. selflink = Request.ServerVariables("SCRIPT_NAME") 27. retval = dwmine.setselflink (selflink, selflinkargs) 28. dwmine.setpagesize(10) 29. connstr="connectstring='dsn=mssql;uid=sa;pwd=mpower123', & 30. ConnectOption='SQL_DRIVER_CONNECT, SQL_DRIVER_NOPROMPT'" 31. srgtrans=dwmine.settrans ("ODBC", connstr, "", "", "", "", "") 32. retval = dwmine.retrieve() 33. if (retval < 0 ) Then 34. Response.Write("<H1>Retrieve Error: " + retval + dwmine.getlasterrorstring()+ "</H1>") 35. End if 36. dwmine_action = Request.Form("dwMine_action") 37. dwmine_context = Request.Form("dwMine_context") 38. if (dwmine_action + "" <> "undefined") Then 39. retval = dwmine.setaction (dwmine_action, dwmine_context) 40. if (retval < 0 ) Then 41. Response.Write ("<H1>Error on SetAction(): " + retval + dwmine.getlasterrorstring() + "</H1>") 42. End if 43. Response.Write (dwmine.generate() ) 44. End if 45. Else 46. Response.Write ("<H1>Error on SetDWObject() = " + retval +dwmine.getlasterrorstring() + "</H1>") 47. End if 48. %> 49. </BODY> 14 18

50. </HTML> CreateObject() Jaguar Web DataWindow HTMLGenerator80 DataWindow DataWindow Web DataWindow 21 HTMLGenerator80 SetDWObject() d_emp retval d_emp ASP

15 50. </HTML> CreateObject() Jaguar Web DataWindow HTMLGenerator80 DataWindow DataWindow Web DataWindow 21 HTMLGenerator80 SetDWObject() d_emp retval d_emp ASP Web DataWindow 28 Web DataWindow 32 Web DataWindow Web DataWindow ASP IIS Jaguar Server Web DataWindow Web DataWindow 15 18

16 Web DataWindow Web DataWindow Jaguar Server ASP Jaguar Server DataWindow package HTMLGenerator80 HTMLGenerator80 com.sybase.jaguar.component.code.set ( ) big5 ( ) Web DataWindow All Properties 16 18

17 big5 Jaguar code.set=big5 ASP Jaguar CTS Sybase Jaguar CTS 17 18

18 ASP Jaguar CTS ASP Jaguar CTS N-Tiers 18 18

RunPC2_.doc

RunPC2_.doc PowerBuilder 8 (5) PowerBuilder Client/Server Jaguar Server Jaguar Server Connection Cache Thin Client Internet Connection Pooling EAServer Connection Cache Connection Cache Connection Cache Connection