⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 index.usml

📁 中国移动IVR开发范例
💻 USML
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
								</OutVarNameSet>
							</ReferceNode>
						</Default>
					</Branch_Node>
				</BranchItem>
				<Default/>
			</Branch_Node>
		</Workflow>
		<Workflow Name="95001122.转人工">
			<Compute_Node Name="转人工" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
				<InputVarNameSet>
					<VarName>m_ChannelDN</VarName>
					<VarName>m_Manpower</VarName>
					<VarName>m_SleeIP</VarName>
				</InputVarNameSet>
				<OutVarNameSet>
					<ResultVarName>m_PrevResult</ResultVarName>
				</OutVarNameSet>
				<Content>
Dim obj
Set obj =  CreateObject("USEInterFaceLib.DeviceInterface")
obj.COMUSE_BlindTransferCall m_SleeIP, m_ChannelDN, m_Manpower</Content>
			</Compute_Node>
		</Workflow>
		<Workflow Name="95001122.违章明细_车证">
			<IO_Node Name="播报_提示用户输入并获取用户档案编号" ProcessError="true">
				<InputVarNameSet>
					<VarName>m_PV_InputDocID</VarName>
				</InputVarNameSet>
				<OutVarNameSet>
					<VarName>m_DTMFBuf</VarName>
					<ResultVarName>m_PrevResult</ResultVarName>
				</OutVarNameSet>
				<VoiceEdit PreGetCash="false">
					<PlayFile FileNameVar="m_PV_InputDocID" CanBreak="true" PlayCount="3" WaitTimeOnce="5"/>
					<GetDTMF DTMFVar="m_DTMFBuf" Count="10" EndFlag="" IsClearDTMFBuffer="false" TimeoutSecond="15" ReturnEndChar="false"/>
				</VoiceEdit>
			</IO_Node>
			<Branch_Node Name="捕获错误" VarName="m_PrevResult">
				<BranchItem Operator="Equal" ItemExpression="No_Error">
					<Compute_Node Name="处理编号" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
						<InputVarNameSet>
							<VarName>m_DTMFBuf</VarName>
						</InputVarNameSet>
						<OutVarNameSet>
							<VarName>m_DocID</VarName>
							<VarName>m_Result</VarName>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
						<Content>
'用户输入的编号是否合法
If InStr(1, m_DTMFBuf, "*", vbTextCompare) = 0 And InStr(1, m_DTMFBuf, "#", vbTextCompare) = 0 Then
	m_Result = "RIGHT"
	m_DocID = m_DTMFBuf 
Else           
	m_Result = "ERROR"
End If</Content>
					</Compute_Node>
					<Branch_Node Name="判断编号是否合法" VarName="m_Result">
						<BranchItem Operator="Equal" ItemExpression="RIGHT">
							<ReferceNode Name="RNode8" ToService="false" RefWorkflowName="95001122.确认编号_车证">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</BranchItem>
						<Default>
							<IO_Node Name="播报_提示用户输入不正确" ProcessError="false">
								<InputVarNameSet>
									<VarName>m_PV_ErrReEnter</VarName>
								</InputVarNameSet>
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
								<PlayFile FileNameVar="m_PV_ErrReEnter" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
							</IO_Node>
							<ReferceNode Name="RNode7" ToService="false" RefWorkflowName="95001122.违章明细_车证">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</Default>
					</Branch_Node>
				</BranchItem>
				<Default/>
			</Branch_Node>
		</Workflow>
		<Workflow Name="95001122.确认编号_车证">
			<IO_Node Name="播报_确认输入的档案编号" ProcessError="true">
				<InputVarNameSet>
					<VarName>m_DocID</VarName>
					<VarName>m_PV_AffirmInfo</VarName>
					<VarName>m_PV_InputDocIDIs</VarName>
				</InputVarNameSet>
				<OutVarNameSet>
					<VarName>m_DTMFBuf</VarName>
					<ResultVarName>m_PrevResult</ResultVarName>
				</OutVarNameSet>
				<PlayFile FileNameVar="m_PV_InputDocIDIs" CanBreak="false" PlayCount="1" WaitTimeOnce="5"/>
				<PlayTTS CanBreak="true" PlayCount="1" WaitTimeOnce="5" LanguageTypeVar="m_PronLanguage">
					<VarName>m_DocID</VarName>
				</PlayTTS>
				<VoiceEdit PreGetCash="false">
					<PlayFile FileNameVar="m_PV_AffirmInfo" CanBreak="true" PlayCount="3" WaitTimeOnce="5"/>
					<GetDTMF DTMFVar="m_DTMFBuf" Count="1" EndFlag="" IsClearDTMFBuffer="false" TimeoutSecond="5" ReturnEndChar="false"/>
				</VoiceEdit>
			</IO_Node>
			<Branch_Node Name="捕获错误" VarName="m_PrevResult">
				<BranchItem Operator="Equal" ItemExpression="No_Error">
					<Branch_Node Name="判断用户按键" VarName="m_DTMFBuf">
						<BranchItem Operator="Equal" ItemExpression="1">
							<IO_Node Name="播报_开始查询" ProcessError="false">
								<InputVarNameSet>
									<VarName>m_PV_Waiting</VarName>
									<VarName>m_PV_WaitMassage</VarName>
								</InputVarNameSet>
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
								<PlayFile FileNameVar="m_PV_WaitMassage" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
								<PlayFile FileNameVar="m_PV_Waiting" CanBreak="false" PlayCount="0" WaitTimeOnce="5"/>
							</IO_Node>
							<Compute_Node Name="CNode1" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false"><OutVarNameSet><VarName>m_QueryMode</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
m_QueryMode=3</Content></Compute_Node><ReferceNode Name="RNode5" ToService="false" RefWorkflowName="调接口.开始"><OutVarNameSet><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet></ReferceNode></BranchItem>
						<BranchItem Operator="Equal" ItemExpression="2">
							<ReferceNode Name="RNode16" ToService="false" RefWorkflowName="95001122.违章明细_车证">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</BranchItem>
						<Default>
							<ReferceNode Name="RNode17" ToService="false" RefWorkflowName="95001122.确认编号_车证">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</Default>
					</Branch_Node>
				</BranchItem>
				<Default/>
			</Branch_Node>
		</Workflow>
		<Workflow Name="95001122.查询结果_车证">
			<Branch_Node Name="判断查询结果" VarName="m_ResultExt">
				<BranchItem Operator="Equal" ItemExpression="SUCCESS">
					<Compute_Node Name="处理数据" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
						<InputVarNameSet><VarName>m_RecordString</VarName></InputVarNameSet><OutVarNameSet><VarName>m_RecordContent</VarName><VarName>m_RecordDate</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
Dim vRtn              
Dim vRtnExt
vRtn = Split(m_RecordString, "|")

If UBound(vRtn) &gt;0 Then    
    'vRtnExt = Trim(vrtn(0))
	'm_RecordDate = Mid(vRtnExt, 0, 4) &amp; "-" &amp; Mid(vRtnExt, 3, 2) &amp; "-" &amp; Mid(vRtnExt, 5, 2)
	m_RecordContent = Clng(Trim(vRtn(0)))
End If</Content></Compute_Node>
					<IO_Node Name="播报_查询到的积分" ProcessError="false">
						<InputVarNameSet><VarName>m_PV_RecordIs</VarName><VarName>m_PV_UnitFen</VarName><VarName>m_RecordContent</VarName></InputVarNameSet><OutVarNameSet><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><PlayFile FileNameVar="m_PV_RecordIs" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
						<PlayTTS CanBreak="true" PlayCount="1" WaitTimeOnce="5" LanguageTypeVar="m_PronLanguage">
							<VarName>m_RecordContent</VarName>
						</PlayTTS>
						<PlayFile FileNameVar="m_PV_UnitFen" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
					</IO_Node>
					<Compute_Node Name="查询档案详细信息" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
						<InputVarNameSet><VarName>m_DocID</VarName><VarName>m_Dsn</VarName></InputVarNameSet><OutVarNameSet><VarName>m_RecordCount</VarName><VarName>m_RecordCurPostion</VarName><VarName>m_RecordString</VarName><VarName>m_Result</VarName><VarName>m_ResultExt</VarName><VarName>m_SQL</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
Dim Obj
Set Obj = CreateObject("QuerySQL.CQueryDB") 
m_SQL = "SELECT WZSJ,NAME,WZDMNAME,FEN FROM WZJF WHERE ID = '" &amp; m_DocID &amp; "'"

m_RecordString = Obj.getRsString(m_Dsn, m_SQL, "|", "|", m_RecordCount)
m_Result = "SUCCESS"

If Len(m_RecordString) = 0 Then
   m_ResultExt = "NULL"   
Else   
   m_ResultExt = "SUCCESS"   
End If</Content></Compute_Node>
					<Branch_Node Name="判断查询是否成功1" VarName="m_Result">
						<BranchItem Operator="Equal" ItemExpression="SUCCESS">
							<Branch_Node Name="判断详单结果" VarName="m_ResultExt">
								<BranchItem Operator="Equal" ItemExpression="SUCCESS">
									<Compute_Node Name="数据初始化" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
										<OutVarNameSet>
											<VarName>m_RecordCurPostion</VarName>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
										<Content>
m_RecordCurPostion = 0</Content>
									</Compute_Node>
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -