Dim s = new Test.CAdxWebServiceXmlCC.CAdxCallContext()
Dim _caService = new CAdxWebServiceXmlCCClient
Dim CaService = new CAdxWebServiceXmlCCClient
s.codeLang ="CHI"
s.codeUser ="ADMIN"
s.password =""
Dim poolAlias = "LLTEST" '// "LLTEST";//"YLLX3WS"; //cc.poolAlias = "WS_DEMOBRI"; // Pool name
Dim importModel = System.Configuration.ConfigurationManager.GetSection("importModel")
If importModel IsNot Nothing Then
Dim model = DirectCast(importModel, System.Collections.IDictionary)
If model("poolAlias") IsNot Nothing Then
poolAlias = TryCast(model("poolAlias"), String)
Output.Show(poolAlias)
End If
End If
s.poolAlias = poolAlias
s.requestC & vbCr & vbLf & "&adonix.trace.on=on&adonix.trace.level=3" & vbCr & vbLf & "&adonix.trace.size=8"
Return _caService
CaService.save(s, "YWMSMFG", FileSys.ReadAllText("d:\test.xml", Encoding.Default))
加好友 
发短信
Post By：2016/6/15 12:31:00 [只看该作者]
此主题相关图片如下：444.png