MIME-Version: 1.0
Content-Location: file:///C:/0C8BA2D4/Subwebservicetest.htm
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html; charset="us-ascii"

<html xmlns:v=3D"urn:schemas-microsoft-com:vml"
xmlns:o=3D"urn:schemas-microsoft-com:office:office"
xmlns:w=3D"urn:schemas-microsoft-com:office:word"
xmlns=3D"http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=3DContent-Type content=3D"text/html; charset=3Dus-ascii">
<meta name=3DProgId content=3DWord.Document>
<meta name=3DGenerator content=3D"Microsoft Word 11">
<meta name=3DOriginator content=3D"Microsoft Word 11">
<link rel=3DFile-List href=3D"Subwebservicetest.files/filelist.xml">
<title>Sub webservicetest()</title>
<!--[if gte mso 9]><xml>
 <o:DocumentProperties>
  <o:Author>mengwg</o:Author>
  <o:Template>Normal</o:Template>
  <o:LastAuthor>mengwg</o:LastAuthor>
  <o:Revision>1</o:Revision>
  <o:TotalTime>0</o:TotalTime>
  <o:Created>2015-02-02T06:18:00Z</o:Created>
  <o:LastSaved>2015-02-02T06:18:00Z</o:LastSaved>
  <o:Pages>1</o:Pages>
  <o:Words>105</o:Words>
  <o:Characters>605</o:Characters>
  <o:Company>onlyit.cn</o:Company>
  <o:Lines>5</o:Lines>
  <o:Paragraphs>1</o:Paragraphs>
  <o:CharactersWithSpaces>709</o:CharactersWithSpaces>
  <o:Version>11.9999</o:Version>
 </o:DocumentProperties>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:WordDocument>
  <w:SpellingState>Clean</w:SpellingState>
  <w:GrammarState>Clean</w:GrammarState>
  <w:PunctuationKerning/>
  <w:DrawingGridVerticalSpacing>7.8 &#30917;</w:DrawingGridVerticalSpacing>
  <w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEve=
ry>
  <w:DisplayVerticalDrawingGridEvery>2</w:DisplayVerticalDrawingGridEvery>
  <w:ValidateAgainstSchemas/>
  <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
  <w:IgnoreMixedContent>false</w:IgnoreMixedContent>
  <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
  <w:Compatibility>
   <w:SpaceForUL/>
   <w:BalanceSingleByteDoubleByteWidth/>
   <w:DoNotLeaveBackslashAlone/>
   <w:ULTrailSpace/>
   <w:DoNotExpandShiftReturn/>
   <w:AdjustLineHeightInTable/>
   <w:BreakWrappedTables/>
   <w:SnapToGridInCell/>
   <w:WrapTextWithPunct/>
   <w:UseAsianBreakRules/>
   <w:DontGrowAutofit/>
   <w:UseFELayout/>
  </w:Compatibility>
  <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
 </w:WordDocument>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <w:LatentStyles DefLockedState=3D"false" LatentStyleCount=3D"156">
 </w:LatentStyles>
</xml><![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:SimSun;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-alt:SimSun;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 680460288 22 0 262145 0;}
@font-face
	{font-family:SimSun;
	panose-1:2 1 6 0 3 1 1 1 1 1;
	mso-font-charset:134;
	mso-generic-font-family:auto;
	mso-font-pitch:variable;
	mso-font-signature:3 680460288 22 0 262145 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{mso-style-parent:"";
	margin:0cm;
	margin-bottom:.0001pt;
	text-align:justify;
	text-justify:inter-ideograph;
	mso-pagination:none;
	font-size:10.5pt;
	mso-bidi-font-size:12.0pt;
	font-family:"Times New Roman";
	mso-fareast-font-family:SimSun;
	mso-font-kerning:1.0pt;}
span.SpellE
	{mso-style-name:"";
	mso-spl-e:yes;}
span.GramE
	{mso-style-name:"";
	mso-gram-e:yes;}
 /* Page Definitions */
 @page
	{mso-page-border-surround-header:no;
	mso-page-border-surround-footer:no;}
@page Section1
	{size:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	mso-header-margin:42.55pt;
	mso-footer-margin:49.6pt;
	mso-paper-source:0;
	layout-grid:15.6pt;}
div.Section1
	{page:Section1;}
-->
</style>
<!--[if gte mso 10]>
<style>
 /* Style Definitions */
 table.MsoNormalTable
	{mso-style-name:\666E\901A\8868\683C;
	mso-tstyle-rowband-size:0;
	mso-tstyle-colband-size:0;
	mso-style-noshow:yes;
	mso-style-parent:"";
	mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
	mso-para-margin:0cm;
	mso-para-margin-bottom:.0001pt;
	mso-pagination:widow-orphan;
	font-size:10.0pt;
	font-family:"Times New Roman";
	mso-ansi-language:#0400;
	mso-fareast-language:#0400;
	mso-bidi-language:#0400;}
</style>
<![endif]--><!--[if gte mso 9]><xml>
 <o:shapedefaults v:ext=3D"edit" spidmax=3D"2050"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
 <o:shapelayout v:ext=3D"edit">
  <o:idmap v:ext=3D"edit" data=3D"1"/>
 </o:shapelayout></xml><![endif]-->
</head>

<body lang=3DZH-CN style=3D'tab-interval:21.0pt;text-justify-trim:punctuati=
on'>

<div class=3DSection1 style=3D'layout-grid:15.6pt'>

<p class=3DMsoNormal><span lang=3DEN-US>Sub <span class=3DSpellE><span clas=
s=3DGramE>webservicetest</span></span><span
class=3DGramE>()</span><o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>Dim <span class=3DSpellE>objHttp</s=
pan>, <span
class=3DSpellE>xmlDoc</span>, <span class=3DSpellE>sText</span>, <span
class=3DSpellE>sXml</span><o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>Set <span class=3DSpellE>objHttp</s=
pan> =3D <span
class=3DSpellE><span class=3DGramE>CreateObject</span></span><span class=3D=
GramE>(</span>&quot;MSXML2.XMLHTTP&quot;)<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>Set <span class=3DSpellE>xmlDoc</sp=
an> =3D <span
class=3DSpellE><span class=3DGramE>CreateObject</span></span><span class=3D=
GramE>(</span>&quot;<span
class=3DSpellE>MSXML.DOMDocument</span>&quot;)<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span class=3DSpellE><span class=3DGramE><span lang=3D=
EN-US>strWebserviceURL</span></span></span><span
lang=3DEN-US> =3D
&quot;http://127.0.0.1/http_xml_call?func_id=3Dsf_upper&amp;call_key=3D11&q=
uot;<o:p></o:p></span></p>

<p class=3DMsoNormal><span class=3DSpellE><span class=3DGramE><span lang=3D=
EN-US>strRequest</span></span></span><span
lang=3DEN-US> =3D &quot;&lt;?xml version=3D'1.0' encoding=3D'GB2312'?&gt; &=
lt;<span
class=3DSpellE>para_mgr</span> type=3D'<span class=3DSpellE>para</span>'&gt=
;<span
style=3D'mso-spacerun:yes'>&nbsp; </span>&lt;<span class=3DSpellE>str</span>
type=3D'string'&gt;ki112ftereDE&lt;/<span class=3DSpellE>str</span>&gt; &lt=
;/<span
class=3DSpellE>para_mgr</span>&gt;&quot;<o:p></o:p></span></p>

<p class=3DMsoNormal><span class=3DSpellE><span lang=3DEN-US>objHttp.Open</=
span></span><span
lang=3DEN-US> &quot;POST&quot;, <span class=3DSpellE>strWebserviceURL</span=
>, False<o:p></o:p></span></p>

<p class=3DMsoNormal><span class=3DSpellE><span lang=3DEN-US>objHttp.SetReq=
uestHeader</span></span><span
lang=3DEN-US> &quot;Content-Type&quot;, &quot;application/x-www-form-<span
class=3DSpellE>urlencoded</span>&quot;<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span class=3DSpellE><span lang=3DEN-US>objHttp.Send</=
span></span><span
lang=3DEN-US> (<span class=3DSpellE>strRequest</span>)<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;</span><o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>If <span class=3DSpellE>objHttp.Sta=
tus</span>
=3D 200 Then<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span>Dim <span class=3DSpel=
lE>sNodeList</span>,
<span class=3DSpellE>sResult</span><o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span><span class=3DSpellE>x=
mlDoc.Load</span>
(<span class=3DSpellE>objHttp.responseXML</span>)<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span><span class=3DSpellE><=
span
class=3DGramE>sText</span></span> =3D <span class=3DSpellE>xmlDoc.XML</span=
><o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>Else<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span><span class=3DSpellE>s=
Text</span>
=3D &quot;</span><span style=3D'font-family:SimSun;mso-ascii-font-family:"T=
imes New Roman";
mso-hansi-font-family:"Times New Roman"'>&#35843;&#29992;</span><span
class=3DSpellE><span lang=3DEN-US>WebService</span></span><span style=3D'fo=
nt-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#20986;&#38169;&#65292;&#35831;&#26816;&#26597;</span><span
lang=3DEN-US>&quot;<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>End If<o:p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span class=3DGramE><span lang=3DEN-US>Range(</span></=
span><span
lang=3DEN-US>&quot;A1&quot;).Value =3D <span class=3DSpellE>sText</span><o:=
p></o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US>End Sub</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

<p class=3DMsoNormal><span lang=3DEN-US><o:p>&nbsp;</o:p></span></p>

</div>

</body>

</html>
