使用 RedBack JavaBeans 将 WebSphere Voice Server SDK 连接到 U2

BUILDGRAMFILE
10 PRINT "THIS PROGRAM WILL CREATE THE name.gram FILE FOR VOICE ACCESS"
PRINT "INPUT Y/N TO CONTINUE :":;INPUT X
IF X = "N" THEN STOP
IF X # "Y" THEN GOTO 10
* The path for WebSphere rbexamples directory may be different on your pc so change it accordingly
WDIR="C:\WEBSPHERE\APPSERVER\INSTALLEDAPPS\LOCALHOST\RBEXAMPLES.EAR\RBEXAMPLES.WAR"
* Remove the old name.gram file from the and create a empty file
CMD = "DOS /c rm ":WDIR"\name.gram"
EXECUTE CMD
CMD = "DOS /c touch ":WDIR:"\name.gram"
EXECUTE CMD
**********
* Grammar string needed
*********
CR=CHAR(13)
GRAM="#JSGF V1.0 ;":CR
GRAM=GRAM:"grammar name ;":CR
GRAM=GRAM:'public <rule1>= ':CR
* Now open name.gram file
OPENSEQ WDIR:"/name.gram" TO NAME
ELSE PRINT "PROBLEM OPENING name.gram";STOP
* Now open the EMPLOYEES table and select all records
OPEN "","EMPLOYEES" TO EMP
ELSE PRINT "PROBLEM OPENING EMPLOYEES FILE";STOP
SELECT EMP
FIRST=1
* Now loop and read each employee record and build array containing LAST.NAME
100 READNEXT ID ELSE GOTO 200
READV LAST.NAME FROM EMP,ID,2 ELSE GOTO 100
IF FIRST THEN
FIRST=0
GRAM=GRAM:LAST.NAME:CR
END ELSE
GRAM=GRAM:"|":LAST.NAME:CR
END
GOTO 100
200 *
GRAM=GRAM:";"
* Now write the array to the name.gram file
WRITESEQ GRAM ON NAME THEN PRINT "OK" 
ELSE PRINT "PROBLEM WRITING name.gram"
CLOSESEQ NAME
PRINT "DONE WRITE"
STOP
Listing EMPLOYEES Table by  LAST.NAME
EMPLOYEES. Last Name..
1012       Berry
1015       Byrne
1014       Caddick
1007       Chazan
1009       Delas
1019       Drury
1013       Fox
1023       Gassis
1024       Green
1020       Jenkins
1005       Joarder
1017       Kaynor
1006       Kennedy
1011       Kesic
1008       Kontorovich
1010       La
1022       MacKenzie
1004       Prinz
1016       Rabinovitch
1002       Reyburn
1018       Smith
1003       Teo
1001       Wedewer
23 records listed

<vxml version="1.0">
<var name="name">
<var name="decide">
 <form id="rbwelcome" >
  <-- welcome Message -->
   <block>
      HELLO AND WELCOME TO IBM'S  U2 PEOPLE SEARCH APPLICATION. 
     <block>
   <field name="LASTNAME">
    <grammar src = "name.gram" />
<!-- Prompt user for input -->
      <prompt>
         Please say the last name of the person you want to search for.
	 <prompt>
      <noinput>        
         <prompt>
          I did not hear you. Please say the last name of the person you want to search for.
	 <prompt>
      </noinput>
      <help>
        Please say the last name of the person you want to search for.
      </help>
      <!-- If input received reconfirm with user -->
      <filled>
      <assign name="name" expr="LASTNAME"/>
      <prompt>
         I heard you say <value expr="name"/>
    
	 </prompt>            
       <goto next="#confirm"/>
         </filled>
   </field>
  </form>
  <-- Reconfirm form which sends the request back to server if the user confirms the last name -->
  <form id="confirm" >  
    <field name="test" type="boolean">
    <prompt>
         Would you like to continue.
      <prompt>
      <noinput>    
         <reprompt/>
      </noinput>
      <help>
        Please say yes to confirm or No to search again.
      <help>
      <filled>      
        <if cond="test == true">
	 <prompt>
         Please wait as I process your request.
	 </prompt>
         <submit next= "http://localhost/rbexamples/u2peoplesearch.jsp" namelist="name"/>
<else/>
         <goto next="#rbwelcome"/>
      <if>        
      </filled>
   </field>  
  </form>
</vxml>	 

<vxml version="1.0">
<%@ page import = "com.ibm.redback.redbeans.*" %>
<jsp:useBean id="connection" class="com.ibm.redback.redbeans.Connection" scope="session"/>
<jsp:setProperty name="connection" property="connectionURL" value="rbexamples"/>
<%@ page isThreadSafe="false" import="java.util.*"
            errorPage="error.jsp" %>
<%
// Get the user last name and instantiate the EmployeeList object.
String name = request.getParameter("name");
com.ibm.redback.redbeans.RedObject obj = null; // handle to this page's redobject
com.ibm.redback.redbeans.RecordSet rs = null;
 obj = new com.ibm.redback.redbeans.RedObject();
    obj.setActiveConnection(connection);
    obj.setRBOClass("EXMOD:EmployeeList");
    obj.open();
    obj.setProperty("select_criteria", "LAST.NAME = \""+ name + "\"");
  // Now do selection
  rs = obj.callMethod("Select");
String maxr = obj.getProperty("MaxRows");
 <form id="results">
  <block>
  // output  number of records found
Records found = <%= obj.getProperty("MaxRows")%>
   
     The person you searched for 
     <% 
if(rs.isEOF()){
out.println("could not be found. Good Bye");    
	 }
	 else{
// script for each employee row
	 rs.moveFirst();
       out.println(rs.getProperty("FIRST.NAME") +"  "+rs.getProperty("LAST.NAME")+".");
// if more than one employee  match  output  each - 
	 for (int i = 2; i  <= rs.getPageSize() ; i++){
	 rs.moveNext();
	 out.println(rs.getProperty("FIRST.NAME") +"  "+rs.getProperty("LAST.NAME") + ".");
		 }	
	 }
	 %>
         </block>
		 </form>
 </vxml>
</code </vxml>